Soucis de char

[teodormircea]

J'ai une macros qui doit me trouver des char definit a l'avance
Sub AD_char()
Dim c As Range
Dim caractere As Variant
Dim i, j As Byte

caractere = Array("&", "*", ",", ".", "@", "$", "#", "?", ":", "'", "!", ";", ")", "(", "[", "]", "-", "_", "+")

For Each c In Range("A2:A65000")
c.Interior.ColorIndex = -4142
For i = 1 To Len(c)
For j = 0 To UBound(caractere)
If Mid(c, i, 1) = caractere(j) Then
c.Interior.ColorIndex = 7


End If
Next j
Next i
Next c

End Sub
mais ca me detecte pas ce genre de char 7.72502E+11
aussi est-ce que il ya la possibilite d\avoir dans la feuille apres le filtre que le celules filtres.

Merci

 

[chuinul]

Re : Soucis de char

7.72502E+11 n'est pas un char et n'en contient pas!

Dans la mémoire du pc, ce chiffre est un entier, donc seulement composé de chiffres.

l'écriture 7.72502E+11 est seulement une mise en forme faite par Excell, mais il n'est pas écrit sous cette forme dans la mémoire d'Excel, c'est donc normal que ce chiffre ne soit pas détecté

 

[teodormircea]

Re : Soucis de char

Oui t'as raison c'est le format scientifique il fau juste modifier le format de celule.
COMMENT JE FAIS POUR GARDER APRES LE FILTRE JUSTE LE RESULTAT ET PAS TOUTE LA PAGE

 

[mutzik]

Re : Soucis de char

Bonjour à tous et bonne année

pourquoi tu ne supprimes pas la ligne si elle ne t'intéresse plus (ou la déplacer dans une autre feuille)

 

[teodormircea]

Re : Soucis de char

j\ai pas baison de les effacer c\est juste pour ca que j'ai fait le filtre et eassayer de le faire manuelement sur un fichier qui se rapproche de la limite de 65000, je voudrais bien profiter de ma jeunesse.