Boucle avec conditions sous vba

juliet -  
 juliet -
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
colorindex=1 ===> couleur noire
donc si tes données sont saisies en noir...

si tu veux masquer 2 correspond au blanc
0
juliet
 
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 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
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
juliet
 
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