Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Pb de mise en forme conditionnelle

Pb de mise en forme conditionnelle

13 réponses
Avatar
Ben
Bonjour!!

Je voudrais faire une mise en forme conditionnelle par
macro (en VBA).
Voici le code qu'il faut corriger:
-----------------------------------------------
With Range(Cells(sumLine, "CJ"), Cells(sumLine,
"CL")).FormatConditions.Add(xlCellValue, xlGreaterEqual, 40)
With .Interior
.ColorIndex =3D 3
End With
With .Font
.ColorIndex =3D 2
End With
End With
-----------------------------------------------
NB : sumline correspond =E0 un num=E9ro de ligne

Apparemment il y a une erreur dans mon premier "With" mais
je ne vois pas o=F9.
Si jamais vous voyez cette erreur, merci d'avance.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Emcy
Et ma solution, elle est pas bien ?


"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Si tu persistes à essayer avec le code tel qu'il était écrit, tu auras
toujours cette erreur puisque ton With n'est pas lié à un objet Range.
As-tu essayé avec ce que je t'ai proposé ?

Cordialement
Pascal

"Ben" a écrit dans le message de
news:681901c47568$10895220$
J'ai essayé ça, mais ça ne marche pas. le message d'erreur
qui s'affiche est : l'objet ou l'application n'est pas défini.

-----Message d'origine-----
Salut Ben,

Si je ne me trompe, cell accepte Ligne et colonne en long

Donc sumLine doit étre un nombre(>0) et remplace "CJ" par 88

A+


Ben wrote:
Bonjour!!

Je voudrais faire une mise en forme conditionnelle par
macro (en VBA).
Voici le code qu'il faut corriger:
-----------------------------------------------
With Range(Cells(sumLine, "CJ"), Cells(sumLine,
"CL")).FormatConditions.Add(xlCellValue, xlGreaterEqual, 40)
With .Interior
.ColorIndex = 3
End With
With .Font
.ColorIndex = 2
End With
End With
-----------------------------------------------
NB : sumline correspond à un numéro de ligne

Apparemment il y a une erreur dans mon premier "With" mais
je ne vois pas où.
Si jamais vous voyez cette erreur, merci d'avance.




.








Avatar
papou
Emcy
A vue de nez, je pense qu'avec ton code la mise en forme avec les couleurs
définies s'appliquera même si le critère n'est pas rempli ;-)
Hors il s'agit bien pour Ben de n'appliquer ses couleurs que dans le cas
d'une valeur >= 40.

Cordialement
Pascal

"Emcy" a écrit dans le message de
news:
Et ma solution, elle est pas bien ?


"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Si tu persistes à essayer avec le code tel qu'il était écrit, tu auras
toujours cette erreur puisque ton With n'est pas lié à un objet Range.
As-tu essayé avec ce que je t'ai proposé ?

Cordialement
Pascal

"Ben" a écrit dans le message de
news:681901c47568$10895220$
J'ai essayé ça, mais ça ne marche pas. le message d'erreur
qui s'affiche est : l'objet ou l'application n'est pas défini.

-----Message d'origine-----
Salut Ben,

Si je ne me trompe, cell accepte Ligne et colonne en long

Donc sumLine doit étre un nombre(>0) et remplace "CJ" par 88

A+


Ben wrote:
Bonjour!!

Je voudrais faire une mise en forme conditionnelle par
macro (en VBA).
Voici le code qu'il faut corriger:
-----------------------------------------------
With Range(Cells(sumLine, "CJ"), Cells(sumLine,
"CL")).FormatConditions.Add(xlCellValue, xlGreaterEqual, 40)
With .Interior
.ColorIndex = 3
End With
With .Font
.ColorIndex = 2
End With
End With
-----------------------------------------------
NB : sumline correspond à un numéro de ligne

Apparemment il y a une erreur dans mon premier "With" mais
je ne vois pas où.
Si jamais vous voyez cette erreur, merci d'avance.




.












Avatar
Emcy
ben non, ça à l'air de marcher : j'ai juste remplacé les with par un objet
avec set

"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:e$
Emcy
A vue de nez, je pense qu'avec ton code la mise en forme avec les couleurs
définies s'appliquera même si le critère n'est pas rempli ;-)
Hors il s'agit bien pour Ben de n'appliquer ses couleurs que dans le cas
d'une valeur >= 40.

Cordialement
Pascal

"Emcy" a écrit dans le message de
news:
Et ma solution, elle est pas bien ?


"papou" <cestpasbonprobin@çanonpluscg44.fr> a écrit dans le message de
news:
Si tu persistes à essayer avec le code tel qu'il était écrit, tu auras
toujours cette erreur puisque ton With n'est pas lié à un objet Range.
As-tu essayé avec ce que je t'ai proposé ?

Cordialement
Pascal

"Ben" a écrit dans le message de
news:681901c47568$10895220$
J'ai essayé ça, mais ça ne marche pas. le message d'erreur
qui s'affiche est : l'objet ou l'application n'est pas défini.

-----Message d'origine-----
Salut Ben,

Si je ne me trompe, cell accepte Ligne et colonne en long

Donc sumLine doit étre un nombre(>0) et remplace "CJ" par 88

A+


Ben wrote:
Bonjour!!

Je voudrais faire une mise en forme conditionnelle par
macro (en VBA).
Voici le code qu'il faut corriger:
-----------------------------------------------
With Range(Cells(sumLine, "CJ"), Cells(sumLine,
"CL")).FormatConditions.Add(xlCellValue, xlGreaterEqual, 40)
With .Interior
.ColorIndex = 3
End With
With .Font
.ColorIndex = 2
End With
End With
-----------------------------------------------
NB : sumline correspond à un numéro de ligne

Apparemment il y a une erreur dans mon premier "With" mais
je ne vois pas où.
Si jamais vous voyez cette erreur, merci d'avance.




.
















1 2