ajout ligne sur cellule sélectionnée

[marti018]

😉 Bonjour le forum, bonjour tout le monde, vive septembre il fait beau c'est génial!!!

j'ai un petit problème qui ne devrai pas bloquer n'importe quel membre du forum plus de 10 secondes mais j'ai beaucoup de mal avec VBA..
voilà j'aimerai créer une macro qui par le biais d'un bouton copie la ligne complete de la cellule sélectionnée et l'insère sous cette même ligne..

j'ai pensé à

Sub Boutonligne_QuandClic(ByVal Target As Range)

    Target.Row.Select
    Target.Row.Copy
    Target.Row.Insert Shift:=xlDown


End Sub

mais apparement c'est trop simpliste...j'ai cru que je pouvais le faire les doigts dans le nez mais j'ai échoué🙁

voilà bonne journée!!

 

[pierrejean]

Re : ajout ligne sur cellule sélectionnée

bonjour marti018

voici un code qui fonctionne apres selction d'une ligne

Private Sub CommandButton1_Click()
Rows(Selection.Row).Copy
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[marti018]

Re : ajout ligne sur cellule sélectionnée

Bonjour Pierrejean
merci beaucoup pour la réponse, juste une petite question: n'est t'il pas possible que la macro copie la ligne de la cellule selectionné ou celà produit un conflit???

sinon c trés bien et je m'en servirai comme ça....

en tout cas merci beaucoup pour ton attention🙂
julien

 

[pierrejean]

Re : ajout ligne sur cellule sélectionnée

re julien

voila pour la copie de la ligne dont la cellule est selectionnée

Private Sub CommandButton1_Click()
Rows(Selection.Row).Copy
Rows(Selection.Row).Insert Shift:=xlDown
ActiveSheet.Paste Destination:=ActiveSheet.Rows(Selection.Row)
Application.CutCopyMode = False
End Sub