Insertion de lignes

[Toutou]

Bonjour à tous,
j'ai commencé le VBA il y a a peine 2 mois; aussi ai-je beaucoup de lacunes. J'ai réalisé un programme qui permet d'entrer des commandes dans un tableau excel à l'aide de USF.
Une commane PEUT occuper plusieurs lignes et plusieurs colonnes.
(Le nombre de lignes occupées par une commande peut varier de 1 à 4). Je voudrais que le programme insère une ligne vide à la fin de chaque commande afin de séparer clairement les commandes dans le tableau, cela est-il possible avec la fonction 'Lignesuivante'? Si oui coment?
D'avance merci
Toutou 😉

 

[sylv900]

salut
quand tu écris ton code permettant de remplir ton tableau par une commande tu donne bien un n° i de ligne, tu ne peux pas insérer la prochaine commande à la ligne i+2 ?
donne un morceau de code si je n'ai pas compris ton prblème...

sinon une solution est de repérer la dernière ligne occupé par :
nbligne = ActiveSheet.UsedRange.Rows.Count
et de remplir la ligne nbligne +2 avec la prochaine commande.

bon courage

 

[Toutou]

Salut Syl900,
merci de t'être penché sur mon problème, j'ai joint à ce message une version simplifiée de mon travail: 2 boutons servent à entrer et modifier les commandes; chaque commandes s'insère dans mon tableau ligne après ligne. Dans cette version, une commande n'occupe qu'une ligne. Coment faire pour sauter une ligne automatiquement après chaque saisie des données dans les USF? a + Toutou [file name=gestioncmdes_20051024160656.zip size=19262]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/gestioncmdes_20051024160656.zip[/file]

 

[Robert]

Bonjour Toutou, Slyv, bonjour le forum

vite fait sans trop approfondir :

Private Sub CommandButton5_Click()

With Worksheets('Feuil1')
' Détermination de la prochaine ligne
LigneSuivante = .Range('B65536').End(xlUp).Row + 2
' Transfert du nom

 

[Toutou]

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 😉

 

[Toutou]

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 😉