explication code!!!

[demax]

Bonjour à tous

On Error Resume Next
If Len(Target.Offset(0, -1)) > 0 Then
Target.Offset(0, -1) = Target.Offset(0, -1)
Else
Target.Offset(0, -1) = Target.Offset(-1, -1) + 1
End If

pour moi ce code est sensé rajouter 1 seulement à la cellule de gauche de la cible
et ben non il me mets sur toutes les colonne de gauche 😕
auriez_vous une petite idee de l'erreur ?
merci

 

[mutzik]

Re : explication code!!!

bonjour,
qu'as tu comme données dans la colonne en question ? texte ou nombre
sinon, tu peux essayer :
If cstr(Len(Target.Offset(0, -1))) > 0
et enlever Target.Offset(0, -1) = Target.Offset(0, -1) qui ne sert strictement à rien

 

[jp14]

Re : explication code!!!

Bonjour

Quel est l'évènement qui lance cette procédure ?

JP

 

[pierrejean]

Re : explication code!!!

bonjour a tous

Il y a tres gros a parier que c'est un evenement change qui declenche cette macro
Comme elle modifie une cellule ,cette modif la relance cette relance modifie a nouveau une cellule qui relance etc etc

Une solution

Dim flag as boolean
sub ..._change(Target....)
if flag then exit sub
flag= true
....
on modifie une ou plusieurs cellules
....
flag=false
end sub

 

[demax]

Re : explication code!!!

oui C un evenement change et je voudrais rester comme ca

Private Sub Worksheet_Change(ByVal Target As Range)
'INCREMENTATION'
On Error Resume Next
If Len(Target.Offset(0, -1)) > 0 Then
Target.Offset(0, -1) = Target.Offset(0, -1)
Else
Target.Offset(0, -1) = Target.Offset(-1, -1) + 1
End If
End Sub

Je peux avoir du texte et des nombres
tout simplement C un compteur
1 | toto
2 | tata
etc..
merci

 

[pierrejean]

Re : explication code!!!

Re

A tester:

Private Sub Worksheet_Change(ByVal Target As Range)
'INCREMENTATION'
If Target.Column = 2 Then
 If Len(Target.Offset(0, -1)) = 0 Then
  Target.Offset(0, -1) = Target.Offset(-1, -1) + 1
 End If
End If
End Sub

 

[demax]

Re : explication code!!!

pierrejean t'es un artiste!
j'ai passer la matinée à me casser la tete la dessus
il me reste à apprendre encore en vba
merci encore😉