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

C

Compte Supprimé 979

Guest

• 13 Juin 2008

• #2

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 😉

Code:

  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+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Juin 2008

• #3

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

message édité

 

Dernière édition: 14 Décembre 2010

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 13 Juin 2008

• #4

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

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 13 Juin 2008

• #5

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

 

Vote positif 0 Vote négatif

C

Charly88

XLDnaute Occasionnel

• 10 Décembre 2013

• #6

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, ?)

 

Vote positif 0 Vote négatif