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'.
je te propose une petite adaptation de ta macro dont voici le code
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
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