Mise en forme conditionnelle sur 5000 lignes
Résolu
CLAVERELI
Messages postés
56
Statut
Membre
-
foo -
foo -
Bonjour à tous,
Je cherche à reproduire sur 5000 lignes environ, la même mise en forme conditionnelle.
Il ne serait pas sérieux de saisir tout cela rien que pour les risques d"erreurs. Sans parler du temps nécessaire.
J'ai pensé qu'une "Function" VBA pourrait résoudre cette question. Mais je ne connais pas assez ce langage pour arriver à un telle performance.
Quelqu'un pourrait-il m'aider?
Ci-joint le lien pour récupérer le petit exemple de ce que je veux obtenir qui fonctionne en version classique.
https://www.cjoint.com/c/CJAroKpfZBn
Je cherche à reproduire sur 5000 lignes environ, la même mise en forme conditionnelle.
Il ne serait pas sérieux de saisir tout cela rien que pour les risques d"erreurs. Sans parler du temps nécessaire.
J'ai pensé qu'une "Function" VBA pourrait résoudre cette question. Mais je ne connais pas assez ce langage pour arriver à un telle performance.
Quelqu'un pourrait-il m'aider?
Ci-joint le lien pour récupérer le petit exemple de ce que je veux obtenir qui fonctionne en version classique.
https://www.cjoint.com/c/CJAroKpfZBn
3 réponses
-
Bonjour
restons simple
vu la formule e MFC que vous avez en J
sélectionnez D4:L5000
(vous pouvez le faire en inscrivant cette adresse dans la case à gauche de la barre de formule et enter)
et enlever le $ devant le N° de ligne dans la formule, qui devient donc:
=$J4="X"
la MFC va s'appliquer à tout le champ sélectionné selon le X sur la ligne
crdlmnt
Errare humanum est, perseverare diabolicum -
Bonjour
Pas besoin de VBA une seule MFC pour l'ensemble du tableau suffit ! :
https://www.cjoint.com/?0JArHTkjih2
Cdlmnt
-
Bonjour
et avec une macro
Sub Macro1()
Nlig = Range("D" & Rows.Count).End(xlUp).Row
For L = 4 To Nlig
If Range("J" & L).Value = "X" Then
Range("D" & L & ":L" & L).Interior.ColorIndex = 19
Else
Range("D" & L & ":L" & L).Interior.ColorIndex = xlNone
End If
Next
Range("A1").Select
End Sub
A toi de choisir
A+
Maurice