Bonjour
j'ai mis ce code et ca fonctionne bien:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 1 Then
If Target = "" Then
Target.Offset(, 5) = "Egare"
Else
Target.Offset(, 5) = "Existe"
End If
End If
End Sub
j'ai rajouter ceci mais ca ne marche pas!!!!!!!!
If Target.Column = 10 And Target.Row > 1 Then
If Target = "" Then
Target.Offset(, 4) = "Dossier sorti"
Else
Target.Offset(, 4) = "Dossier entré"
End If
End If
j'ai mis ce code et ca fonctionne bien:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Row > 1 Then
If Target = "" Then
Target.Offset(, 5) = "Egare"
Else
Target.Offset(, 5) = "Existe"
End If
End If
End Sub
j'ai rajouter ceci mais ca ne marche pas!!!!!!!!
If Target.Column = 10 And Target.Row > 1 Then
If Target = "" Then
Target.Offset(, 4) = "Dossier sorti"
Else
Target.Offset(, 4) = "Dossier entré"
End If
End If