Insertion ligne en fin de tableau
Bonjour,
Je débute avec VBA et j’ai besoin d’aide pour pouvoir insérer les dernières données introduites dans le formulaire. Ces dernières se placent en fin de tableau.
Excel insère la ligne en début de tableau.
Après avoir fait des recherches sur le forum je n’arrive pas à voir comment faire dans mon cas.
Vous trouverez ci-dessous la dernière tentative que j’ai faite (Macro). Je ne trouve pas la solution. J’espère que quelqu’un pourra m’aider et d’avance je vous remercie de prendre le temps de lire cette demande. En pièce jointe mon fichier .xlsm
Voici ma Macro :
Macro1 Macro
'
'
Range("B3").Select
Selection.Copy
Sheets("Achat").Select
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Cours").Select
ActiveWindow.SmallScroll Down:=-105
ActiveWindow.SmallScroll ToRight:=-8
Range("A12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Formulaire").Select
Range("B9").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Achat").Select
Range("F3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Cours").Select
Range("B12").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A13:O13").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A14").Select
Sheets("Achat").Select
Range("A4:W4").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A5").Select
Sheets("Formulaire").Select
Range("B9,B3").Select
Range("B3").Activate
Selection.ClearContents
Range("B3").Select
End Sub
Bonjour,
n'hésitez pas à utiliser la balise "code" pour le partage de vos codes VBA, c'est le bouton </> de la barre d'édition de message du site.
Ensuite le code est issu de l'enregistreur VBA d'Excel qui a le défaut d'enregistrer tout ce que vous faites, même les scroll de lignes !
Il y a un très gros nettoyage à faire.
Ensuite en utilisant des tableaux structurés, la gestion d'ajout de ligne est plus simple.
Mais le plus dur dans cela pour moi c'est de comprendre d'où partent les données et pour aller où...
Quant à savoir pourquoi Excel ajoute les dernières données sur la première ligne c'est tout simplement car le Range("A3") est écrit en dur, donc la ligne nouvelle sera toujours la ligne 3 et les autres descendront.
@ bientôt
LouReeD