Format conditionnel spécifique!besoin de macro ou pas?

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion idimpact
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
I

idimpact

Guest
Salut le forum!

Voici mon soucis :

Aujourd'hui dans mon tableau j'utilise la mise en forme conditionnelle pour colorier ma ligne si la valeur de la colonne E correspond à "test".

Si la ligne 5 est coloriée et que A4=A5 alors je veux colorier la ligne 4 et ainsi de suite😎

Vous trouverez un exemple en piece jointe
 
Trier par date Trier par votes
Re : Format conditionnel spécifique!besoin de macro ou pas?

Rebonjour,

S'il y a plusieurs valeurs (conditions MFC) en colonne E, on peut utiliser :

Code: 
Sub EtendreTest()
Dim plage As Range, d As Object, cel As Range, txt$
Application.ScreenUpdating = False
On Error Resume Next
Set plage = [E2:E65536].SpecialCells(xlCellTypeConstants, 2)
Set d = CreateObject("Scripting.Dictionary")
For Each cel In plage.Offset(, -4)
  If Not d.Exists(cel.Value) Then
    txt = cel
    d.Add txt, txt
    [A:A].Replace txt, 1, LookAt:=xlWhole
    Set plage = [A:A].SpecialCells(xlCellTypeConstants, 1)
    plage.Offset(, 4) = cel.Offset(, 4)
    plage = txt
  End If
Next
End Sub
Fichier (5).

Edit : si l'on veut plus de 3 conditions pour la MFC, il faut utiliser Excel 2007 ou suivantes.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

merci job 75!

Pour le format conditionnel, je suis sous 2007 donc pas de problèmes sur le nombre de conditions.

J'ai un soucis avec la macro, par exemple si je tape des valeur en E2 et E4 et en E5 je rentre la valeur "test3". La macro ne me colorie pas pas les lignes E2 et E4, elle ajoute en colonne F la valeur E2 aux lignes concernées.

J'ai du mal a comprendre la macro, j'ai bien essayé de la modifier mais sans succès.🙁
 
Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Re,

En colonne E il ne faut pas entrer n'importe quoi, mais les valeurs utilisées par la MFC.

Et pour une compagnie donnée, c'est la 1ère valeur trouvée en colonne E qui détermine ce qui est entré en colonne E - version (5) - ou en colonne F - version (6).

Autrement, s'il y a plusieurs valeurs pour une compagnie, laquelle choisir ???

A+
 
Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Merci pour ces explications!

En effet dans la colonne E, j'ai des données qui ne sont pas sous MFC. Toutes mes MFC sont des statuts définitifs, autrement dit impossible d'avoir deux MFC différentes pour la meme compagnie.

En gros je demande a la macro lorsqu'elle rencontre une ligne coloriée, de me colorier toutes les lignes ayant la meme valeur en colonne A que la ligne coloriée

🙂
 
Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Re,

Bon je vois. J'ai donc complété :

1) grâce à cette instruction, seules les valeurs utilisées par la MFC sont traitées :

tablo = Array("test1", "test2", "test3") 'conditions MFC à adapter

2) la colonne F est renseignée seulement quand la cellule en colonne E est vide.

Dites-moi si cela vous convient.

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Désolé mais le problème est que si j'efface un code MFC (statut en colonne E) ou le modifie les cellules précédentes restent coloriées.

La macro vient colorier uniquement les lignes qui ont une cellule vide en colonne E.

En gros, la solution que tu m'as proposé par formule est parfaite exeptée le ralentissement d'excel qui est du à la mise en forme conditionnelle avec la formule
=DECALER(Sheet1!$A2;;;EQUIV("test";Sheet1!$E2:$E$1000;0))

Merci pour ton aide! je n'arrive définitivement pas à modifier ta macro, trop la langage inconnu!!

Set d = CreateObject("Scripting.Dictionary")
If IsNumeric(Application.Match(cel.Offset(, 4), tablo, 0)) Then
txt = cel
d.Add txt, txt
[A:A].Replace txt, 1, LookAt:=xlWhole
Set plage = [A:A].SpecialCells(xlCellTypeConstants, 1)
 
Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Re,

idimpact à dit:
Désolé mais le problème est que si j'efface un code MFC (statut en colonne E) ou le modifie les cellules précédentes restent coloriées.
Cliquez pour agrandir...

Il faut réinitialiser tout, en effaçant la colonne F.

idimpact à dit:
La macro vient colorier uniquement les lignes qui ont une cellule vide en colonne E.
Cliquez pour agrandir...

Cela me paraissait logique, mais si vous voulez tout colorer, voyez le fichier (8).

Maintenant si vous voulez que VBA fasse exactement ce que faisaient mes formules, c'est possible mais lourd.

Faut-il que le tableau soit trié ?

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Ok, je ne pensais pas que la démarche était si lourde, je vais utiliser la dernière macro (8) et informer mes collègues de faire attention lors du renseignement du statut de la compagnie!!

Je souhaite la faire fonctionner selon un évenement :

valeur test1, test2,test3 dans la colonne E.

Macro évènementielle dans le Private Module de la Feuille en Question :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = '$E' Then
If Me.Range('E') = "test1" Or "test2" Or "test3" Then
End If
End If
End Sub

???
 
Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Re,

Mettre dans le code de la feuille, à la place du bouton :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A,E:E")) Is Nothing Then Exit Sub
Application.EnableEvents = False
EtendreTest
Application.EnableEvents = True
End Sub
Et au début de la macro j'ai mis :

[F:F].ClearContents

Fichier (9).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

😎 Magnifique😎

un GRAND merci pour votre aide, tout fonctionne parfaitement et j'ai réussi à adapter la macro à mon véritable fichier (trop lourd pour etre partagé) le tout fonctionne parfaitement sans ralentir de trop la machine.

Merci pour votre patience et merci de ne pas m'avoir "abandonné en route"!

Bonne journée
 
Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Bonjour idimpact, le fil, le forum,

VBA nous a montré l'utilité de la colonne F.

Alors voici 2 solutions par formules matricielles en F2.

Formule 1 :

Code: 
=INDEX(E:E;MIN(SI((A$2:A$1000=A2)*ESTNUM(EQUIV(E$2:E$1000;{"test1";"test2";"test3"};0));LIGNE(E$2:E$1000))))
Formule 2 :

Code: 
=INDEX(E:E;EQUIV(1;(A$1:A$1000=A2)*SIGNE(EQUIV(E$1:E$1000;{"test1";"test2";"test3"};0));0))
Chacune est à valider par Ctrl+Maj+Entrée et à tirer vers le bas.

Bien sûr adapter la limite 1000 au tableau réel.

J'ai pu vérifier que Formule 2 est un peu plus rapide que Formule 1.

Il faut les comparer avec VBA sur le fichier réel.

En effet les temps de calcul dépendent :

- du nombre de lignes du tableau (surtout pour les formules)

- du nombre de valeurs en colonne E (pour VBA)

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

Mon tableau est assez grand... Il peut arriver qu'il dépasse facilement les 1000 lignes. J'ai pu remarquer que les fonctions matricielles sont tres lentes et problematiques lors de l'ajout d'une nouvelle ligne. D'ailleurs avec la macro qui s'execute de maniere conditionnelle, Excel plante lors de l'ajout d'une ligne ou lors d'un copier/coller de plusieurs lignes.
 
Vote positif 0 Vote négatif
Re : Format conditionnel spécifique!besoin de macro ou pas?

idimpact à dit:
D'ailleurs avec la macro qui s'execute de maniere conditionnelle, Excel plante lors de l'ajout d'une ligne ou lors d'un copier/coller de plusieurs lignes.
Cliquez pour agrandir...

Ce n'est pas vraiment un plantage, mais c'est bien fait pour moi 🙂

Voir le fichier(11), il faut en effet terminer la macro par :

Application.ScreenUpdating = True

Mais les 2 formules du post #28, combien de temps mettent-elles à s'exécuter sur vos 1000 lignes ? Et VBA ??

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

E
  • Question Question
Microsoft 365 Mise en forme conditionnelle d'une ligne avec critère.
Réponses
9
Affichages
658
TooFatBoy
TooFatBoy
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
1 K
spike29
S
X
  • Question Question
XL pour MAC Colorier une cellule dans les lignes impaires de mon tableau, dont la valeur est > à 150
2
Réponses
15
Affichages
1 K
TooFatBoy
TooFatBoy
A
  • Résolu(e)
XL 2013 Formule SI ET qui ne fonctionne pas toujours.
Réponses
9
Affichages
816
sylvanu
sylvanu
S
  • Résolu(e)
Microsoft 365 Envoi de la signature de l'utilisateur macro envoi de mail
Réponses
3
Affichages
631
spike29
S
StephCo
  • Question Question
Autres Diagramme de Gantt avec beaucoup de contraintes (avec LibreOffice) et formule matricielle multicritères
Réponses
2
Affichages
921
Simon 1234
S
S
  • Question Question
XL 2021 Planning de suivi des actions pour service Hygiène Sécurité et Environnement
Réponses
2
Affichages
1 K
fanfan38
fanfan38
I
  • Question Question
XL 2019 Suite à une formule, enlever le doublon dans le résultat avec fonction SI
Réponses
2
Affichages
568
IderMTC
I
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
783
casualexcel
C
M
  • Question Question
Autres Mise en forme cond, suivant texte et couleur de cellules
Réponses
5
Affichages
1 K
marcenana
M
F
  • Résolu(e)
XL 2019 Macro d'activation de mise en forme conditionnelle "glissante"
2 3
Réponses
31
Affichages
2 K
Flomax
F
M
  • Question Question
XL 2016 Erreur d'execution '52': Nom ou numéro de fichier incorrect
Réponses
4
Affichages
2 K
macseb
M
S
  • Question Question
Microsoft 365 Envoi de mail auto VBA d'une cellule à une autre + selection de plusieurs PJ.
Réponses
3
Affichages
1 K
kiki29
kiki29
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
G
  • Résolu(e)
XL 2016 Mise en forme conditionnelle ou macro pour changer la couleur de LA cellule en double
Réponses
3
Affichages
1 K
Graounette92
G
T
  • Question Question
XL 2016 Besoin d'aide ! Code BVA pour changer la couleur de 2 cellules d'une ligne si valeur identique
Réponses
10
Affichages
1 K
Titi5333
T
E
  • Question Question
XL 2013 transposer colonne en ligne de facon conditionnelle
Réponses
12
Affichages
2 K
mapomme
mapomme
H
  • Résolu(e)
XL 2019 Ajout de lignes et colonne par macro
Réponses
2
Affichages
779
Hutchy33
H
R
  • Résolu(e)
Microsoft 365 Mise en forme conditionnelle / Séparation visuelle entre deux groupes de lignes en fonction des valeurs présentes dans certaines cellules.
Réponses
6
Affichages
1 K
Ratian
R
M
  • Question Question
XL 2010 Macro VBA de mise en forme conditionnelle ?
Réponses
3
Affichages
1 K
sylvanu
sylvanu
Retour