pb vba.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : pb vba.

porcinet82

Je voudrai faire une vérification par exemple sur la colonne A des valeurs qui s'y trouvent. plus precisemment je voudrai surligner en jaune toutes les valeurs qui ne sont pas uniquement des nombres (chaine de caractères).

Publicité

knakes

Essaye cela :

Code :

For i = 1 To Range("A1" ).End(xlDown).Row
If IsNumeric(Range("A" & i).Value) = False Then
Range("A" & i).Font.Color = &HFFFF&
End If
Next i

Si al valeur est un nombre, rien ne se passe. Si la cellule est vide aussi. Si la cellule contient quelquechose qui n'est pas un nombre, le texte de celle-ci est mis en couleur (jaune ici). la couleur peut être donnée en Hexadécimal (&H........& ) ou "code vb" ( vbblue, vbred ..)
Si ta sélection concerne la colonne " G ", il faut changer les " A " et mettre " G " a la place.
Si ta sélection commence à la ligne " 3 ", il faut remplacer le " 3 " au début de la boucle (For i = 3 ..).
Si ta sélection s'arrête à la ligne " 48 ", il faut remplacer " Range("A1" ).End(xlDown).Row " par " 48 ".
Désolé si tu savais tout cela mais c pour que tous le monde puisse comprendre.
Voila.

porcinet82

Ok merci pour ta solution, ca marche bien.
le pb c que qq fois je peux avoir dans la meme cellule un chiffre et une lettre (ex: 4a).
je voudrai que dans ce cas de figure, il se mette d'une autre couleur

porcinet82

Pour info g essayé de passer par un une affectation ds une variable d'un "right$(nom var, 1)" et de tester cette valeur mais je compren pas pkoi ca veu pas marcher

voila mon prog :

For i = 2 To 15
If IsNumeric(Range("A" & i).Value) = False Then
Range("A" & i).Font.Color = vbRed
AnyString = Selection.Offset(0, 0).Value
MyStr = Right(AnyString, 1)
If MyStr = (IsNumeric(Range("A" & i).Value) = False) Then
Range("A" & i).Font.Color = vbGreen
End If
End If
Next i

knakes

Il suffit de demander

Code :

For i = 1 To Range("A1" ).End(xlDown).Row
If IsNumeric(Range("A" & i).Value) = False Then
For j = 1 To Len(Range("A" & i).Value)
If IsNumeric(Left(Right(Range("A" & i).Value, j), 1)) = True Then
Range("A" & i).Font.Color = vbRed
Exit For
End If
Next j
If Not Range("A" & i).Font.Color = vbRed Then
Range("A" & i).Font.Color = vbBlue
End If
End If
Next i

Voila même explication que tout a l'heure.
Sauf que si la valeur n'est pas un nombre, on décompose la chaîne. Si un des caractère est un nombre alors on affecte la couleur rouge.
Si la chaine n'a pas de rouge, elle est bleue (elle ne contient que du texte). Si c'est un nombre, la cellule reste noire.
Par contre, si une des cellule est vide, la boucle s arrête.
Mais bon, voila.