Boucle avec conditions sous vba

Fermé
juliet - 30 juin 2010 à 16:42
 juliet - 1 juil. 2010 à 15:36
Bonjour,

J'ai écrit ca sous vb mais rien ne se passe, pas de message d'erreur
i = 1
Do While Worksheets("Feuil1").Cells(i, 3) <> ""
If IsNumeric(Worksheets("Feuil1").Cells(i, 3).Value) Then
Worksheets("Feuil1").Cells(i, 3).Font.ColorIndex = 1
End If
i = i + 1
Loop

Encore merci de vos aides

4 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
30 juin 2010 à 17:16
colorindex=1 ===> couleur noire
donc si tes données sont saisies en noir...

si tu veux masquer 2 correspond au blanc
0
Bonjour,

Mais ce n'est pas masquer que je veux faire, mais le format de cellule d'originie est écriture blanche et moi je veux que quand la cellule est numérique alors l'écriture est noire.

Merci
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
1 juil. 2010 à 15:25
Bonjour,

Comment voulais tu que je le sache ?

1/la macro marche mais il faut que tu aies des données en C1 (i=1)
2/ les valeurs inscrites dans la colonne C sont elle issues de formules? si oui, lesquelles
3/ teste dans une cellule si les valeurs sont bien numériques genre =estnum(C2)


4/a noter que tu pourrais peut-^tre utiliser les mises en formes conditionnelles
0
Effectiviment je n'avais rien C1, donc c'est bon je remanié pour que ca marche.

C'est impec, pour le mise en forme conditionnelle, j'y avais bien pensé mais c'étais trop compliqué.

Merci pour cette info, qui me débloque sur beaucoup de choses
0