copier coller ligne

S

Sebb

Guest

• 28 Mai 2003

• #2

Salut


Sub inserligne()
ligne = InputBox("Saisissez le numéro de la ligne")
Worksheets("Sheet1").Rows(ligne).Insert

End Sub


a+

 

Vote positif 0 Vote négatif

F

Fox

Guest

• 28 Mai 2003

• #3

merci, je viens d'essayer mais il me donne une erreur d 'execution 9
-> l'indice n'appartient pas à la selection ?

Merci

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 28 Mai 2003

• #4

Arf ce n'est rien Fox...il suffit de donner le nom de ta feuille dans Worksheets("Sheet1")....

En résumé à la place de Sheet1 tu mets Feuil1 pour peu que ta feuille se nomme ainsi...

Y'a pas de quoi...lol

 

Vote positif 0 Vote négatif

S

Sebb

Guest

• 28 Mai 2003

• #5

Bien vu l'aveugle ;o)

 

Vote positif 0 Vote négatif

F

Fox

Guest

• 28 Mai 2003

• #6

bien mais là il m'ajoute une ligne après la ligne demandé.

Je voulais qu'il fasse un copier de la ligne demandé et ensuite coller celle-ci à la ligne suivante.

merci

 

Vote positif 0 Vote négatif

S

Sebb

Guest

• 28 Mai 2003

• #7

désolé j'avais mal compris

Sub Copieligne
ligne = InputBox("saisir le numéro de ligne")
Rows(ligne).Select
Selection.Copy
Rows(ligne + 1).Select
ActiveSheet.Paste
End Sub

 

Vote positif 0 Vote négatif

F

Fox

Guest

• 28 Mai 2003

• #8

Merci seb entre les messages j'ai un peu cherché par moi même j'en étais arrivé là:

Sub inserligne()

ligne = InputBox("Saisissez le numéro de la ligne")
Rows("ligne").Select
Selection.Copy
Worksheets("Feuil1").Rows(ligne).Insert
Rows.Select
ActiveSheet.Paste



End Sub


Ps: je comprend pas très bien quand il faut mettre les " " ou pas

Rows("ligne").Select

je vois que toi tu ne les pas mis.

Encore merci car je débute

 

Vote positif 0 Vote négatif

S

Sebb

Guest

• 28 Mai 2003

• #9

Je n'ai pas mis les " car ligne est une variable et mettre "ligne" aurait voulu dire que la ligne s'appelait Ligne ...
alors que ligne correspond au numéro de la ligne
je sais pas si c'est très clair avec toutes ces "lignes" ... lol
J'ail l'impression de parler comme les schtroumpfs

 

Vote positif 0 Vote négatif

F

Fox

Guest

• 28 Mai 2003

• #10

Merci j'ai compris, juste une petite infos en plus

dans la macro si je veux empecher que la ligne 7,10,11 ne soit pas copié et qu'il avertisse l'utilisateur par un message " Interdiction de copier cette ligne" ce serait possible?

Merci

 

Vote positif 0 Vote négatif

S

Sebb

Guest

• 28 Mai 2003

• #11

oui c'est possible

Sub inserligne()

ligne = InputBox("saisir le numéro de ligne")
If ligne = 7 Then GoTo Err
If ligne = 10 Then GoTo Err
If ligne = 11 Then GoTo Err
Rows(ligne).Select
Selection.Copy
Rows(ligne + 1).Insert
ActiveSheet.Paste
GoTo endsub
Err:
MsgBox ("Interdiction de copier cette ligne")
endsub:
End Sub

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 28 Mai 2003

• #12

Ah ben moi j'avais çà...

Sub Copieligne()
Dim ligne As Long
ligne = InputBox("saisir le numéro de ligne")
If ligne = 7 Then MsgBox "Vous ne pouvez pas copier la ligne " & ligne, vbCritical, "=> ATTENTION"
If ligne = 10 Then MsgBox "Vous ne pouvez pas copier la ligne " & ligne, vbCritical, "=> ATTENTION"
If ligne = 11 Then MsgBox "Vous ne pouvez pas copier la ligne " & ligne, vbCritical, "=> ATTENTION"
Exit Sub
Rows(ligne).Select
Selection.Copy
Rows(ligne + 1).Select
ActiveSheet.Paste
End Sub

 

Vote positif 0 Vote négatif

V

Vériland

Guest

• 28 Mai 2003

• #13

Arf...petite rectification avec mon Exit sub...

If ligne = 7 Then MsgBox "Vous ne pouvez pas copier la ligne " & ligne, vbCritical, "=> ATTENTION": Exit Sub
If ligne = 10 Then MsgBox "Vous ne pouvez pas copier la ligne " & ligne, vbCritical, "=> ATTENTION": Exit Sub
If ligne = 11 Then MsgBox "Vous ne pouvez pas copier la ligne " & ligne, vbCritical, "=> ATTENTION": Exit Sub

il sera mieux ici...lool...sinon le reste ne suivra pas...

 

Vote positif 0 Vote négatif

F

Fox

Guest

• 29 Mai 2003

• #14

ça fonctionne, encore merci

 

Vote positif 0 Vote négatif