gao77610
XLDnaute Nouveau
probleme formule condition vba
Bonjour à tous
Voici mon soucis, la premiere condition fonctionne mais pas les 2 autres
J'aimerais comprendre pourquoi
Merci par avance
Bonjour à tous
Voici mon soucis, la premiere condition fonctionne mais pas les 2 autres
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Cells.Count > 1 Or Intersect(Target, Columns(1)) Is Nothing Then Exit Sub
If Left(Target, 5) = "36613" Then Sheets("StockBox").Range("b2").Value = Sheets("StockBox").Range("b2").Value + 1
If Target.Cells.Count > 1 Or Intersect(Target, Columns(2)) Is Nothing Then Exit Sub
If Left(Target, 5) = "12345" Then Sheets("StockBox").Range("c2").Value = Sheets("StockBox").Range("c2").Value + 1
If Target.Cells.Count > 1 Or Intersect(Target, Columns(3)) Is Nothing Then Exit Sub
If Left(Target, 5) = "67890" Then Sheets("StockBox").Range("d2").Value = Sheets("StockBox").Range("d2").Value + 1
End Sub
J'aimerais comprendre pourquoi
Merci par avance
Dernière édition: