zz Effacer le contenu de cellules si...

Le
Bob
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

  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
papou
Le #1850460
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" news:09c901c49a62$d1ac0280$
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


Bob
Le #1850459
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" le message de

news:09c901c49a62$d1ac0280$
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



.




AV
Le #1846772
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

Poster une réponse
Anonyme