Discussion :

[toutoune95800]

Bonjour,

Tout d'abord je tiens à m'excuser car j'ai publié le même message dans "Excel" et je n'ai pas réussi à le changer de place ! Donc, si un modérateur peut lire cette petite ligne, ça serait sympa qu'il supprime le message dans Excel !

Il y a bien longtemps que je n'ai pas fait de VBA et j'avoue ne pas trouver ma solution.

Je souhaite, dans le contenu d'une macro, quet VBA incrémente ma colonne A, à partir de A2 et ce jusqu'à la dernière ligne mon tableau (j'ai réussi à coder une variable qui me renvoie le numéro de la dernière ligne de ma colonne A). Là où ça se complique, c'est qu'il faut que cette cellule soit incrémenter que si celle d'à côté, en l'occurrence la B [x] ne soit pas vide !

Ce qui donnerait :
A B
1 Papa
2 maman
3 petit frere

Et donc pas de numéro 4 car il n'y a rien en B.

J'ai essayé de nombreuses méthodes lues sur les forums mais aucune n'a fonctionnée.

Je vous remercie d'avance pour votre aide.

Stéphane

[joe.levrai]

Bonjour,

une basique formule Excel en A2 :

=SI(ESTVIDE(B2);"";MAX($A$2:$A2)+1)

à tirer vers le bas sur la colonne
copier/collage spécial valeur pour supprimer les formules


A intégrer à ton code VBA, l'enregistreur de macro va te mâcher le travail

revient avec ton code quand tu seras totalement bloqué, en expliquant ce qui coince

[Menhir]

En VBA :

Code :

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

1
2
3
4
Dim Lig As Long
For Lig = 2 To Range("B" & Rows.Count).End(xlUp).Row
    Cells(Lig, 1).Value = Lig - 1
Next Lig