Macro avec bouton question

[Michel]

Bonjour,

Je viens de faire cette macro très simple qui permet de déplacer une sélection de cellule.

Range('B6:C9').Select
Selection.Cut Destination:=Range('B19:C22')
Range('B6').Select
End Sub

Comment faire pour lors de l'execution de la macro pour changer la destination de la ligne par 'ouverture d'une combo' avec le message suivant :'Choix de la ligne de detination'.

Merci pour votre aide...
Michel

 

[porcinet82]

salut Michel,

je te propose une petite adaptation de ta macro dont voici le code

Sub test()
    Dim Message, Title, Default, MyValue
    Message = 'Entrez le nom de la rue'
    Title = 'Destination'
    Default = 'A1'
    Range('B6:C9').Select
    MyValue = InputBox(Message, Title, Default)
    Selection.Cut Destination:=Range(MyValue)
End Sub

j'espere que cela correspond a ce que tu recherches

@+

 

[Michel]

Bonjour Porcinet82

Merci pour ta réponse...
depuis j'ai un peu avance et j'ai fait ça.
Michel

tota = Application.InputBox(prompt:='Veuillez saisir le numéro de la ligne ou vous voulez insérer ce module', Type:=1)
mavariable = tota
Range('module1').Select
Selection.Cut Destination:=Range('B' & mavariable)
Range('a64').Select
End Sub