Copier-insérer une ligne via userform

Bonjour à tous,

J'ai un problème dans le code de mon userform, ce que je veux c'est copier et inserer en dessous une ligne de ma feuille.

Mon userform sert à indiquer la valeur de ma variable (le N° de la ligne à copier)

Mon code :

Private Sub CommandButton1_Click()

Dim x As Integer

x = TextBox1.Value

    Rows(x).Copy
    Rows(x + 1).Select
    Selection.Insert Shift:=xlDown

End Sub

Merci d'avance pour votre aide.

Bonjour,

Pas tout compris !!! d'autant que le code fonctionne !!!

Où est le problème ?

A+

Bonjour

essaie comme cela, si j'ai bien compris ce que tu souhaites

Private Sub CommandButton1_Click()

Dim x As Integer

x = TextBox1.Value

    Rows(x).Copy
    Rows(x + 2).Select
    Selection.Insert Shift:=xlDown

End Sub

car

une insertion se fait toujours au-dessus si je ne me trompe pas...

Bye

AlgoPlus a écrit :

Bonjour,

Pas tout compris !!! d'autant que le code fonctionne !!!

Où est le problème ?

A+

Bonjour,

Je souhaite simplement copier une ligne puis la coller (insérer car j'ai d'autres lignes en desssous) en dessous. Le code fait bien la copie puis l'insertion de la ligne mais il m'affiche ce message d'erreur qui fait planter le tableur :

Bonjour lucaspro, bonjour le forum

Peux-tu envoyer un extrait de fichier sur lequel cela plante ?

Avec ton code bien sûr pour pouvoir le contrôler ??

Bye

Patty5046 a écrit :

Bonjour lucaspro, bonjour le forum

Peux-tu envoyer un extrait de fichier sur lequel cela plante ?

Avec ton code bien sûr pour pouvoir le contrôler ??

Bye

Bonjour Patty,

Peux-tu juste me rapeller comme je change les valeurs de mon fichier pour la protection de mes données ?

Je pourrai alors t'envoyer mon fichier

Bonjour

Je ne sais absolument pas comment faire

Peut-être peux-tu poser cette question à part

Ou bien peux-tu conserver ton fichier initial après l'avoir renommé pour le bidouiller du style :

remplacer tous les D par P, les E par A etc...comme tu le sens puis certains chiffres par d'autres..

C'est vraiment de la bidouille mais...

Essaie d'abord plutôt de voir s'il existe une façon de faire, perso je n'ai rien trouvé

A +

Bonjour finalement j'ai pu trouver le bon code :

Private Sub CommandButton1_Click()

Dim x As Integer

x = TextBox1.Value

Rows(x + 1).Insert Shift:=xlDown 'insersion ligne
Rows(x).Copy Rows(x + 1)    'copie-colle la ligne
Range(Cells(x + 1, 11), Cells(x + 1, 16)).ClearContents 'supprime les valeurs
Cells(x + 1, 9).ClearContents 'supprime les valeurs
Cells(x + 1, 9).Value = Cells(x, 9).Value + 1
Unload creation_ligne 'ferme l'userform

mise_en_forme 'lance la macro mise en forme

End Sub

Merci encore pour l'aide apportée je clos le topic !