Discussion :

[mikedavem]

Bonsoir tout le monde,

Y'a t il un moyen simple de limiter le nombre de caractères dans un commentaire ?

Merci d'avance

[jfontaine]

Tu peux utiliser cette méthode
Ici on limite a 10 caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Gerreur
 
If Len(Target.Comment.Text) > 10 Then
    Target.Comment.Text Text:=Left(Target.Comment.Text, 10)
End If
 
Gerreur:
 
End Sub

[mikedavem]

effectivement ca fonctionne apres adaptation de ton code à mon problème

merci

Voici mon code si ca intéresse quelqu'un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
Public Sub commentaires_limitation()
 
   Dim commentaire As String
   Dim cellule_commentaire As Range
 
   ' Parcours des cellules à vérifier
   ' Si la cellule n'est pas vérouillée , qu'elle possède une valeur 
   ' et qu'il existe un commentaire dans cette cellule
   For Each cellule_commentaire In Range("E20:O35,H41:H48")
      If (cellule_commentaire.Locked = False) And _
         cellule_commentaire.Value <> "") And _
         (Not (cellule_commentaire.Comment Is Nothing) _
      Then
             commentaire = cellule_commentaire.Comment.Text
             ' Vérification de la longueur du commentaire
             If Len(commentaire) > 50 Then
                   Goto label_error_commentaires
             End If
       End If
    Next
 
    Exit Sub
 
   label_error_commentaires:
         ' Notification utilisateur
         MsgBox "Les commentaires sont limités à 50 caractères"
         ' ... code pour modifier le commentaire
 End Sub

Procédure à placer bien sûr dans Worksheet_SelectionChange