Formule excel Fermé

Question

Bonjour,
Dans une plage de cellules sélectionnées a1:j20 ayant des valeurs et des couleurs différents, y-a t-il une formule qui me permette de vider les cellules ne correspondants pas aux valeurs ou couleurs contenues dans la plage  k1:k7. PS les cellules à vider correspondrait également au Code hexadécimal "#FFFFFF"
Slts

Mike-31 · Answer

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)

billbdc35 · Answer

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

Mike-31 · Answer

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)

billbdc35 · Answer

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

Mike-31 · Answer

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)

billbdc35 · Answer

Merci c'est Génial.
Slts

Mike-31 · Answer

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)

billbdc35 · Answer

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

Mike-31 · Answer

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)

billbdc35 · Answer

merci pour attention.
Slts

Mike-31 · Answer

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)

Mike-31 · Answer

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)

Formule excel

12 réponses

Discussions similaires