Comment modifier ce code pour ...

[anthoYS]

Bonjour,

... ce ne soit valable qu'en A (double clic en A, mettre le texte de B en gras et permettre l'ajout d'un texte -voir ci-dessous les explications-) ?

Et aller à la ligne pour le commentaire saisi après avoir affiché automatiquement le texte d'A ?
Peut on mettre en gras uniquement le texte d'A (pas le commentaire saisi à la ligne).

[/FONT][/COLOR]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
textee = Target.Value & " " & InputBox("Commentaire")
With Target
If .Comment Is Nothing Then
.AddComment (textee)
End If
SendKeys "%im"
End With
Target.Font.Bold = True
Target.Offset(1, 0).Select
End If

End Sub

Merci
à+ 😉

 

[eriiic]

Re : Comment modifier ce code pour ...

Bonjour,

Réponse ici : Quel code pour ajouter un commentaire par double-clic ?
Très bonne soirée à toi.
eric