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

5 réponses
Avatar
Pierre B
Bjr,

Je suis arrivé à une mise en forme conditionnelle sur 10 criteres en VBA
mais elle s'execute par un bouton apres avoir rentré une valeur issue d'une
liste.

Comment faire pour que le declenchement soit automatique?

Merci de votre aide

Pierre
Signaler un problème avec ce contenu

5 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
Daniel
Bonjour.
Mets ton code dans la procédure événementielle et dans le code de la feuille
:
Private Sub Worksheet_Change(ByVal Target As Range)
Ton code
End Sub
Ajoute éventuellement en début de macro une ligne du genre :
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
qui restreint la plage sur laquelle la macro doit s'appliquer.
Cordialement.
Daniel
"Pierre B" a écrit dans le message
de news: 440ed15e$0$29196$
Bjr,

Je suis arrivé à une mise en forme conditionnelle sur 10 criteres en VBA
mais elle s'execute par un bouton apres avoir rentré une valeur issue
d'une liste.

Comment faire pour que le declenchement soit automatique?

Merci de votre aide

Pierre




Avatar
Pierre B
Je te remercie; mais je ne sais pas ce que c'est que de mettre "ton code
dans la procédure événementielle"; pourrai-tu m'expliquer ca??

Merci encore

Pierre


"Daniel" a écrit dans le message de news:
e%
Bonjour.
Mets ton code dans la procédure événementielle et dans le code de la
feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Ton code
End Sub
Ajoute éventuellement en début de macro une ligne du genre :
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
qui restreint la plage sur laquelle la macro doit s'appliquer.
Cordialement.
Daniel
"Pierre B" a écrit dans le message
de news: 440ed15e$0$29196$
Bjr,

Je suis arrivé à une mise en forme conditionnelle sur 10 criteres en VBA
mais elle s'execute par un bouton apres avoir rentré une valeur issue
d'une liste.

Comment faire pour que le declenchement soit automatique?

Merci de votre aide

Pierre








Avatar
Daniel
Clic droit sur l'onglet de la feuille et clic gauche sur "visualiser le
code". Tu copies la macro dans le rectangle de droite.
Si tu as encore un problème, dis-le et je t'enverrai un exemple.
Daniel
"Pierre B" a écrit dans le message
de news: 440efdcd$0$21306$
Je te remercie; mais je ne sais pas ce que c'est que de mettre "ton code
dans la procédure événementielle"; pourrai-tu m'expliquer ca??

Merci encore

Pierre


"Daniel" a écrit dans le message de news:
e%
Bonjour.
Mets ton code dans la procédure événementielle et dans le code de la
feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Ton code
End Sub
Ajoute éventuellement en début de macro une ligne du genre :
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
qui restreint la plage sur laquelle la macro doit s'appliquer.
Cordialement.
Daniel
"Pierre B" a écrit dans le
message de news: 440ed15e$0$29196$
Bjr,

Je suis arrivé à une mise en forme conditionnelle sur 10 criteres en VBA
mais elle s'execute par un bouton apres avoir rentré une valeur issue
d'une liste.

Comment faire pour que le declenchement soit automatique?

Merci de votre aide

Pierre












Avatar
Pierre B
merci beaucoup; ca devrait aller ...

cordialement

Pierre

"Daniel" a écrit dans le message de news:
%
Clic droit sur l'onglet de la feuille et clic gauche sur "visualiser le
code". Tu copies la macro dans le rectangle de droite.
Si tu as encore un problème, dis-le et je t'enverrai un exemple.
Daniel
"Pierre B" a écrit dans le message
de news: 440efdcd$0$21306$
Je te remercie; mais je ne sais pas ce que c'est que de mettre "ton code
dans la procédure événementielle"; pourrai-tu m'expliquer ca??

Merci encore

Pierre


"Daniel" a écrit dans le message de news:
e%
Bonjour.
Mets ton code dans la procédure événementielle et dans le code de la
feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Ton code
End Sub
Ajoute éventuellement en début de macro une ligne du genre :
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
qui restreint la plage sur laquelle la macro doit s'appliquer.
Cordialement.
Daniel
"Pierre B" a écrit dans le
message de news: 440ed15e$0$29196$
Bjr,

Je suis arrivé à une mise en forme conditionnelle sur 10 criteres en
VBA mais elle s'execute par un bouton apres avoir rentré une valeur
issue d'une liste.

Comment faire pour que le declenchement soit automatique?

Merci de votre aide

Pierre
















Avatar
Pierre B
Bjr,

EH bien non; ca ne va pas...... je n'ai pas compris comment on "met le code
dans la procedure evenementielle:

A toute fin utile voici mon code; comment le completer ???


Sub Conditionnel()
For Each Cellule In Selection
Select Case Cellule.Value
Case Is = "GI"
Cellule.Interior.ColorIndex = 46 ' Orange foncé
Case Is = "GF"
Cellule.Interior.ColorIndex = 19 'jaune clair
Case Is = "AS"
Cellule.Interior.ColorIndex = 45 ' orange moyen
Case Is = "CR"
Cellule.Interior.ColorIndex = 44 ' orange clair
Case Is = "CN"
Cellule.Interior.ColorIndex = 35 ' rouge
Case Is = "PA"
Cellule.Interior.ColorIndex = 8 ' bleu
Case Is = "CE"
Cellule.Interior.ColorIndex = 4 ' vert
Case Else
Cellule.Interior.ColorIndex = blank
End Select
Next Cellule
End Sub

Merci de votre aide

Cordialement

Pierre

"Pierre B" a écrit dans le message
de news: 440fef32$0$20177$
merci beaucoup; ca devrait aller ...

cordialement

Pierre

"Daniel" a écrit dans le message de news:
%
Clic droit sur l'onglet de la feuille et clic gauche sur "visualiser le
code". Tu copies la macro dans le rectangle de droite.
Si tu as encore un problème, dis-le et je t'enverrai un exemple.
Daniel
"Pierre B" a écrit dans le
message de news: 440efdcd$0$21306$
Je te remercie; mais je ne sais pas ce que c'est que de mettre "ton code
dans la procédure événementielle"; pourrai-tu m'expliquer ca??

Merci encore

Pierre


"Daniel" a écrit dans le message de news:
e%
Bonjour.
Mets ton code dans la procédure événementielle et dans le code de la
feuille :
Private Sub Worksheet_Change(ByVal Target As Range)
Ton code
End Sub
Ajoute éventuellement en début de macro une ligne du genre :
If Intersect(Target, Range("A1:A10")) Is Nothing Then Exit Sub
qui restreint la plage sur laquelle la macro doit s'appliquer.
Cordialement.
Daniel
"Pierre B" a écrit dans le
message de news: 440ed15e$0$29196$
Bjr,

Je suis arrivé à une mise en forme conditionnelle sur 10 criteres en
VBA mais elle s'execute par un bouton apres avoir rentré une valeur
issue d'une liste.

Comment faire pour que le declenchement soit automatique?

Merci de votre aide

Pierre