XL 2010 Effacer si condition non remplit en VBA

[Sartheas]

Bonjour,

Je souhaite effacer une cellule si celle-ci est différente de "1" en VBA

De la cellule AH18 jusqu'à ce que ça ne soit plus vrai

Je sais qu'il faut utiliser Dim i as integrer

Mais je galére depuis 1h dessus

Merci

Sarthéas

 

[gosselien]

Re : Effacer si condition non remplit en VBA

Bonjour,

et nous , on doit deviner ton fichier, ça risque d'être encore plus long

P.

 

[Hieu]

Re : Effacer si condition non remplit en VBA

Je vais essayer de sortir ma boule de cristal ^^

Sub mlk()
Do
If Range("ah18") <> 1 Then
    Range("ah18").Clear
Else: Exit Do
End If
Loop
End Sub

++

nota: ca bouclera à l'infini, si y a rien qui remplit la cellule !!