natorp
XLDnaute Accro
Bjr à tous et toutes
J'ai trouvé ça sur le fil :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("B3")
If .Comment Is Nothing Then
.AddComment
.Comment.Text Text:="Libre à " & Range("ak3").Value
.Comment.Shape.TextFrame.AutoSize = True
End If
End With
End Sub
mon soucis maintenant c'est de mettre ce commentaire sur toutes les cellules de la plage b3:af18
qui reprennent le contenu de la plage : ak3:bo18
merci de votre aide, Gérard
J'ai trouvé ça sur le fil :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Range("B3")
If .Comment Is Nothing Then
.AddComment
.Comment.Text Text:="Libre à " & Range("ak3").Value
.Comment.Shape.TextFrame.AutoSize = True
End If
End With
End Sub
mon soucis maintenant c'est de mettre ce commentaire sur toutes les cellules de la plage b3:af18
qui reprennent le contenu de la plage : ak3:bo18
merci de votre aide, Gérard
Dernière édition: