Position du premier caracrère numérique d'une chaine

[YANN-56]

Bonsoir à tous,
Je cherche simplement à trouver la position du premier caractère
numérique dans un label ou un textbox de mon USF.

Merci beaucoup par avance...

Yann

P.S. Nouvel inscrit, je ne suis pas certain de savoir
retrouver où il se peut qu'il me soit répondu.

 

[Compte Supprimé 979]

Re : Position du premier caracrère numérique d'une chaine

Salut Yann-56

Pour connaitre la position du premier caractere numerique, il te faut tester chaque caractere un par un 😉

  VStr = Me.TextBox1
  For I = 1 To Len(VStr)
    If IsNumeric(Mid(VStr, I, 1)) Then
      MsgBox "Position du premier chiffre dans : " & VStr & " = " & I
    End If
  Next I

A+

 

[Staple1600]

Re : Position du premier caracrère numérique d'une chaine

message édité

 

[YANN-56]

Re : Position du premier caracrère numérique d'une chaine

Bonsoir Bruno & Staple

Merci d'avoir pris la peine de me répondre;
c'est sympa!

J'ai mis en place la macro de Bruno.
Cela fonctionne comme je le cherchais.

Quant à toi Staple; je vais voir la différence et pomper
les enseignements pour apprendre.

Grand Merci à vous, et bonne soirée.

Yann

 

[YANN-56]

Re : Position du premier caracrère numérique d'une chaine

Finalement dans mon Appli:

Private Sub CommandButton1_Click()
For i = 1 To Len(UserForm1.TextBox1.Text)
If IsNumeric(Mid(UserForm1.TextBox1.Text, i, 1)) Then
UserForm1.Label1.Caption = i
Exit Sub
End If
Next i
End Sub

Super !!!!!

Merci encore

Yann

 

[Charly88]

Re : Position du premier caracrère numérique d'une chaine

Bonsoir, pour le même besoin : il n'existe aucun caractère en VBA pour désigner les valeurs numériques en général ?
J'ai trouvé cette combinaison boucle + IsNum + mid à plusieurs reprises sur le net donc j'en doute mais je préfère demain au cas où. Je pensais au départ prendre un raccourci avec un instr(machaine, ?)