Conditionner le format dans une mise en forme conditionnelle ...
Fermé
AlexLeBelge
-
3 juin 2021 à 10:45
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 3 juin 2021 à 12:57
Mike-31 Messages postés 18318 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 26 avril 2024 - 3 juin 2021 à 12:57
A voir également:
- Conditionner le format dans une mise en forme conditionnelle ...
- Mise en forme conditionnelle excel - Guide
- Telecharger format factory - Télécharger - Conversion & Codecs
- Format epub - Guide
- Mise en forme conditionnelle excel par rapport à une autre cellule ✓ - Forum Excel
- Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
2 réponses
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
Modifié le 3 juin 2021 à 11:04
Modifié le 3 juin 2021 à 11:04
Bonjour,
Si j'ai bien compris, c'est tout a fait possible mais avec un part de VBA si tu as quelques connaissances
Si j'ai bien compris, c'est tout a fait possible mais avec un part de VBA si tu as quelques connaissances
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
Modifié le 3 juin 2021 à 11:34
Modifié le 3 juin 2021 à 11:34
Re,
Dans l'exemple en pièce jointe, j'ai créé la plage des couleurs A2:A8 Couleurs
et créé un Champ nommé Couleurs avec cette formule
pour que la mise en forme s'efface si la cellule est vide j'ai créé une MFC toute simple =B2=""
format/Remplissage/Acune couleur
la plage de travail Ma_Plage B2:J17
la part BVA dans les propriétés de la feuille (clic droit sur l'onglet/Visualiser le code)
en fonction de la saisie dans ta plage de travail, la MFC dupliquera les critères des cellules A2:A8
https://www.cjoint.com/c/KFdjHR3yiCF
Dans l'exemple en pièce jointe, j'ai créé la plage des couleurs A2:A8 Couleurs
et créé un Champ nommé Couleurs avec cette formule
=DECALER(Feuil1!$A$2;;;NBVAL(Feuil1!$A$1:$A$8))
pour que la mise en forme s'efface si la cellule est vide j'ai créé une MFC toute simple =B2=""
format/Remplissage/Acune couleur
la plage de travail Ma_Plage B2:J17
la part BVA dans les propriétés de la feuille (clic droit sur l'onglet/Visualiser le code)
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect([Ma_Plage], Target) Is Nothing Then On Error Resume Next Target.Interior.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Interior.ColorIndex Target.Font.ColorIndex = [Couleurs].Find(Target, LookAt:=xlWhole).Font.ColorIndex Target.Font.Bold = [Couleurs].Find(Target, LookAt:=xlWhole).Font.Bold 'Inclus le gras End If End Sub
en fonction de la saisie dans ta plage de travail, la MFC dupliquera les critères des cellules A2:A8
https://www.cjoint.com/c/KFdjHR3yiCF
Sympa !
Merci pour ton temps je vais partir de ça pour essayer d'aboutir à ce que je veux faire. ;)
En effet, ce n'est pas encore tout à fait ça.
Si tu changes la mise en forme d'une de tes cellules dans la plage "couleurs" ça ne va pas actualiser la mise en forme de ce qui a déjà était fait. Par ailleurs si tu inscris des "*" ou des "??" ça se met sur la mise en forme jaune (ça franchement c'est juste pour le faire remarquer : ça ne me pose aucun problème) ;).
Merci pour ton temps je vais partir de ça pour essayer d'aboutir à ce que je veux faire. ;)
En effet, ce n'est pas encore tout à fait ça.
Si tu changes la mise en forme d'une de tes cellules dans la plage "couleurs" ça ne va pas actualiser la mise en forme de ce qui a déjà était fait. Par ailleurs si tu inscris des "*" ou des "??" ça se met sur la mise en forme jaune (ça franchement c'est juste pour le faire remarquer : ça ne me pose aucun problème) ;).
Mike-31
Messages postés
18318
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
26 avril 2024
5 078
>
AlexLeBelge
3 juin 2021 à 12:57
3 juin 2021 à 12:57
Re,
tu peux remplacer le code VBA par une boucle
tu peux remplacer le code VBA par une boucle
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cellule In Range("B2:J17")
On Error Resume Next
cellule.Interior.ColorIndex = [Couleurs].Find(cellule, LookAt:=xlWhole).Interior.ColorIndex
cellule.Font.ColorIndex = [Couleurs].Find(cellule, LookAt:=xlWhole).Font.ColorIndex
cellule.Font.Bold = [Couleurs].Find(cellule, LookAt:=xlWhole).Font.Bold
Next
End Sub
3 juin 2021 à 11:06
Quelle est ta solution avec VBA ?
Si c'est simple et élégant pourquoi pas ... après j'avais l'intention de donner la main sur le fichier à d'autres personnes qui aurons peut être du mal si il faut aller remettre le nez dans une macro ^^.