fonction qui numérote et incrémente

[chdeuque]

Bonjour ,
je cherche a créer une fonction (dans la colonne B) qui permette de numéroter en incrémentant de 1 les cellules qui contiennent "clos" (en colonne A) et rien si il y a autre chose.

ex
clos 1
clos 2
ouvert
fermé
clos 3

Merci de votre aide , j'ai essayé avec la formule si , mais je m'en sors pas.

 

[Staple1600]

Re : fonction qui numérote et incrémente

Bonjour

Une solution par macro

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

 

[chdeuque]

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

 

[Staple1600]

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

 

[chdeuque]

Re : fonction qui numérote et incrémente

Super c'est très efficace