Mettre un nombre minimum de caractères textbox

Bonjour cher forum,

J'aimerais si possible mettre un nombre égal de caractère à ce code; c'est-à-dire; pour un critère, ça sera 4 chiffres max, etc.

Ce code se trouve dans un userform et mets bien une barrière au bout du nombre max, mais pas de min, et si possible ajouter un msgBox

Private Sub CommandButton1_Click()

    For Each Ctl In Me.Controls
        If Ctl.Name Like "Cri_*" Then
            If Ctl.MaxLength > 0 _
            Then Ctl.Text = Left(Ctl.Text, Ctl.MaxLength)
            Range(Ctl.ControlTipText) = Ctl.Text
        End If
    Next
End Sub

Je lui fais bien dire qu'il y a un max mais pas un minimum, ça serait un code de ce type mais je ne sais pas comment je peux modifier le paramètre "MaxLength" :

    With Selection.Validation
        .Delete
        .Add Type:=xlValidateTextLength, AlertStyle:=xlValidAlertStop, _
        Operator:=xlEqual, Formula1:="4"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = "Erreur"
        .InputMessage = ""
        .ErrorMessage = "Veuillez saisir 4 chiffres."
        .ShowInput = True
        .ShowError = True
    End With

Merci pour votre aide

Bonsoir,

un petit fichier qui vous permettra peut-être d'avancer dans votre projet :

Dim Sortie As Boolean

Private Sub CommandButton1_Click()
    If Sortie = False Then TextBox1.SetFocus: Exit Sub
    MsgBox ("il y a au moins 4 caractères !")
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If Len(TextBox1) < 4 Then Sortie = False Else Sortie = True
End Sub

@ bientôt

LouReeD

Bonjour LouReeD,

Merci pour votre aide, c'est bien dans cet état d'esprit que j'ai besoin

4fichier-1.xlsx (10.71 Ko)
2fichier-2.xlsx (10.70 Ko)
3fichier-3.xlsx (10.69 Ko)

Je vous joins le fichier principal, accompagné de 3 fichiers destinataires, je pense que ça sera un peu plus clair sur le fonctionnement

Dans ce fichier, vous avez la possibilité d'ouvrir d'autres fichier d'un même dossier (en xlsx), puis de les imprimer.

Chaque fichier comporte un certain nombre de critères, et des cellules de destinations pour la saisie des données. Il y a la première ligne dédiée au nombre maximum de caractères. Par exemple, le critère 1 est de 4 caractère maximum, le critère 2 de 5 caractères chiffrés, etc.

Merci encore

Rechercher des sujets similaires à "mettre nombre minimum caracteres textbox"