Sujet Précédent Sujet Suivant

Excel mise en forme conditionnele

Résolu/Fermé
PIMOUSSE - 20 avril 2010 à 16:39
pimousse2 Messages postés 4 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 23 avril 2010 - 23 avril 2010 à 13:52
Bonjours à tous, cela fait plusieur jour que je me prend la t^te pour faire plus de 3 mise en forme conditionnelle
Voila mon pb jai ds une m^m colone six intitulé que je veu en six couleur différentes
Pd c 3 jours jai vu des macro et toute sorte de chose que je ne comprend pas très bien
Sa va faire trois jour que je copie des macro dans les module des feuille et sans grand succés
dc si quelqu'un avait 5 minute a m'accorder pour me faire faire pas à pas ces manipulation il m'enleverai une sacrée épine du pied

Dans l'attente de réponse je remercie tous ceux qui porterons interet à cette demande
MERCI

A voir également:

45 réponses

Précédent
Réponse 21 / 45
PIMOUSSE
22 avril 2010 à 12:20
je suis désolé je ne voi aucun inconvéhnient a te l'envoyer mais je bosse pour une colléctivité qui ne souhaite pas la diffusion de ce classeur :(
Tu peu me régler sa a distance STP
0
Réponse 22 / 45
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 22/04/2010 à 12:58
Re,

Oui bien sur, ce sera plus long et pas rémunéré par ta collectivité, je rigole
quel procédé as tu retenu, feuille 1 ou 3 (feuille3 est peut être plus facile à gérer)

donnes moi les limites de la plage à surveiller !

dans quelle plage peut on cacher les mises en forme (cette plage peut être dans une colonne qui sera masquée

Combien de conditionnelles doit on programmer au total !
veux tu des fond de couleur !
uniquement la police !
ou les deux !


A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Ricky38 Messages postés 4347 Date d'inscription samedi 15 mars 2008 Statut Contributeur Dernière intervention 2 novembre 2013 1 458
22 avril 2010 à 13:02
Salut Mike-31 et bien le bonjour :)
pour t'aider le lien du fichier est au post 3 et les données à traitées au post 5

Bonne journée
0
Réponse 23 / 45
PIMOUSSE
22 avril 2010 à 13:47
j'ai copié les codes voici cke jai

dans le module du classeur

Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 22/04/2010 par Les Lagouanère
'

'
Selection.Font.ColorIndex = 3
End Sub
Sub Macro2()
'
' Macro2 Macro
' Macro enregistrée le 22/04/2010 par Les Lagouanère
'

'
Range("G16").Select
Selection.Font.Bold = True
End Sub
Sub Macro3()
'
' Macro3 Macro
' Macro enregistrée le 22/04/2010 par Les Lagouanère
'

'
Selection.Font.ColorIndex = 0
End Sub
Sub Macro4()
'
' Macro4 Macro
' Macro enregistrée le 22/04/2010 par Les Lagouanère
'

'
Selection.Font.Bold = False
End Sub

ET DANS L'ONGLET PLANNING

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

Private Sub Worksheet_SelectionChange(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

jai du copier tro de chose peu etre ?????
0
Réponse 24 / 45
PIMOUSSE
22 avril 2010 à 13:49
Ensuite j'ai réalisé insertion nom définir: jai fai ma plage/couleur et tableau qui étai présent dans le fichier ktu ma joint et jlai adapté a mon tableau
jai inserer une colone en H ou il y a mes mise enn forme
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 25 / 45
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 22/04/2010 à 14:26
Salut Richy,
Je ne suis pas remonté dans la discussion et le fichier exemple ne comporte que six lignes qui ne nécessitent pas de mise en forme enfin.

Pour répondre à Pimousse,

Sur le fichier que j'ai joint il y a plusieurs codes qui ne concerne pas ton fichier que j'urais dû effacer.

Vas dans le Visual Basic Editor de ton fichier et supprimes tous les codes que tu as collé y compris dans la Thisworkbook

Mets en surbrillance la plage à traiter et nommes là Tableau (respecte la majuscule ou modifie le code)

Pour chaque conditionnelle exemple [A1] est l'adresse de la cellule de référence pour tes mises en formes etc ...(si tu les mets en colonne ex. en colonne M et commence en M2 ce sera [M2]
Il est impératif qu'une cellule soit vide, police de caractère automatique sans gras exemple la première [M2] ce qui permettra de remettre la cellule à zéro dans le cas de saisie déférente (dans ce code c'est la [K1] en fin de code

Dans les propriétés de la feuille concernée (Clic droit sur l'onglet/Visualiser le code)
Colle le code choisi (dans ton cas je pense à celui-ci) prévu pour dix conditionnelles couleurs de fond, couleur de police et texte en gras

Si tu retiens pour ta mise en forme conditionnelle la couleur de fond la police en couleur et le gras conserve les trois lignes par conditions sinon supprime la ligne et les conditions inutiles.
La première ligne concerne le fond de cellule
La seconde la couleur police et la troisième le gras

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cellule As Variant
For Each Cellule In Range("Tableau")
'condition 1
If Cellule = [A1] Then
Cellule.Interior.ColorIndex = [A1].Interior.ColorIndex
Cellule.Font.ColorIndex = [A1].Font.ColorIndex
Cellule.Font.Bold = [A1].Font.Bold
'condition 2
ElseIf Cellule = [B1] Then
Cellule.Interior.ColorIndex = [B1].Interior.ColorIndex
Cellule.Font.ColorIndex = [B1].Font.ColorIndex
Cellule.Font.Bold = [B1].Font.Bold
'condition 3
ElseIf Cellule = [C1] Then
Cellule.Interior.ColorIndex = [C1].Interior.ColorIndex
Cellule.Font.ColorIndex = [C1].Font.ColorIndex
Cellule.Font.Bold = [C1].Font.Bold
'condition 4
ElseIf Cellule = [D1] Then
Cellule.Interior.ColorIndex = [D1].Interior.ColorIndex
Cellule.Font.ColorIndex = [D1].Font.ColorIndex
Cellule.Font.Bold = [D1].Font.Bold
'condition 4
ElseIf Cellule = [E1] Then
Cellule.Interior.ColorIndex = [E1].Interior.ColorIndex
Cellule.Font.ColorIndex = [E1].Font.ColorIndex
Cellule.Font.Bold = [E1].Font.Bold
'condition 5
ElseIf Cellule = [F1] Then
Cellule.Interior.ColorIndex = [F1].Interior.ColorIndex
Cellule.Font.ColorIndex = [F1].Font.ColorIndex
Cellule.Font.Bold = [F1].Font.Bold
'condition 6
ElseIf Cellule = [G1] Then
Cellule.Interior.ColorIndex = [G1].Interior.ColorIndex
Cellule.Font.ColorIndex = [G1].Font.ColorIndex
Cellule.Font.Bold = [G1].Font.Bold
'condition 7
ElseIf Cellule = [H1] Then
Cellule.Interior.ColorIndex = [H1].Interior.ColorIndex
Cellule.Font.ColorIndex = [H1].Font.ColorIndex
Cellule.Font.Bold = [H1].Font.Bold
'condition 8
ElseIf Cellule = [I1] Then
Cellule.Interior.ColorIndex = [I1].Interior.ColorIndex
Cellule.Font.ColorIndex = [I1].Font.ColorIndex
Cellule.Font.Bold = [I1].Font.Bold
'condition 9
ElseIf Cellule = [J1] Then
Cellule.Interior.ColorIndex = [J1].Interior.ColorIndex
Cellule.Font.ColorIndex = [J1].Font.ColorIndex
Cellule.Font.Bold = [J1].Font.Bold
'condition 10
'Pour annuler la couleur si la valeur est différente
ElseIf Cellule = [K1] Then
Cellule.Interior.ColorIndex = [K1].Interior.ColorIndex
Cellule.Font.ColorIndex = [K1].Font.ColorIndex
Cellule.Font.Bold = [K1].Font.Bold
End If
Next Cellule
End Sub

https://www.cjoint.com/?ewozCAwzYB

A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Réponse 26 / 45
PIMOUSSE
22 avril 2010 à 15:05
kan je met ce code kan je clik sur mon tableau jatten 20 minute sa plante mon tablO??????
0
Réponse 27 / 45
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 avril 2010 à 15:16
Tu as bien mis en surbrillance la partie de ton fichier sur lequel tu souhaites appliquer la mise en forme conditionnelle et tu l'as bien nommée Tableau en respectant la Majuscule (si tu as changé le nom modifies le code)

ensuite contrôle dans Insertion/Nom/Définir si les plage nommées sont bien référencées et qu'il n'existe pas de doublon etc ...

Dans le code fourni, les cellules de référence sont en A1 à K1, si tu as les a changé ou modifié, contrôle le code
teste mon dernier fichier joint pour voir
0
Réponse 28 / 45
PIMOUSSE
22 avril 2010 à 15:29
TON DERNIER FICHIER JOINT MARCHE
kan au mien jai mi les cellule référentes a la fin de mon tableau E461 JUSKA E470
et kan je met ton code en changeant A1 par E461 idem pour les autres
sa fai buguer mon tableau ???????
0
Réponse 29 / 45
PIMOUSSE
22 avril 2010 à 15:43
MON CLASSEUR FAIT 473 LIGNE ET 50 COLONNE c surement pour sa NON ???????
0
Réponse 30 / 45
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 avril 2010 à 15:45
Re,

Colles ce code pour les cellule référentes de A461 à A471

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cellule As Variant
For Each Cellule In Range("Tableau")
'condition 1
If Cellule = [A461] Then
Cellule.Interior.ColorIndex = [A461].Interior.ColorIndex
Cellule.Font.ColorIndex = [A461].Font.ColorIndex
Cellule.Font.Bold = [A461].Font.Bold
'condition 2
ElseIf Cellule = [A462] Then
Cellule.Interior.ColorIndex = [A462].Interior.ColorIndex
Cellule.Font.ColorIndex = [A462].Font.ColorIndex
Cellule.Font.Bold = [A462].Font.Bold
'condition 3
ElseIf Cellule = [A463] Then
Cellule.Interior.ColorIndex = [A463].Interior.ColorIndex
Cellule.Font.ColorIndex = [A463].Font.ColorIndex
Cellule.Font.Bold = [A463].Font.Bold
'condition 4
ElseIf Cellule = [A464] Then
Cellule.Interior.ColorIndex = [A464].Interior.ColorIndex
Cellule.Font.ColorIndex = [A464].Font.ColorIndex
Cellule.Font.Bold = [A464].Font.Bold
'condition 4
ElseIf Cellule = [A465] Then
Cellule.Interior.ColorIndex = [A465].Interior.ColorIndex
Cellule.Font.ColorIndex = [A465].Font.ColorIndex
Cellule.Font.Bold = [A465].Font.Bold
'condition 5
ElseIf Cellule = [A466] Then
Cellule.Interior.ColorIndex = [A466].Interior.ColorIndex
Cellule.Font.ColorIndex = [A466].Font.ColorIndex
Cellule.Font.Bold = [A466].Font.Bold
'condition 6
ElseIf Cellule = [A467] Then
Cellule.Interior.ColorIndex = [A467].Interior.ColorIndex
Cellule.Font.ColorIndex = [A467].Font.ColorIndex
Cellule.Font.Bold = [A467].Font.Bold
'condition 7
ElseIf Cellule = [A468] Then
Cellule.Interior.ColorIndex = [A468].Interior.ColorIndex
Cellule.Font.ColorIndex = [A468].Font.ColorIndex
Cellule.Font.Bold = [A468].Font.Bold
'condition 8
ElseIf Cellule = [A469] Then
Cellule.Interior.ColorIndex = [A469].Interior.ColorIndex
Cellule.Font.ColorIndex = [A469].Font.ColorIndex
Cellule.Font.Bold = [A469].Font.Bold
'condition 9
ElseIf Cellule = [A470] Then
Cellule.Interior.ColorIndex = [A470].Interior.ColorIndex
Cellule.Font.ColorIndex = [A470].Font.ColorIndex
Cellule.Font.Bold = [A470].Font.Bold
'condition 10
'Pour annuler la couleur si la valeur est différente
ElseIf Cellule = [A471] Then
Cellule.Interior.ColorIndex = [A471].Interior.ColorIndex
Cellule.Font.ColorIndex = [A471].Font.ColorIndex
Cellule.Font.Bold = [A471].Font.Bold
End If
Next Cellule
End Sub
0
Réponse 31 / 45
PIMOUSSE
22 avril 2010 à 15:54
IDEM mon tableau clignote et le gros sablier me fai poiroter
0
Réponse 32 / 45
PIMOUSSE
22 avril 2010 à 15:56
dans ton dernier code au lieu de A461 c pas E461 ?????
de toute facon sa me fai pareil
0
Réponse 33 / 45
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié par Mike-31 le 22/04/2010 à 16:04
Re,

Exact, j'ai mal lu ton post, il s'agit bien de la colonne E 461 etc ...

Pour l'erreur bizarre, as tu bien supprimé tous les codes que tu avais inséré au préalable ! y compris dans la Thisworkbook

As tu bien Nommé la plage dans la quelle s'applique la mise en forme et supprimé les plages nommées inutiles

En respectant la majuscule comme dans le code Tableau

Sinon sans ton fichier difficile à voir
A+
Mike-31

Une période d'échec est un moment rêvé pour semer les graines du savoir.
0
Réponse 34 / 45
PIMOUSSE
22 avril 2010 à 16:06
J4AI NAI POUR AINSI DIRE RAZ LE ... je vai te filer ce fichier et on parlera plus commenn je fai ????
0
Réponse 35 / 45
PIMOUSSE
22 avril 2010 à 16:08
je doi etre membre ???
0
Réponse 36 / 45
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 avril 2010 à 16:13
Re,

clic sur ce ce lien

https://www.cjoint.com/

Parcourir pour sélectionner ton fichier/Créer le lien/Autoriser l'accès

un lien va être généré en haut de la feuille, tu fais clic droit et copier

clic sur mon pseudo Mike-31/Message privé et tu colles le lien dans un message, je serai seul à l'avoir.

Pour le retour on verra un autre procédé
0
Réponse 37 / 45
PIMOUSSE
22 avril 2010 à 16:18
JE SUI OBLIGER DE MINSCRIRE POUR TECRIRE UN MESSAGE ????
0
Réponse 38 / 45
pimousse2 Messages postés 4 Date d'inscription jeudi 22 avril 2010 Statut Membre Dernière intervention 23 avril 2010
22 avril 2010 à 16:27
c bon message posté c ok ta recu ???
0
Réponse 39 / 45
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 avril 2010 à 16:50
Re,

C'est bon, je te regarde ça dans un moment, je dois sortir
0
Réponse 40 / 45
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
22 avril 2010 à 18:57
Re,

Comme tu n'est pas membre, pour te permettre de récupérer ton fichier modifier et limiter son téléchargement, lorsque tu seras prêt je te communiquerai un lien et dès que tu l'auras téléchargé tu me le confirmera
0

Discussions similaires

Excel : Mise en forme conditionnelle selon une autre cellule
Peu importe -
Intrus -

10 réponses