Bonjour a tous
J'ai un probleme dans ma fonction VBA. La fonction doit prendre une chaine de caractere contenue dans une cellule puis extraire chaque caractere numerique. Le code bug ici :
Normalement, le code parcour chaque cellule du fichieret chaque caractere de chaque cellule, c'est pour simplifier que je n'ai mis que la valeur qui pose probleme.
En fait je voudrais qu'il me renvoit ici e=2 (le neuvieme caractere), mais la il me met "erreur d'execution 6 : dépassement de capacité".
Je ne comprend pas pourquoi, ce code marche tres bien sur n'importe quelle autre cellule c'est juste celle la qu'il n'aime pas... Et comme e est déclaré en string et c et l en double je ne comprend vraiment pas...
Si vous avez une idée je suis preneur !
Merci d'avance
J'ai un probleme dans ma fonction VBA. La fonction doit prendre une chaine de caractere contenue dans une cellule puis extraire chaque caractere numerique. Le code bug ici :
Code:
Sub azerty()
Dim e As String
Dim c As String
Dim l As Long
c = "BAT3 ETG2D 3062D"
l = 9
e = Val(Mid(c, l))
End Sub
En fait je voudrais qu'il me renvoit ici e=2 (le neuvieme caractere), mais la il me met "erreur d'execution 6 : dépassement de capacité".
Je ne comprend pas pourquoi, ce code marche tres bien sur n'importe quelle autre cellule c'est juste celle la qu'il n'aime pas... Et comme e est déclaré en string et c et l en double je ne comprend vraiment pas...
Si vous avez une idée je suis preneur !
Merci d'avance