Macro Excel ajout de ligne fin de tableau Fermé

Question

Bonjour,
J'ai créé un bouton pour ajouter une ligne à mon tableau. J'ai associé une macro qui recopie les formules de la ligne précédente. Le problème est que je ne sais pas comment indiquer qu'il faut insérer la ligne dans la première cellule vide de la colonne et ce quelle que soit ma position au moment du clic sur le bouton. Je ne sais pas non plus comment indiquer qu'il faut recopier la formule de la dernière ligne. Je ne sais que donner les références de la cellule (macro enregistrée) comme suit :

Range("A115").Select
    Selection.EntireRow.Insert
    Range("E114").Select
    Selection.Copy
    Range("E125").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False

Pouvez-vous m'aider SVP ?
Merci beaucoup.
Sequefege

LatelyGeek · Accepted Answer

Ca donnerait ça:

Sub Macro8()
'Aller en A1
Range("A1").Select

'Aller à la dernière remplie (Merci Eriiic)
[A65536].End(xlUp).Select

'Insérer une ligne vide
Selection.EntireRow.Insert

'Remonter d'une ligne
ActiveCell.Offset(-1, 0).Select

'Quand la dernière valeur du tableau est trouvée, sélectionner le nombre de colonnes concernées (J'ai fait de A à O, au pif - à adapter, donc)
ActiveCell.Range("A1:O1").Select

'Recopier le contenu sur une ligne vers le bas
Selection.AutoFill Destination:=ActiveCell.Range("A1:O2"), Type:=xlFillDefault
End Sub

En espérant que "Total" ne soit pas écrit en colonne A, mais son suppose que non, sinon tu ne chercherais pas la première vide???

LatelyGeek · Answer

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 19/03/2008 par LatelyGeek

'Aller en A1
Range("A1").Select

'Tester si la cellule de dessous est vide, si non descendre d'une ligne
While ActiveCell.Offset(1, 0).Value <> ""
ActiveCell.Offset(1, 0).Select
Wend

'Quand la dernière valeur du tableau est trouvée, sélectionner le nombre de colonnes concernées (J'ai fait de A à O, au pif - à adapter, donc)
    ActiveCell.Range("A1:O1").Select

'Recopier le contenu sur une ligne vers le bas
    Selection.AutoFill Destination:=ActiveCell.Range("A1:O2"), Type:= xlFillDefault
End Sub

eriiic · Answer

Bonsoir,

Pour atteindre la dernière cellule remplie de la colonne A on peut aussi faire :
[A65536].End(xlUp).Select

eric

LatelyGeek · Answer

Je connaissais pas!!!!!

eriiic · Answer

c'est l"équivalent de Ctrl fleche-haut sur une feuille.

LatelyGeek · Answer

Je ne comprends pas pourquoi la nouvelle ligne ne se met pas à la fin, mais par contre, que tu fasses une copie comme la mienne ou un collage spécial, les données sont recopiées aussi!!!!

Anonymous · Answer

Pour pouvoir insérer une ligne au dessus d'une cellule prédéfini, il faut donner un nom à celle-ci (Formules -> Gestionnaire de Noms) et après avoir enregistré la macro avec l'insertion de ligne en fonction de cette cellule prédéfini, il faut modifier la maccro et remplacer les numéro de cellule par le noms défini. Exemple :
PASSER DE :
Sub NouvelEquipement()
    Range("B$5$:B$6$").Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
A :
Sub NouvelEquipement()
    Range("MACROEQUIP").Select
    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
PS : "MACROEQUIP" est le nom de la cellule qui a été défini
PS2: Pour cette méthode, il faut insérer une ligne à partir de la cellule en question, cad clique droit -> Insérer -> Ligne entière

Macro Excel ajout de ligne fin de tableau

7 réponses

Discussions similaires