Choisir une ligne pour la macro

rodrigues89 · 18 Mars 2011

Bonjour tout le monde,

j'ai un petit problème, j'ai une macro qui sélectionne dans un onglet une ligne et me la colle dans un autre onglet. ma macro fonctionne très bien mais elle sélectionne toujours la ligne 4 qu'elle transfère dans l'autre onglet.
j'aimerais quelle fonctionne exactement de la même manière mais que lorsque je clique sur le bouton d'exécution elle me demande (grâce a un inputbox peut être?) la ligne que je veux transférer dans l'autre dossier.

voila ma macro:

Sub MettreDansConfirmé()
Rows("4:4").Select
Selection.Copy
Sheets("CONFIRMÉS").Select
Selection.Insert Shift:=xlDown
Sheets("EN COURS").Select
Range("B4").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Rows("4:4").Select
Selection.Delete Shift:=xlUp
Range("B4").Select
End Sub

et le fichier en pièce jointe.

Merci mille fois d'avance

Pierrot93 · 21 Mars 2011

Re : Choisir une ligne pour la macro

Re,

essaye ainsi :

Code:

On Error Resume Next
Application.InputBox("Ligne à copier", "Sélection", , , , , , 8).EntireRow.Cut
If Err.Number <> 0 Then Exit Sub
On Error GoTo 0

tototiti2008 · 21 Mars 2011

Re : Choisir une ligne pour la macro

Re,

Peut-être

Code:

Sub MettreDansConfirmés()
Dim I As Integer
On Error GoTo ErrType
Application.InputBox("Ligne à copier", "Sélection", , , , , , 8).EntireRow.Select
On Error GoTo 0
I = Selection.Row
Selection.Cut
Sheets("CONFIRMÉS").Range("A2").EntireRow.Insert
Sheets("EN COURS").Rows(I & ":" & I).Delete
ErrType:
End Sub

rodrigues89 · 21 Mars 2011

Re : Choisir une ligne pour la macro

C'est parfait tout fonctionne comme je le souhaite! encore un grand merci à tous

Choisir une ligne pour la macro

rodrigues89

XLDnaute Nouveau

Pièces jointes

Pierrot93

XLDnaute Barbatruc

tototiti2008

XLDnaute Barbatruc

rodrigues89

XLDnaute Nouveau

Discussions similaires