Bonjour à toutes et tous.
J'ai une plage de cellule à copier qui se situe dans une autre feuille de nom connu dans le même classeur.
Le hic c'est de préciser à la souris la cellule début de la plage. Ce choix doit être fait manuellement à la souris et non automatiquement.
Voici le code à l'état actuel :
Sub Copie_Data()
'
' Copie_Data Macro
'
'
c = ActiveSheet.Name
Sheets("Mesures").Select
' ici mettre le fonction qui attend la sélection de cellule début'
a = ActiveCell.Row
b = ActiveCell.Column
Range(ActiveCell, Cells(a + 9, b)).Select
Selection.Copy
Worksheets(c).Activate
' ici mettre le fonction qui attend la sélection de cellule début de collage'
ActiveSheet.Paste
End Sub
J'ai une plage de cellule à copier qui se situe dans une autre feuille de nom connu dans le même classeur.
Le hic c'est de préciser à la souris la cellule début de la plage. Ce choix doit être fait manuellement à la souris et non automatiquement.
Voici le code à l'état actuel :
Sub Copie_Data()
'
' Copie_Data Macro
'
'
c = ActiveSheet.Name
Sheets("Mesures").Select
' ici mettre le fonction qui attend la sélection de cellule début'
a = ActiveCell.Row
b = ActiveCell.Column
Range(ActiveCell, Cells(a + 9, b)).Select
Selection.Copy
Worksheets(c).Activate
' ici mettre le fonction qui attend la sélection de cellule début de collage'
ActiveSheet.Paste
End Sub