fonction qui numérote et incrémente

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2010

• #2

Re : fonction qui numérote et incrémente

Bonjour

Une solution par macro

Code:

Sub a()
Dim c As Range, a&
a = 0
For Each c In Range([A1], [A65536].End(xlUp))
If c = "clos" Then
a = a + 1
c.Offset(, 1) =  a
End If
Next c
End Sub

 

Dernière édition: 14 Septembre 2010

Vote positif 0 Vote négatif

C

chdeuque

Guest

• 14 Septembre 2010

• #3

Re : fonction qui numérote et incrémente

je viens de tester mais j'ai une erreur de compilation/Erreur de syntaxe
sur la ligne c.Offset(, 1) = & a

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Septembre 2010

• #4

Re : fonction qui numérote et incrémente

Re

Désolé, une erreur de copier/coller

J'ai édité mon précédent message
Il fallait lire
c.Offset(, 1) = a

 

Vote positif 0 Vote négatif

C

chdeuque

Guest

• 14 Septembre 2010

• #5

Re : fonction qui numérote et incrémente

Super c'est très efficace

 

Vote positif 0 Vote négatif