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
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 code n'est pas complet j'ai mis que le passage qui plante)
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