Discussion :

[DonKnacki]

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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
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

[DonKnacki]

autant pour moi j'ai trouvé mon probleme
tout betement je copiais dans une ligne fusionné ce qui explique les lignes multiples

une autre question concernant la synthaxe

je souhaiterai faire quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Rows("dernier:dernier + 1").Select

afin de secelection la ligne n° "dernier" et celle du dessous

mais lorsque je fais cela j'ai une erreur du a une incompatibilté de type

[Theocourant]

autant pour moi j'ai trouvé mon probleme
tout betement je copiais dans une ligne fusionné ce qui explique les lignes multiples

une autre question concernant la synthaxe

je souhaiterai faire quelque chose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 Rows("dernier:dernier + 1").Select

afin de secelection la ligne n° "dernier" et celle du dessous

mais lorsque je fais cela j'ai une erreur du a une incompatibilté de type

Lut,

Alors ce que tu peux faire c'est passer par une variable intermédiare comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim maVar as String
 
   maVar=Cstr(dernier) & ":" & Cstr(dernier+1)
 
   Rows(maVar).Select

Voilà

Bonne continuation

Théo

[DonKnacki]

même résultat incompatibilité de type

[ouskel'n'or]

Alors qu'il te suffisait de faire ça...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Rows(dernier).Copy Rows(dernier + 2)

A+

Je croyais que ton pb était résolu... Tu dis

[Theocourant]

même résultat incompatibilité de type

Une question : quelle est la valeur de dernier ?

[Theocourant]

Alors qu'il te suffisait de faire ça...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

    Rows(dernier).Copy Rows(dernier + 2)

A+

Et ça fait l'insertion aussi ? Il me semblait que cela remplaçait simplement la ligne cible.

Pas tester et il va falloir que je le fasse car si ça marche ce serait top

Là tu viens de m'apprendre encore quelque chose Ousk



Théo

[ouskel'n'or]

Oui, ça colle la ligne et remplace donc l'ancienne mais là, comme on a "dernier", j'ai pensé qu'il s'agissait de la dernière ligne et que dernière ligne + 2 était deux lignes en dessous. Non, Nom ?

[DonKnacki]

en effet il s'agit de la derniere ligne seulement je vais devoir le refaire pour d'autre ligne ; serai ce encore valable ?

[ouskel'n'or]

Sinon, on peut aussi insérer une ligne

Rows(Dernier + 2).Insert
Rows(Dernier).Copy Rows(Dernier + 2)

Mais pas question de sélectionner les lignes. Ne sert à rien et allourdit le code

Tu dis

Salut Théo

[ouskel'n'or]

Quand tu insères une ligne au dessus de la ligne n, la ligne insérée devient la ligne n
Si tu colles des données sur la ligne n, tu les colles sur une ligne vide. Donc sans risque.
Sinon tu fais un copier/insérer mais on n'était parti pour une simple copie.

Tu dis

Edit
Pour insérer une copie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
    Rows("2:2").Copy
    Rows("4:4").Insert Shift:=xlDown

[Theocourant]

Mais pas question de sélectionner les lignes. Ne sert à rien et allourdit le code

Je suis d'accord mais il est à noter que Nom a fait l'effort de travailler initialement par lui-même en utilisant l'enregistrement de macro d'Excel et de nous donner son code pour progresser.

Donc on est reparti de son code pour arriver à ce qu'il souhaitait. Je ne me suis pas occupé de l'optimisation du code

+

Théo

[ouskel'n'or]

Aucune critique dans ce que j'ai dit, Théo, juste un conseil pour optimiser le code. Si on met un code sans les raisons pour lesquelles il est à privilégier par rapport à un autre, l'intérêt peut être ignoré

Pas de lézard, donc.

A+

[DonKnacki]

et bien merci à vous deux de votre aide
cela semble marché en fesant le code que m'a conseillé Ouselk'nor
celui ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
    Rows(Dernier + 2).Insert
    Rows(Dernier + 3).Insert 'j'ai encore insérer une ligne pour faire plus aéré 
    Rows(Dernier).Copy Rows(Dernier + 2)

je met donc résolu en sachant que je n'ai pas fini alors si j'ai encore un probleme je réouvrirai ce sujet