copier coller ligne

[Fox]

Comment puis faire pour qu'une macro me demande la ligne à copier et ensuite insérer celle-ci à la ligne +1

Exemple la macro me demande qu'elle ligne à copier:

réponse: 18

il devra l'insérer en 19

Merci

 

[Sebb]

Salut


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

End Sub


a+

 

[Fox]

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

Merci

 

[Vériland]

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

 

[Sebb]

Bien vu l'aveugle ;o)

 

[Fox]

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

 

[Sebb]

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

 

[Fox]

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

 

[Sebb]

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

 

[Fox]

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

 

[Sebb]

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

 

[Vériland]

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

 

[Vériland]

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...

 

[Fox]

ça fonctionne, encore merci