Bonjour à tous,
Merci Robert,
Mais voilà j'ai un autre petit problème:
les commandes du tableau peuvent occuper au maximum 4 lignes; j'ai donc changé mon code de cette manière:
Private Sub CommandButton5_Click()
With Worksheets('Feuil1')
' Détermination de la prochaine ligne
LigneSuivante = .Range('B65536').End(xlUp).Row +
5
' Transfert du nom
...
De cette manière entre les premières lignes de 2 commandes il y a 5 lignes...
Mais il n'y a pas forcément qu'une seule ligne entre la dernière ligne d'une commande et la première ligne de la suivante. Je voudrais donc créer une procédure qui permettrait de supprimer des lignes vides entres les commandes si elles sont supérieures à 1, j'ai donc penser à
EntireRow.Delete Shift:=xlUp
Mais je pense que cela ne suffit pas,et je nesais pas coment l'utiliseer.
Peut-on m'aider SVP:
Merci d'avance, @+
Toutou