Bonjours à tous
Cette macro fonctionne
Mais je dois rentrer manuellement les zones dans les 2 imputbox
Je voudrais le faire avec la souris
J'ai bien pensé à utiliser cette instruction
Set s = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
Mais je maitrise malheureusement pas assez le VBA
Voici la macro :
Sub Recopie_Cellule()
Dim s As String, d As String
SendKeys "% ~{DOWN 4}{right 4}~"
s = InputBox("Source à copier...")
If s = "" Then s = Selection.Address
SendKeys "% ~{DOWN 4}{right 4}~"
d = InputBox("Destination de la copie...")
If d = "" Then d = Selection.Address
Range(s).Copy Destination:=Range(d)
End Sub
Si quelqu'un peut m'aider
Merci
Cette macro fonctionne
Mais je dois rentrer manuellement les zones dans les 2 imputbox
Je voudrais le faire avec la souris
J'ai bien pensé à utiliser cette instruction
Set s = Application.InputBox("Sélectionnez une plage !", "Sélection de cellules", Type:=8)
Mais je maitrise malheureusement pas assez le VBA
Voici la macro :
Sub Recopie_Cellule()
Dim s As String, d As String
SendKeys "% ~{DOWN 4}{right 4}~"
s = InputBox("Source à copier...")
If s = "" Then s = Selection.Address
SendKeys "% ~{DOWN 4}{right 4}~"
d = InputBox("Destination de la copie...")
If d = "" Then d = Selection.Address
Range(s).Copy Destination:=Range(d)
End Sub
Si quelqu'un peut m'aider
Merci