Formule excel

Salut,

Pour les couleurs dans les cellules, je pense à une mise en forme conditionnelle

pour vider les cellules avec une formule conditionnelle SI

Mais pour être plus précis il faudrait voir un exemple de fichier pour voir sa structure, à joindre avec ce lien

https://www.cjoint.com/

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

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

Re,

Récupères ton fichier, j’ai supprimé tes mise en forme conditionnelles qui sont limitées par Excel à trois pour les travailler en VBA.
Je t’ai créé une deuxième feuille avec le même tableau avec le même code VBA, avec deux déclenchements différents Feuill1 avec bouton et feuille 2 automatiquement

Il est également possible de dissocier la mise en forme conditionnelle et l’effacement des cellules avec deux commandes séparées

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

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Merci pour le fichier.
J'ai quelques difficultés avec cette macro, c'est un peu du javanais pour moi.
il me reste un soucis car les cellules K1 à K7 sont des variables les valeurs doivent changer chaque semaine.
Y a t_il une solution?
Merci

Re,

Pas de problème, à la place de fixer les valeurs, je vais faire référence aux cellules K1:K7 comme cela le code sera toujours opérationnel.
Dans ce cas le déclenchement par bouton est à privilégier qu'en penses tu

teste le tableau en changeant les valeurs de la plage K1 à K7

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

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Merci c'est Génial.
Slts

Re,

Il est également possible de ne pas identifier les couleurs dans le code macro et de repérer les couleurs défini dans les cellules K1 à K7 de sorte à pouvoir changer les couleurs facilement exemple si en K1 tu colorises la cellule en marron dans ton tableau les valeurs correspondante à cette cellule seront marron, si tu la passe bleu dans ton tableau elles seront bleu

Comme pour les valeurs, si ça t'intéresse fais signe

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

S’Il est également possible de ne pas identifier directement les défini dans les cellules K1 à K7 de sorte à pouvoir changer les couleurs facilement pour pouvoir les modifier simplement, je serais intéressé
Je ne connaissait pas le bouton pour appeler directement une macro c’est sympa .j’ai fait un click droit « Copier » puis coller j’ai un nouveau bouton affecté à une macro qui me remet tout à Zéro.
Maintenant que j’apprécie cette gestion rapide des couleurs avec un gain de temps important, j’aimerais pouvoir ajouter un commentaire sur chaque ligne en colonne A.
Si Couleur K1 est contenue dans ligne sélectionnée = commentaire « cellule J1)
Si Couleur K1+k2+k3 est contenue dans ligne sélectionnée = commentaire « cellule J2 »
Si Couleur K1+k2+k3+k4 est contenue dans ligne sélectionnée = commentaire « cellule J3 »
Si Couleur K1+k2+k3+k4+k5 est contenue dans ligne sélectionnée = commentaire « cellule J4 »
Si Couleur K1+k2+k3+k4+k5+k6 est contenue dans ligne sélectionnée = commentaire « cellule J5 »
Si Couleur K1+k2+k3+k4+k5+k6+k7 est contenue dans ligne sélectionnée = commentaire « cellule J6 »
Si 4 couleurs « de K1 à k5 » sont contenue dans ligne sélectionnée = commentaire « cellule J7 »
Slts

Re,

Récupères ton fichier, il suffit de coloriser les cellules en K1 à K7, les cellules du tableau contenant les valeurs de ces cellules prendront la couleur de la cellule de référence

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

Détail du code placé dans un module

Sub Macro1()
Dim Tableau As Range
Dim Cellule As Variant
For Each Cellule In Range("Tableau")
'condition 1
If Cellule = [K1].Value Then
'Cellule.Interior.ColorIndex = 6 'cellule jaune
'ou
Cellule.Interior.ColorIndex = [K1].Interior.ColorIndex
'condition 2
ElseIf Cellule = [K2].Value Then
Cellule.Interior.ColorIndex = [K2].Interior.ColorIndex
'condition 3
ElseIf Cellule = [K3].Value Then
Cellule.Interior.ColorIndex = [K3].Interior.ColorIndex
'condition 4
ElseIf Cellule = [K4].Value Then
Cellule.Interior.ColorIndex = [K4].Interior.ColorIndex
'condition 5
ElseIf Cellule = [K5].Value Then
Cellule.Interior.ColorIndex = [K5].Interior.ColorIndex
'condition 6
ElseIf Cellule = [K6].Value Then
Cellule.Interior.ColorIndex = [K6].Interior.ColorIndex
'condition 7
ElseIf Cellule = [K7].Value Then
Cellule.Interior.ColorIndex = [K7].Interior.ColorIndex
'Pour annuler la couleur si la valeur est différente
ElseIf Cellule <> [K1].Value <> [K2].Value <> [K3].Value <> [K4].Value <> [K5].Value <> [K6].Value <> [K7].Value Then
Cellule.Interior.ColorIndex = xlNone 'colonne B cellule sans couleur
End If
'Valeurs différentes de seront effacées
If Cellule <> [K1].Value Then
If Cellule <> [K2].Value Then
If Cellule <> [K3].Value Then
If Cellule <> [K4].Value Then
If Cellule <> [K5].Value Then
If Cellule <> [K6].Value Then
If Cellule <> [K7].Value Then
Cellule.Value = ""
End If
End If
End If
End If
End If
End If
End If
Next Cellule
End Sub

Pour activer la macro

Affichage/Barre d’outils/Formulaire, choisir le bouton et le dessiner sur la feuille, clic droit affecter à une macro, pointer sur la macro à activer

Pour le reste, on devient exigent, je te le prépare dès que j’ai un moment

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

merci pour attention.
Slts

Salut,

Expliques ce que tu veux faire, mettre un commentaire dans une cellule, la quelle ! et en fonction de quel résultat,

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)

Re,

Sert toi du lien ci-dessous, clic sur le lien/Parcourir/sélectionnes le fichier à joindre/Créer le lien/Autoriser l'accès et colles dans un post le lien généré en haut de la page

https://www.cjoint.com/

A+
Mike-31

Un problème sans solution est un problème mal posé  (Einstein)