Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
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" a écrit dans 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
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.
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" a écrit dans 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
Bob
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" a écrit dans 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
.
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.
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" a écrit dans 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
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
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
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