Bonjour
Voila j'essaye de faire un programme permettant (entre autre) de verifier pour chaque cellule qu'aucun chiffre ne soit "seul" cad qu'il y ait toujours une lettre collé avant ou apres. J'ai fait ca
(Le code n'est pas complet j'ai mis que le passage qui plante)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 For i = 3 To n - 1 j = 6 c = Cells(i, j).value m = Len(c) For l = 1 To m d = Mid(c, l, 1) If IsNumeric(d) = True Then e = Val(Mid(c, l)) If c Like "* " & e & " *" = True Or c Like e & " *" = True Or c Like "* " & e = True Or c Like "* 0" & e = True Then Cells(i, j).Select
Le probleme c'est quand j'arrive a la cellule contenant "ETG6E 1265" a ce moment la j'ai le message "erreur 6 depassement de capacité" (sur la ligne e = Val(Mid(c, l)) )
Je pense que ca vient du fait qu'il interprete "6E 1265" comme "6^1265" ou quelque chose comme ca mais je n'ai aucune idée de comment regler ce probleme...
Si vous avez une idée je bloque completement...
Merci d'avance![]()
Partager