Copier et coller une ligne entiere

[Angelo7891]

Bonjour le forum
j'ai un souci j'ai voulu copier et recoler (collage speciale lorsqu'on le fait à la 'main') une ligne entiere mais mon code a bien fait le traitement mais en collant plussieur fois la ligne en question et je ne vois pas d'ou cela peut provenir

voici mon code :

Private Sub Valider_Click()
    Ajout_appui_com.Hide
    Sheets('Feuil3').Select
    dernier = Range('S4').Value
    Sheets('Feuil1').Select
    Rows(dernier).Select
    MsgBox ('copie de la ligne ')
    Selection.Copy
    MsgBox ('insertion ')
    Rows(dernier + 2).Select
    Selection.Insert Shift:=xlDown
    MsgBox ('renommage de l'opération ')
    Cells(dernier + 2, 2).Value = TextBox1.Value
    MsgBox ('effacement des cellules')
    Cells(dernier + 2, 4).Value = ''
    Cells(dernier + 2, 7).Value = ''
    Sheets('Feuil3').Select
    Range('S4').Value = Range('S4').Value + 2
End Sub

une petite explication du code (du moin de ce que je souhaite faire)
-je 'hide' le formulaire précedent
-je vais chercher une variable 'dernier' dans la feuille 3
-je selectionne la feuille 1
-je me positionne sur la ligne que je désire copier (celle ci correspond à la valeur de 'dernier')
- je copie la ligne
- je me positionne 2 ligne plus bas
- j'insere les cellules

la suite semble marcher c'est l'insertion qui me pose probleme puisque cela copie pas une seul fois la cellule

 

[Charly2]

Bonjour Angelo7891, bonjour à toutes et à tous

Je viens de tester ton code et l'insertion se fait correctement. Je pense qu'il serait préférable de joindre un fichier exemple avec ton code pour que nous puissions mieux te renseigner.

A+

 

[Angelo7891]

en voulant faire un fichier pour envoyer je me suis appercu du probleme en fait c'était tout bete (mais dur a expliquer )

mon Rows(dernier + 2).Select attérissait sur une ligne fusionner avec 7 autrees donc la ligne que je copiais se décuplais sur les 7 lignes en questions
:woohoo:

 

[Charly2]

re,

Ah ces satanées cellules fusionnées :sick:

Le principal est que ton interrogation ait trouvé une réponse, et c'est encore mieux que ce soit toi qui la donne

A+

 

[Angelo7891]

merci beaucoup

je voudrais maintenant selectionner deux ligne pour les copier
c'est à dire modifier le code comme ceci :

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

mais la synthaxe de

Rows ('dernier:dernier+1').Select

est pas la bonne
j'ai mis des & dans tout les sens , des '' aussi :whistle: ok c'est pas la meilleur solution mais je bidouille

un petit coup de main serai le bienvenue

 

[Charly2]

re Angelo,

Tu peux essayer ce genre de code :

Rows(Dernier).Resize(2).Copy

A+