VBA : comment gérer les cellules vide ds un prog

[esftel]

Bonsoir le forum,

J'ai créé un petit programme VBA afin d'appliquer une couleur aux cellules avec des valeurs numériques et dates. Jusque là tout fonctionne.
Cependant losque la cellule est vide la couleur s'applique.

Je souhaiterais que pour les cellules vide il n'y ai aucune couleur.
Ou que mon prog ne tienne pas compte des cellules vides.

Merci de votre ou vos réponse.

Petit fichier joint pour exemple

 

[kjin]

Re : VBA : comment gérer les cellules vide ds un prog

Bonsoir,
Essaie comme ceci

Sub test()
n = ActiveSheet.UsedRange.Rows.Count

For i = 1 To n
  For c = 1 To 4
    m = Cells(i, c).Value
    Num = IsNumeric(m)
    d = IsDate(m)
        
    If Not IsEmpty(m) And Num = True Or d = True Then
    Cells(i, c).Interior.ColorIndex = 3
    Else
    Cells(i, c).Interior.ColorIndex = xlNone
    End If
  Next c
Next i

End Sub

A+
kjin

 

[esftel]

Re : VBA : comment gérer les cellules vide ds un prog

Bonsoir Kjin,

je viens d'essayer le prog et ca ne fonction pas.

je continue de chercher de mon coté, sauf si tu a une autre solution.

Un grand merci pour ta réponse.

A+

 

[kjin]

Re : VBA : comment gérer les cellules vide ds un prog

Re,

je viens d'essayer le prog et ca ne fonction pas.

As tu vu que j'avais modifié mon code, je n'avais pas correctement interprété ta requête à la première lecture
A+
kjin

 

[esftel]

Re : VBA : comment gérer les cellules vide ds un prog

Oups

Excuse, ca marche,

mon autre problème, c'est que ma cellule vide à déja une couleur que je souhaiterais garder.

hors dans la solution que tu me donne, la cellule est complètment vidé de toute mise en forme (couleur).

si tu as une solution pour ca,

merci encore pour ta réponse.

 

[vbacrumble]

Re : VBA : comment gérer les cellules vide ds un prog

Bonsoir


Crossposting
https://www.excel-downloads.com/threads/vba-couleur-pour-cellules-numerique.107955/

 

[kjin]

Re : VBA : comment gérer les cellules vide ds un prog

Re,
L'autre couleur est-ce uniquement pour les cellules vides ou celles qui contiennent du texte aussi ?
A+
kjin

 

[esftel]

Re : VBA : comment gérer les cellules vide ds un prog

Re Kjin,

pour les cellules vide et texte.

en effet je viens de m'appercevoir que les cellules texte devienne blanche aussi.

A+
esftel

 

[kjin]

Re : VBA : comment gérer les cellules vide ds un prog

Re,

pour les cellules vide et texte.
l

Alors dans la macro, remplace juste "xlNone" par l'index de ta couleur (34 je crois)
A+
kjin

 

[esftel]

Re : VBA : comment gérer les cellules vide ds un prog

kjin,

merci pour ta réponse, je vais faire un test.

cependant la couleur des cellules peuvent être différente au départ.

Un grand merci,

A+

 

[kjin]

Re : VBA : comment gérer les cellules vide ds un prog

Re,

cependant la couleur des cellules peuvent être différente au départ.

On pourrait pas faire un tir groupé parce qu'à ce rhytme...
Donc expliques complétement et concrétement le principe de ta mise en forme
A+
kjin

 

[esftel]

Re : VBA : comment gérer les cellules vide ds un prog

ok,

dans un premier temps j'ai un tableau dont les cellules de trois colonnes ont déja un font de couleur.

je souhaiterais appliquer une couleur (jaune par rouge) pour les cellules (de ces trois colonnes) numériques et dates et garder la couleur initiale pour les autres (vide ou texte).

En somme, dans le fichier exemple que j'ai donné, applique une couleur jaune pour tout le tableau.
Ensuite en executant la procédure VBA les nombres et dates change en Rouge et les autres (vide ou texte) reste en jaune.

Et pour cela j'ai besoin de le traduire en VBA pour incorporer cette mise en forme dans une autre procédure. Mais bon ca c'est une autre histoire.

Encore un grand merci pour ta patience.

A+
esftel

 

[esftel]

Re : VBA : comment gérer les cellules vide ds un prog

ok,


je souhaiterais appliquer une couleur (rouge par exemple) pour les cellules (de ces trois colonnes) numériques et dates et garder la couleur initiale pour les autres (vide ou texte).
esftel

je voulais dire (rouge par exemple).

désolé c'est un tard

 

[esftel]

Re : VBA : comment gérer les cellules vide ds un prog

Salut kjin,

j'ai fini par trouver une solution à mon problème en imbriquant mon programme ci dessous à une autre procédure VBA que j'utilise pour mon tableau.

merci encore pour ta patience et ton aide.

a+
esftel

Sub Compta()
'Applique un font de couleur aux cellules numériques et dates.
Range("A1").Select
n = Range(Selection, Selection.End(xlDown)).Count

For i = 1 To n
For c = 31 To 34
m = Cells(i, c).Value
num = IsNumeric(m)
d = IsDate(m)
If num = True Or d = True Then Cells(i, c).Interior.Color = 13434879
If m = "" Then Cells(i, c).Interior.Color = 16777164
Next c
Next i
Call Annuler
End Sub