Discussion :

[neodeco]

Bonjour à tous,

Je débute en VBA et j'aurai aimé faire quelque chose mais je n'y arrive pas, si quelqu'un à une solution, ce serait magnifique.


Je m'explique :

Si B2 est non vide alors A2 = 1
Si B3 est non vide alors A3 = A2 + 1
Si B4 est non vide alors A4 = A3+1

ect...ect... et ce sur toutes les lignes de la colonne B pour A

Ce qui alimentera la colonne A automatique d'un N°

Je vous remercie d'avance.

[gFZT82]

Bonjour,

Première solution : tu renseignes tes cellules de la colonne A avec des formules inscrites avec VBA.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Test()
Dim Origine As Long, DerLig As Long
    Origine = 1
    With Worksheets("Feuil1")
        DerLig = .Range("B" & Rows.Count).End(xlUp).Row
        .Range("A2").Formula = "=IF(B2<>""""," & Origine & ","""")"
        .Range("A3").Formula = "=IF(B3<>"""",A2+1,"""")"
        .Range("A3").AutoFill Destination:=.Range("A3:A" & DerLig)
    End With
End Sub

Cordialement.

[neodeco]

Je te remercie bien l'ami