explication code!!!

mutzik

XLDnaute Barbatruc

• 13 Février 2009

• #2

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

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 13 Février 2009

• #3

Re : explication code!!!

Bonjour

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

JP

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Février 2009

• #4

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

Code:

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

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 13 Février 2009

• #5

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 13 Février 2009

• #6

Re : explication code!!!

Re

A tester:

Code:

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

 

Vote positif 0 Vote négatif

D

demax

XLDnaute Occasionnel

• 13 Février 2009

• #7

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😉

 

Vote positif 0 Vote négatif