Au choix liste déroulante faire apparaître un rond de couleur
coastlyne
-
Labdreun Messages postés 13 Statut Membre -
Labdreun Messages postés 13 Statut Membre -
Bonjour,
Cela fait 4 jours que j'essais d'enregistrer une macro, je cherche plein d'information sur le net à ce sujet.
J'ai un fichier Excel avec 2 listes déroulantes:
- la 1ère : choix -> super, bien, nul (A1)
- la 2ème : choix -> excellent, super, bien, nul (B1)
Lors des 2 choix faits, j'aimerai faire apparaître un rond de couleur verte sur une cellule.
Si le 1er choix est super et le 2eme est excellent, il faut faire afficher le rond dans une certaine cellule choisie (D1), si d'autres choix sont faits, mettre la position du rond en conséquence aux endroits définis (D2 ou D3 ou D4 ... -> 12 cellules différentes -> choix différents max).
Quelqu'un aurait une idée, svp?
Mon code de départ:
Private Sub Worksheet_Change(ByVal Target As Range)
If [E] = "test 1" Then MacroA
If [E] = "test 2" Then MacroB
If [E] = "test 3" Then MacroC
If [E] = "" Then MacroD
End Sub
Sub MacroA()
'
' MacroA Macro
ActiveSheet.Paste
Range("F2").Select
End Sub
Je sais qu'il manque pleins d'informations mais je m'arrache les cheveux, je suis débutante.
Merci par avance.
Cela fait 4 jours que j'essais d'enregistrer une macro, je cherche plein d'information sur le net à ce sujet.
J'ai un fichier Excel avec 2 listes déroulantes:
- la 1ère : choix -> super, bien, nul (A1)
- la 2ème : choix -> excellent, super, bien, nul (B1)
Lors des 2 choix faits, j'aimerai faire apparaître un rond de couleur verte sur une cellule.
Si le 1er choix est super et le 2eme est excellent, il faut faire afficher le rond dans une certaine cellule choisie (D1), si d'autres choix sont faits, mettre la position du rond en conséquence aux endroits définis (D2 ou D3 ou D4 ... -> 12 cellules différentes -> choix différents max).
Quelqu'un aurait une idée, svp?
Mon code de départ:
Private Sub Worksheet_Change(ByVal Target As Range)
If [E] = "test 1" Then MacroA
If [E] = "test 2" Then MacroB
If [E] = "test 3" Then MacroC
If [E] = "" Then MacroD
End Sub
Sub MacroA()
'
' MacroA Macro
ActiveSheet.Paste
Range("F2").Select
End Sub
Je sais qu'il manque pleins d'informations mais je m'arrache les cheveux, je suis débutante.
Merci par avance.
A voir également:
- Dans le code de la page, modifiez la couleur de fond de la classe .pix. un code de 4 chiffres doit apparaître dans la grille. lequel ?
- Code ascii - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code de triche gta 4 - Guide
- Code puk bloqué - Guide
- Impossible de supprimer une page word - Guide
2 réponses
Bonjour,
c'est en quelque sorte une 'jauge' du résultat des deux listes déroulantes ?
mon idée serait d'abord de convertir en valeur les résultats de tes listes :
parcourir les valeurs et attribuer un score (incrémental ou direct)
puis après de valoriser ce score_sommé par une représentation simple (un 'rond'? pourquoi pas un fond de couleur simplement ? ) -> comme une jauge...
cela correspond il à ton besoin ? (avant de rentrer dans le code)
Bonne Journée
c'est en quelque sorte une 'jauge' du résultat des deux listes déroulantes ?
mon idée serait d'abord de convertir en valeur les résultats de tes listes :
parcourir les valeurs et attribuer un score (incrémental ou direct)
puis après de valoriser ce score_sommé par une représentation simple (un 'rond'? pourquoi pas un fond de couleur simplement ? ) -> comme une jauge...
cela correspond il à ton besoin ? (avant de rentrer dans le code)
Bonne Journée
Bonjour,
n'étant pas 100% de mon temps sur l'internet, pouvez-vous établir un modèle écrit en langage simple de votre demande
Ce sera plus facile, si je peux, de vous répondre selon un exemple à suivre que dans l'abstrait.
Bonne Journée
mais je pense qu'avec des bouts de contributions déjà faites sur le forum, vous devriez y arriver:
- pour chaque évènements (un click sur une liste déroulante):aller dans une
- macro unique :
- récupérer le résultat des listes déroulantes et donner un score.
- additionner les scores( si pls listes déroulantes)
- supprimer l'affichage précédent
- restituer le score final sous forme d'affichage: suite de SI ELSE SINON FINSI (ou: if then else endif ) parcourant toutes les valeurs du score
n'étant pas 100% de mon temps sur l'internet, pouvez-vous établir un modèle écrit en langage simple de votre demande
Ce sera plus facile, si je peux, de vous répondre selon un exemple à suivre que dans l'abstrait.
Bonne Journée
mais je pense qu'avec des bouts de contributions déjà faites sur le forum, vous devriez y arriver:
- pour chaque évènements (un click sur une liste déroulante):aller dans une
- macro unique :
- récupérer le résultat des listes déroulantes et donner un score.
- additionner les scores( si pls listes déroulantes)
- supprimer l'affichage précédent
- restituer le score final sous forme d'affichage: suite de SI ELSE SINON FINSI (ou: if then else endif ) parcourant toutes les valeurs du score
a++
Merci pour votre réponse. Oui on peut essayer comme ça.