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.
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.
Re : Compter de 1 jusqu'à dernière cellule non vide
Dans ce cas,
Même principe, en VBA... à essayer :
VB:
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