Re : Insertion commentaire en macro plusieurs cellules sélectionnées
Bonjour Dranreb,
D'abord merci, pour votre réponse aussi rapide.
J'ai essayer d'adapter ma macro avec votre réponse mais je pense que je dois faire une erreur dans la syntaxe de commande.
Voici les lignes de la macro en interface graphique:
Sub comment()
'
' comment Macro
'
ActiveSheet.Unprotect
Range("E14").Select
Selection.Copy
Range("F25,F24,I24:I25").Select
Range("I24").Activate
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Dois-je remplacer :
Range("F25,F24,I24:I25").Select
Range("I24").Activate
par :
Range(Selection.ActiveCell).Select
Range("C10").Activate <== "C10" car c'est la cellule où je saisie la date de la semaine.
Merci pour votre réponse.
David