anthoYS
XLDnaute Barbatruc
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).
Merci
à+
... 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).
Code:
[/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 SubMerci
à+