Incrémentation automatique en macro

Bonjour à tous

Voila je suis face à un problème auquel je ne trouve pas de solution en effet je cherche à réaliser une Incrémentation automatique en macro, je dispose d'un fichier qui contient la formule ci-dessous sur l'ensemble de la colonne A c'est-à-dire au fur et mesure que les données en colonne B se remplissent le numéro correspondant en colonne A s'affiche moi ce que je cherche c'est faire de même mais en macro pour ne pas encombrer les cellules de la colonne A avec des formules

voici la formule dont je dispose en colonne A

Citation:

---

=SI(B1<>"";NBVAL($B$1: DECALER($B$1;;;LIGNE()));"")

---

Merci

Bonjour,

Essayez :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub CompterLesCellulesNonVides()   Dim LigneDebut As Long Dim DerniereLigne As Long Dim CtrI As Long   With ActiveSheet LigneDebut = 1 DerniereLigne = .Cells(.Rows.Count, 2).End(xlUp).Row For CtrI = LigneDebut To DerniereLigne If .Cells(CtrI, 2) <> "" Then .Cells(CtrI, 1) = WorksheetFunction.CountA(Range(.Cells(LigneDebut, 2), .Cells(CtrI, 2))) Else .Cells(CtrI, 1) = "" End If Next CtrI End With   End Sub

---

Cordialement.

Bonjour Eric KERGRESSE

Oui après essai c'est exactement le résultat souhaité je te remercie beaucoup mon ami

Cordialement ;)