Copier/coller sous condition
Bonjour,
Dans les lignes de commandes ci-après, pourriez vous m'aider à saisir en ligne 3, un autre paramètre de sélection de ligne.
Les lignes de mon fichier sont reportées sur le feuillet suivant, lorsque le mot IMPORTANT se trouve dans la ligne; j'aimerais qu'il en soit de même lorsque le mot "NON TRAITE" apparaît.
""
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("E2:E65536")) Is Nothing Then
If Target.Value = "IMPORTANT" Then
With Sheets("01 MAI")
LigVide = .Range("B65536").End(xlUp).Row + 1
.Cells(LigVide, 1) = Target.Offset(0, -4).Value
.Cells(LigVide, 2) = Target.Offset(0, -3).Value
.Cells(LigVide, 3) = Target.Offset(0, -2).Value
.Cells(LigVide, 4) = Target.Offset(0, -1).Value
End With
End If
End If
End Sub
""
Je vous remercie par avance.
Bonjour Curtis, bonjour le forum
As-tu essayé :
If Target.Value = "IMPORTANT" Or Target.Value="NON TRAITE" ThenThauThème a écrit :Bonjour Curtis, bonjour le forum
As-tu essayé :
If Target.Value = "IMPORTANT" Or Target.Value="NON TRAITE" Then
Si je te disais que ça marche, je me doute que tu ne serais absolument pas surpris.
Merci beaucoup pour ton aide.
Marco