Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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 !
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é
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