zz Effacer le contenu de cellules si...

Bonjour
Voici deux manières de procéder :
Sub EffaceMoiCa()
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1) = "Annule" Then
Cells(i, 5).ClearContents
Cells(i, 6).ClearContents
End If
Next i
End Sub

Sub EffaceMoiCa2()
Dim trouve As Range
With Range("A1", Range("A65536").End(xlUp)(1))
Set trouve = .Find("Annule", LookIn:=xlValues)
If Not trouve Is Nothing Then
trouve.Offset(0, 4).ClearContents
trouve.Offset(0, 5).ClearContents
End If
End With
End Sub

Cordialement
Pascal

"Bob" <anonymous@discussions.microsoft.com> a écrit dans le message de
news:09c901c49a62$d1ac0280$a601280a@phx.gbl...

Bonjour,

J'aimerais automatiser une tache qui m'aiderait beaucoup.

Si dans la colonne A, une ou plusieurs lignes contiennent
le mot 'Annule' alors, a la meme ligne, effacer le
contenu des colonnes E et F.

Exemple :
Si A2 = Annule, Alors Effacer E2 et F2
Si A8 = Annule, Alors Effacer E8 et F8
... et ainsi de suite.

Merci

Rebonjour,
est-ce qu'il y a un moyen de rendre cela interactif? Par
un Event par exemple?
Merci!

-----Message d'origine-----
Bonjour
Voici deux manières de procéder :
Sub EffaceMoiCa()
For i = 1 To Range("a65536").End(xlUp).Row
If Cells(i, 1) = "Annule" Then
Cells(i, 5).ClearContents
Cells(i, 6).ClearContents
End If
Next i
End Sub

Sub EffaceMoiCa2()
Dim trouve As Range
With Range("A1", Range("A65536").End(xlUp)(1))
Set trouve = .Find("Annule", LookIn:=xlValues)
If Not trouve Is Nothing Then
trouve.Offset(0, 4).ClearContents
trouve.Offset(0, 5).ClearContents
End If
End With
End Sub

Cordialement
Pascal

"Bob" <anonymous@discussions.microsoft.com> a écrit dans
le message de

news:09c901c49a62$d1ac0280$a601280a@phx.gbl...

Bonjour,

J'aimerais automatiser une tache qui m'aiderait
beaucoup.

Si dans la colonne A, une ou plusieurs lignes
contiennent

le mot 'Annule' alors, a la meme ligne, effacer le
contenu des colonnes E et F.

Exemple :
Si A2 = Annule, Alors Effacer E2 et F2
Si A8 = Annule, Alors Effacer E8 et F8
... et ainsi de suite.

Merci

.

est-ce qu'il y a un moyen de rendre cela interactif

Dans le module de la feuille :

Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Column <> 1 Then Exit Sub
x = zz.Row
If zz = "Annule" Then Range("E" & x & ":F" & x) = ""
End Sub

AV