Gestion des évènements
Résolu/Fermé
Agressor
-
11 févr. 2015 à 21:13
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 - 12 févr. 2015 à 17:30
ccm81 Messages postés 10850 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 27 mars 2024 - 12 févr. 2015 à 17:30
A voir également:
- Gestion des évènements
- Logiciel gestion photos - Guide
- Logiciel gestion association gratuit excel - Télécharger - Gestion de projets
- Logiciel gestion cave à vin gratuit - Télécharger - Cuisine & Gastronomie
- Logiciel gestion cdthèque gratuit - Télécharger - Création musicale
- Logiciel gestion élevage avicole gratuit - Télécharger - Vie quotidienne
4 réponses
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
11 févr. 2015 à 21:33
11 févr. 2015 à 21:33
Bonjour
Dans le cas où H7 contient une formule, l'évènement Worksheet_Change doit être ciblé sur les cellules qui interviennent dans ta formule
Pour aller plus loin, il faudrait la partie concernée de ton fichier utilises cjoint.com et joins le lien à ton prochain message . Ton fichier au format excel 2003 si possible (du moins pour que je puisse le lire). Et ajoutes y quelques explications sur le résultat attendu
Cdlmnt
Dans le cas où H7 contient une formule, l'évènement Worksheet_Change doit être ciblé sur les cellules qui interviennent dans ta formule
Pour aller plus loin, il faudrait la partie concernée de ton fichier utilises cjoint.com et joins le lien à ton prochain message . Ton fichier au format excel 2003 si possible (du moins pour que je puisse le lire). Et ajoutes y quelques explications sur le résultat attendu
Cdlmnt
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
Modifié par ccm81 le 11/02/2015 à 22:21
Modifié par ccm81 le 11/02/2015 à 22:21
Pas très claires tes explications (qui d'ailleurs ne sont pas dans ton fichier)
un exemple avec ce que ma boule de cristal m'a suggéré
https://www.cjoint.com/?3BlwDmt6LZy
Cdlmnt
un exemple avec ce que ma boule de cristal m'a suggéré
https://www.cjoint.com/?3BlwDmt6LZy
Cdlmnt
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
12 févr. 2015 à 11:53
12 févr. 2015 à 11:53
à adapter
Cdlmnt
Const cel1 = "H3" Const Cel2 = "H4" Const celf = "H7" Private Sub Worksheet_Change(ByVal Target As Range) Dim k As Long, v As Long If Not Intersect(Target, Union(Range(cel1), Range(Cel2))) Is Nothing Then v = Round(Range(celf).Value) If v > 7 Then v = 7 If v < 0 Then v = 0 ' on colorie tous les rectangles en bleu clair For k = 1 To 7 Shapes("Rectangle " & k).Fill.ForeColor.SchemeColor = 42 Next k ' selon la valeur de v on coloriera les kmax premiers rectangles en bleu foncé Select Case v Case Is > 6: kmax = 7 Case Is > 5: kmax = 3 Case Is > 3: kmax = 2 Case Is > 1: kmax = 1 End Select For k = 1 To kmax: Shapes("Rectangle " & k).Fill.ForeColor.SchemeColor = 4: Next k End If End Sub
Cdlmnt
ccm81
Messages postés
10850
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 mars 2024
2 403
12 févr. 2015 à 17:30
12 févr. 2015 à 17:30
De rien
Peux tu mettre le sujet à Résolu (en haut à droite de ton premier message)
Bonne fin de journée
Peux tu mettre le sujet à Résolu (en haut à droite de ton premier message)
Bonne fin de journée
11 févr. 2015 à 21:48
Merci pour votre réponse.
Voici le lien: http://cjoint.com/?EBlv5ftgQpn
Pour ce qui est du résultat, en fait je voudrais que en fonction de la valeur calculée dans la cellule H7, les rectangles affichent le niveau de volatilité de 1 à 7. C'est peut être plus clair avec le fichier...
Merci,
Cdmt