Formule excel
billbdc35
Messages postés
15
Statut
Membre
-
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
Mike-31 Messages postés 19572 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Formule excel
- Formule si et excel - Guide
- Formule moyenne excel plusieurs colonnes - Guide
- Liste déroulante excel - Guide
- Formule somme excel ligne - Guide
- Mise en forme conditionnelle excel formule - Guide
12 réponses
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)
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)
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)
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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)
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)
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)
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
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)
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)
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)
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)
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)
