Discussion :

[antonysansh]

Bonjour à tous,

J'ai dans un fichier une cellule qui doit être renseignée par l'utilisateur avec une contrainte sur le nombre de caractères de la saisie. Le contenu de cette cellule ne doit pas dépasser 60 caractères.

Dans un premier temps j'ai utilisé une macro du type :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Titre_def$
    If Target.Address = "$B$7" Then
        Titre_def = Target.Value
        If Len(Titre_def) > 60 Then
            MsgBox "mon message avec précision du nombre de caractères", vbInformation
            Target.Value = Left(Titre_def, 60)
            Target.Select
        End If
    End If
End Sub

Mais pour éviter du VB inutile je suis repassé sur une simple validation des données sur le nombre de caractères de la cellule.

Mon problème est qu'avec la validation de données, je ne sais pas informer l'utilisateur sur le nombre de caractère qu'il avait saisi pour qu'il puisse ensuite ajuster sa saisie.
Est-ce possible ? Et si oui comment ?

Merci d'avance à tous et bonne journée.

[Philippe Tulliez]

Bonjour,
Sans VBA, il n'y a pas (à ma connaissance) de possibilité d'informer l'utilisateur du nombre de caractères entré dans une cellule contrôlée pas l'outil validation de données. Il est bien entendu possible de prévoir une formule telle que NBCAR dans une cellule qui pourra renvoyer cette information.
Exemple En supposant que la cellule A2 soit la cellule concernée.

Code :

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

=SI(NBCAR(A2)>60;"Vous avez entré " & NBCAR(A2) & " caractères. (Le maximum autorisé est de 60)";"")

Tu peux bien entendu envoyer un message personnalisé du maximum autorisé dans l'outil en question.

[antonysansh]

Merci de ta réponse Philippe, savoir que ça n'existe pas c'est déjà ça

J'ai effectivement à la fois une cellule juste à côté de celle de saisie qui indique le nombre de caractères et un message personnalisé données.

Et je n'avais pas vu que lors de l'apparition du message personnalisé, la cellule avec la formule était bien mise à jour.

Merci beaucoup c'est