compteur de modification

H

Habitude

XLDnaute Accro

• 27 Juillet 2010

• #2

Re : compteur de modification

phil69 à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 27 Juillet 2010

• #3

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

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 27 Juillet 2010

• #4

Re : compteur de modification

Bonjour phil, Bonjour Habitude,

à tester

Code:

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

 

Vote positif 0 Vote négatif

P

phil69

XLDnaute Occasionnel

• 27 Juillet 2010

• #5

Re : compteur de modification

re bonjour


c'est nikel
merci à vous
phil69

 

Vote positif 0 Vote négatif