Excel VBA Vérification de la valeur spécifique dans la cellule

Question

J'ai actuellement de gros problèmes avec ma situation. Ma question est, est-il possible de supprimer le contenu de la cellule si sa valeur de cellule a une chaîne Total Attachment Size:?

J'ai cette partie mais je ne sais pas comment procéder. Vous cherchez dans le net pour des idées, mais malheureusement, ce n'est pas suffisant.

dim lastrow as integer 
dim ws as worksheet 

set ws = ThisWorkbook.sheets("Sheet1") 

lastrow = ws.cells(rows.count, 8).end(xlup).row 

if ws.range("H" & lastrow) contains `Total Attachment Size: ` then 
    ws.range("H" & lastrow).clearcontents 
    lastrow = ws.cells(rows.count, 8).end(xlup).row 

end if 

Toute aide est très appréciée.

Answer 1

C'est selon votre code, si vous voulez vérifier toutes les valeurs de la colonne H me faire savoir alors, nous pouvons exécuter une boucle et effacer toutes les cellules contenant la valeur

Dim str As String 
On Error Resume Next 
str = Application.WorksheetFunction.Search("Total Attachment Size: ",Sheet1.Range("H" & Sheet1.Range("H500000").End(xlUp).Row).Value, 1) 

If Err.Number = 0 Then 

Sheet1.Range("H" & Sheet1.Range("H500000").End(xlUp).Row).ClearContents 

End If