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+ 😉