Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Mise en forme conditionnelle

Mise en forme conditionnelle

6 réponses
Avatar
Françoise
Bonjour, je voudrais faire avec VBA un genre de mise en forme
conditionnelle. La mise en forme conditionnelle ne me convient pas car je ne
peux changer la police de caractère et en plus on a droit qu'à 3 mise en
formes. VBA pourrait répondre à mes désirs mais j'ai un problème de syntaxe.
Je bloque. Voici mon problème, je saisi dans des cellules des chiffres et je
souhaiterais que le contenu de ces cellules ayant des chiffres soit
remplacer par du texte : windgings qui représentent des smileys, soit 2 soit
3 soit d'une forme soit d'une autre et avec un fond de couleur. Si quelqu'un
pouvait m'aider ce serait sympathique car je n'arrive pas à grand chose
toute seule. Merci beaucoup.
Signaler un problème avec ce contenu

6 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
Avatar
Dédé
Salut Françoise !

Voici un syntaxe en exemple pour la mise en forme conditionnelle par VBA ...

Private Sub Worksheet_Change(ByVal DD As Range)
If Not Intersect(DD, [B1:B10]) Is Nothing Then
If DD.Count > 1 Then Exit Sub
Select Case DD.Value
Case Is = "Toto"
DD.Interior.ColorIndex = 5
Case Is = "Tutu"
DD.Interior.ColorIndex = 3
Case Is = "Titi"
DD.Interior.ColorIndex = 4
Case Is = "Tata"
DD.Interior.ColorIndex = 6
Case Is = "Bobo"
DD.Interior.ColorIndex = 3
DD.Font.ColorIndex = 2
DD.Font.Bold = 2
MsgBox "Aie aie aie ;-) !"
End Select
End If
End Sub

Si tu a des questions, tu peux toujours revenir ....

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Françoise" a écrit dans le message de
news:bmjurg$vvg$
Bonjour, je voudrais faire avec VBA un genre de mise en forme
conditionnelle. La mise en forme conditionnelle ne me convient pas car je
ne

peux changer la police de caractère et en plus on a droit qu'à 3 mise en
formes. VBA pourrait répondre à mes désirs mais j'ai un problème de
syntaxe.

Je bloque. Voici mon problème, je saisi dans des cellules des chiffres et
je

souhaiterais que le contenu de ces cellules ayant des chiffres soit
remplacer par du texte : windgings qui représentent des smileys, soit 2
soit

3 soit d'une forme soit d'une autre et avec un fond de couleur. Si
quelqu'un

pouvait m'aider ce serait sympathique car je n'arrive pas à grand chose
toute seule. Merci beaucoup.




Avatar
Pascal
Salut Françoise
A la Place de DD, le zz marche auusi mais il faut changer tous les DD en zz
sinon à la place de DD tu mets ff ou autre pour Françoise.
Le DD n'étant qu'un nom que tu définis toi-même donc paramètres persos

Zork

"Dédé" a écrit dans le message de news:
#
Salut Françoise !

Voici un syntaxe en exemple pour la mise en forme conditionnelle par VBA
...


Private Sub Worksheet_Change(ByVal DD As Range)
If Not Intersect(DD, [B1:B10]) Is Nothing Then
If DD.Count > 1 Then Exit Sub
Select Case DD.Value
Case Is = "Toto"
DD.Interior.ColorIndex = 5
Case Is = "Tutu"
DD.Interior.ColorIndex = 3
Case Is = "Titi"
DD.Interior.ColorIndex = 4
Case Is = "Tata"
DD.Interior.ColorIndex = 6
Case Is = "Bobo"
DD.Interior.ColorIndex = 3
DD.Font.ColorIndex = 2
DD.Font.Bold = 2
MsgBox "Aie aie aie ;-) !"
End Select
End If
End Sub

Si tu a des questions, tu peux toujours revenir ....

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!

ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)


&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Françoise" a écrit dans le message de
news:bmjurg$vvg$
Bonjour, je voudrais faire avec VBA un genre de mise en forme
conditionnelle. La mise en forme conditionnelle ne me convient pas car
je


ne
peux changer la police de caractère et en plus on a droit qu'à 3 mise en
formes. VBA pourrait répondre à mes désirs mais j'ai un problème de
syntaxe.

Je bloque. Voici mon problème, je saisi dans des cellules des chiffres
et


je
souhaiterais que le contenu de ces cellules ayant des chiffres soit
remplacer par du texte : windgings qui représentent des smileys, soit 2
soit

3 soit d'une forme soit d'une autre et avec un fond de couleur. Si
quelqu'un

pouvait m'aider ce serait sympathique car je n'arrive pas à grand chose
toute seule. Merci beaucoup.








Avatar
Christian M
Dédé,
Tu ne t'es pas trompé de destinataire ? Je ne m'appelle pas Françoise (enfin
pas à ce que je sache....)
Celà ne répond malheureusement pas à ma question


Christian M
-------------------------------
"Dédé" a écrit dans le message de news:
#
Salut Françoise !

Voici un syntaxe en exemple pour la mise en forme conditionnelle par VBA
...


Private Sub Worksheet_Change(ByVal DD As Range)
If Not Intersect(DD, [B1:B10]) Is Nothing Then
If DD.Count > 1 Then Exit Sub
Select Case DD.Value
Case Is = "Toto"
DD.Interior.ColorIndex = 5
Case Is = "Tutu"
DD.Interior.ColorIndex = 3
Case Is = "Titi"
DD.Interior.ColorIndex = 4
Case Is = "Tata"
DD.Interior.ColorIndex = 6
Case Is = "Bobo"
DD.Interior.ColorIndex = 3
DD.Font.ColorIndex = 2
DD.Font.Bold = 2
MsgBox "Aie aie aie ;-) !"
End Select
End If
End Sub

Si tu a des questions, tu peux toujours revenir ....

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!

ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)


&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Françoise" a écrit dans le message de
news:bmjurg$vvg$
Bonjour, je voudrais faire avec VBA un genre de mise en forme
conditionnelle. La mise en forme conditionnelle ne me convient pas car
je


ne
peux changer la police de caractère et en plus on a droit qu'à 3 mise en
formes. VBA pourrait répondre à mes désirs mais j'ai un problème de
syntaxe.

Je bloque. Voici mon problème, je saisi dans des cellules des chiffres
et


je
souhaiterais que le contenu de ces cellules ayant des chiffres soit
remplacer par du texte : windgings qui représentent des smileys, soit 2
soit

3 soit d'une forme soit d'une autre et avec un fond de couleur. Si
quelqu'un

pouvait m'aider ce serait sympathique car je n'arrive pas à grand chose
toute seule. Merci beaucoup.








Avatar
AV
Si en D3:AH3 tu as les jours écrits en "dur" (lundi; mardi.) et non des dates
formatées :
Sélection D5:AH29 > MFC > Formule :
=D$3="Dimanche"
Motif > ok


AV

Avatar
Dédé
Salut Christian !

J'ai répondu à Françoise !! regarde bien tu verra que mon post est en
réponse au post de Françoise ...

Mais pour ta question, si c'est pas la même question que celle de françoise,
essaie de recréer un nouveau post ... M'enfin bon, la nétiquette quoi ..!

Pour ce qui est de ta question, dans une semaine, il y a 7 jours !! et avec
ce nombre, tu dépasse les limites des MFC donc, une seule solution est de
passer par VBA donc, la solution donnée à François devrait te convenir en la
modifiant d'après ton cas ;-)

Si tu a des problème concernant cette procédure et l'application à ton cas,
tu peux toujours venir ici et on verra ce que je peux te proposer d'autre
;-))

Alle, bonne journée et à +

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Christian M" a écrit dans le message de
news:%
Dédé,
Tu ne t'es pas trompé de destinataire ? Je ne m'appelle pas Françoise
(enfin

pas à ce que je sache....)
Celà ne répond malheureusement pas à ma question


Christian M
-------------------------------
"Dédé" a écrit dans le message de news:
#
Salut Françoise !

Voici un syntaxe en exemple pour la mise en forme conditionnelle par VBA
...


Private Sub Worksheet_Change(ByVal DD As Range)
If Not Intersect(DD, [B1:B10]) Is Nothing Then
If DD.Count > 1 Then Exit Sub
Select Case DD.Value
Case Is = "Toto"
DD.Interior.ColorIndex = 5
Case Is = "Tutu"
DD.Interior.ColorIndex = 3
Case Is = "Titi"
DD.Interior.ColorIndex = 4
Case Is = "Tata"
DD.Interior.ColorIndex = 6
Case Is = "Bobo"
DD.Interior.ColorIndex = 3
DD.Font.ColorIndex = 2
DD.Font.Bold = 2
MsgBox "Aie aie aie ;-) !"
End Select
End If
End Sub

Si tu a des questions, tu peux toujours revenir ....

Salutations
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!



ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)




&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/

"Françoise" a écrit dans le message de
news:bmjurg$vvg$
Bonjour, je voudrais faire avec VBA un genre de mise en forme
conditionnelle. La mise en forme conditionnelle ne me convient pas car
je


ne
peux changer la police de caractère et en plus on a droit qu'à 3 mise
en



formes. VBA pourrait répondre à mes désirs mais j'ai un problème de
syntaxe.

Je bloque. Voici mon problème, je saisi dans des cellules des chiffres
et


je
souhaiterais que le contenu de ces cellules ayant des chiffres soit
remplacer par du texte : windgings qui représentent des smileys, soit
2



soit
3 soit d'une forme soit d'une autre et avec un fond de couleur. Si
quelqu'un

pouvait m'aider ce serait sympathique car je n'arrive pas à grand
chose



toute seule. Merci beaucoup.












Avatar
Christian M
Merci AV
J'avais oublié de mettre le signe = devant ma formule. Je me suis déjà fais
piégé plusieurs fois...

Merci encore

--
Christian M
-------------------------------
"AV" a écrit dans le message de news:
bo64mg$2i6$
Si en D3:AH3 tu as les jours écrits en "dur" (lundi; mardi.) et non des
dates

formatées :
Sélection D5:AH29 > MFC > Formule :
=D$3="Dimanche"
Motif > ok


AV