Compter de 1 jusqu'à dernière cellule non vide

[Didou59]

Bonjour à toutes et tous,
Malgré une recherche intensive depuis ce matin je ne trouve pas ma solution qui je pense doit être toute simple.
Voilà mon problème :
Je copie des cellules non contigues d'une feuille dans une autre feuille sous forme de liste. Cette liste démarre en B2 puisque la ligne 1 est utilisée pour mes en-têtes. Je voudrais dans cette liste en colonne A compter de 1 jusqu'à la dernière cellule non vide se trouvant en colonne B.
D'avance merci pour vos réponses.

 

[Grand Chaman Excel]

Re : Compter de 1 jusqu'à dernière cellule non vide

Bonjour,

Formule à mettre en A2 et recopier vers le bas :

=SI(B2<>"";NBVAL($B$2:B2);"")

 

[Didou59]

Re : Compter de 1 jusqu'à dernière cellule non vide

Gran Chaman,
Merci pour la réponse mais j'ai oublié de préciser que je voulais le code en VBA. Je m'excuse d'avoir oublié de le dire. Je ne suis pas très fort en VBA mais en excel je n'ai pas trop de problème.
Encore merci.

 

[Grand Chaman Excel]

Re : Compter de 1 jusqu'à dernière cellule non vide

Dans ce cas,
Même principe, en VBA... à essayer :

Sub Numeros()
  
   With Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row)
      .FormulaR1C1 = "=IF(RC[1]<>"""",COUNTA(R2C2:RC[1]), """")"
      .Copy
      .PasteSpecial xlPasteValues
      .Cells(1).Select
   End With
   Application.CutCopyMode = False

End Sub

 

[Didou59]

Re : Compter de 1 jusqu'à dernière cellule non vide

Bonjour Grand Chaman et toutes et tous,
Merci beaucoup, le code fonctionne parfaitement.