Bonjour,
Je cherche a effectuer cette fonction dans une plage de données et non dans la feuille entière, hélas je ne trouve pas de solution équivalente ...
Code :
- 'Gestion du changement dans la liste de defilement
- Private Sub Worksheet_Change(ByVal Target As Range)
- Dim CurrentCell As String
- 'Valeur de la cellule en selection
- CurrentCell = Target.Value
- If CurrentCell = "Mep-Prod" Or CurrentCell = "Mep-Test" Then
- Commentaire.CommentaireTextBox.Value = ""
- Commentaire.Show
- 'Gestion d'erreur pour les commentaires vides
- If Commentaire.CommentaireTextBox.Value <> "" Then
- Range(ActiveCell.Address).AddComment
- Range(ActiveCell.Address).Comment.Visible = False
- Range(ActiveCell.Address).Comment.Text Text:=Commentaire.CommentaireTextBox.Value
- End If
- End If
- End Sub
|
Quelqu'un aurait il une solution ?
Merci !
Message édité par spolnix le 05-04-2011 à 16:33:36
---------------
L’impossible est déjà fait, pour les miracles prévoir un délai.