Inserer sans utiliser fonction windows

Bonjour

J’aimerai pouvoir insérer une ligne de plusieurs cellules avec la possibilité de choisir la ligne à insérer et ceci sans utiliser les fonctions de Windows comme clique droit et insérer etc.

Ex. : J’introduis dans une série de cellules, A2,B2,C2 des valeurs et en indiquant dans une autre cellule le choix de la ligne vers la quelle ils seront « insérer »

Le but serait de garder les cellules A2,B2,C2 pour une nouvelle insertion

Au cas ou….merci d’avance

Bonjour,

Il te faut une petite macro,

envoie ta feuille pour la régler

Claude

dubois a écrit :

Bonjour,

Il te faut une petite macro,

envoie ta feuille pour la régler

Claude

Voici...

Bien à vous

Comme vous voyez il y quelques clients, le but serait d'en ajouter et les inserer dans une ligne choisi.

Bonsoir,

Ex. : J’introduis dans une série de cellules, A2,B2,C2 des valeurs et en indiquant dans une autre cellule le choix de la ligne vers la quelle ils seront « insérer »

Je ne vois rien qui correspond à ta demande, A2,B2,C2 ??

merci de mettre des annotations (en français)

avec un exemple, car là je ne comprends pas

Amicalement

Claude

Désolé, vrai, je les ai traduits, mes excuses.

Je vous ai également communiqué plus de détail sur la nouvelle feuille ci jointe.

Bien à vous

re,

Sub InsereLigne()
Dim Lg%
    Lg = Range("e10")
    Rows(Lg).Insert
    Range("a10:d10").Copy
    Range("a" & Lg).PasteSpecial Paste:=xlValues
    Range("a10:d10").ClearContents
End Sub

Claude

dubois a écrit :

re,

Sub InsereLigne()
Dim Lg%
    Lg = Range("e10")
    Rows(Lg).Insert
    Range("a10:d10").Copy
    Range("a" & Lg).PasteSpecial Paste:=xlValues
    Range("a10:d10").ClearContents
End Sub

Claude

un énorme "merci"