• Initiateur de la discussion Initiateur de la discussion gds35
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gds35

XLDnaute Impliqué
Re Pierrot , et mes AMIS du forum
J'ai recré un P'tit Usf , ne peux t'envoyer mon Prg Principal trop gros , dans le code en commentaire je t'indique mes désideratas;
A+ Cordialement
GéGé
 

Pièces jointes

Re : Re Test GSM

Re GéGé

tu aurais du rester sur le même fil, plus facile à suivre pour ceux qui sont intérressés. Remplaces le code existant dans le module de l'usf par celui ci :

Code:
Private Sub TextBox1_Change()
'myDearFriend!  -  www.mdf-xlpages.com
Static T As String
Dim OK As Boolean
Dim i As Byte
Const Chaine As String = "06.##.##.##.##"
    With TextBox1
        For i = 1 To 14
            If .Value Like Left(Chaine, i) Then
                OK = True
                Exit For
            End If
        Next i
        If OK Then T = .Value Else .Value = T
    End With
End Sub

@+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
9
Affichages
948
Réponses
9
Affichages
739
Réponses
4
Affichages
439
Réponses
5
Affichages
470
Réponses
2
Affichages
553
Retour