Je progresse en me servant d'un bout de code... et de la réponse donnée
Je suis arrivé à un résultat convenable Mais...
Je voudrais pouvoir afiner ma macro pour ne pas avoir à saisir chaque cas dans une condition
"Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
valCherchées = Array("Depot")
p = Application.Match(Target, valCherchées, 0)
If Not IsError(p) Then
Cells(Target.Row, "O").Value = Cells(Target.Row, "g").Value
End If
End If
If Target.Count = 1 Then
valCherchées = Array("Echec")
p = Application.Match(Target, valCherchées, 0)
If Not IsError(p) Then
Cells(Target.Row, "P").Value = Cells(Target.Row, "J").Value
End If
End If
End Sub"
Je voudrais en gros
Je déclare mes choix possibles et en fonction du choix la cellule résultat est incrémentée le tout dans une seule boucle au lieu de devoir recopier a chaque fois on IF End If donc dans une seule et même boucle
je ne sais pas si je suis clair...
Merci d'avance