compteur de modification

[phil69]

Bonjour le forum

j'ai trouvé sur le forum la formul VBA suivante
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n, nb As Integer

If Target.Address = "$B$2" Then
If Target.Value = "prêt" Then Range("I2") = Range("I2") + 1
End If
End Sub
mais comment l'adapter à toutes les lignes
merci
phil69

 

[Habitude]

Re : compteur de modification

Bonjour le forum

j'ai trouvé sur le forum la formul VBA suivante
Private Sub Worksheet_Change(ByVal Target As Range)
Dim n, nb As Integer

If Target.Address = "$B$2" Then
If Target.Value = "prêt" Then Range("I2") = Range("I2") + 1
End If
End Sub
mais comment l'adapter à toutes les lignes
merci
phil69

Peut-être Remplacer
If Target.Address = "$B$2" Then
par
If Target.Column = 2 Then

 

[phil69]

Re : compteur de modification

re bonjour le forum

d'abord merci pour la reponse
ok ça fonctionne mais le compteur reste en I2 et moi j'aimerai que les compteurs correspondent aux lignes
phil69

 

[tototiti2008]

Re : compteur de modification

Bonjour phil, Bonjour Habitude,

à tester

Private Sub Worksheet_Change(ByVal Target As Range)
if target.cells.count>1 then Exit sub
If Target.Column = 2 Then
If Target.Value = "prêt" Then Range("I" & target.row) = Range("I" & target.row) + 1
End if
End Sub

 

[phil69]

Re : compteur de modification

re bonjour


c'est nikel
merci à vous
phil69