Discussion :

[Valerian69]

Bonjour,

Pour mon projet de fin d'étude je dois réaliser un outils de dimmensionnemnt sur excel avec l'intégration de vba.

Sur ma feuille excel j'ai 5 tableaux, placés les uns au dessous des autres (escpacé de quelques lignes).

A la fin de chaque tableau j'ai créé un bouton qui permet de rajouter des lignes avec la meme mise en forme que la ligne du dessus,

voici un code que j'ai trouvé et qui fonctionne:

Code :

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

1
2
3
4
5
6
7
'faire une nouvelle ligne 
ActiveCell.EntireRow.Insert Shift:=xlDown 
'copier la ligne du dessus 
ActiveCell.Offset(-1, 0).EntireRow.Copy Cells(ActiveCell.Row, 1) 
On Error Resume Next 
'effacer le contenu de la nouvelle ligne mais garder la forme 
ActiveCell.EntireRow.ClearContents

Le seul soucis est que cette "insertion de ligne " se fait sur la cellule active (ActiveCell)

Je veux que l'insertion se fasse sur une ligne définie du genre à la ligne 17,21 par exemple.




Merci

[Philippe Tulliez]

Bonsoir,
Activell est un objet Range qui représente la cellule active.
Dans la ligne

Code :

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

ActiveCell.EntireRow.Insert Shift:=xlDown

Tu inséres la ligne entière de la cellule active en décalant les cellules vers le bas.
Avec les lignes suivantes, tu fais la même chose mais avec la cellule A8 et ce avec deux syntaxes différentes

Code :

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

1
2
Range("A8").EntireRow.Insert Shift:=xlDown
Cells(8, 1).EntireRow.Insert Shift:=xlDown

[Valerian69]

Merci beaucoup!

[Valerian69]

Bonjour
J'ai enlevé le status "Résolu" car finalement j'ai un Pb.
Je vous donne 2 codes pour 2 boutons assignés à leurs tableaux respectifs:

Code :

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

1
2
3
4
5
6
7
8
'Tableau 1
'faire une nouvelle ligne
Range("A16").EntireRow.Insert Shift:=xlDown
'copier la ligne du dessus
Range("A16").Offset(-1, 0).EntireRow.Copy Cells(16, 1)
On Error Resume Next
'effacer le contenu de la nouvelle ligne mais garder la forme
Range("A16").EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents

Code :

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

1
2
3
4
5
6
7
8
'Tableau 2
'faire une nouvelle ligne
Range("A31").EntireRow.Insert Shift:=xlDown
'copier la ligne du dessus
Range("A31").Offset(-1, 0).EntireRow.Copy Cells(31, 1)
On Error Resume Next
'effacer le contenu de la nouvelle ligne mais garder la forme
Range("A31").EntireRow.SpecialCells(xlCellTypeConstants, 23).ClearContents

Mon Pb: j'insère une ligne (ou des lignes) sur mon premier tableau=> pas de soucis

J'insère une ligne (ou des lignes) sur mon 2eme tableau=> soucis car la ligne ciblée n'est plus la bonne .

Comment pourrais-je proceder ?

Cordialement