Discussion :

[INFINITY100]

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

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

Merci

[Invité]

Bonjour,

Essayez :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[INFINITY100]

Bonjour Eric KERGRESSE

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

Cordialement