Discussion :

[Vincent91]

Bonjour,

Novice en VBA, j'ai toutefois réussi à réaliser quelques commandes, notamment grace à des réponses que j'ai pu trouver sur développez.com
J'en profite donc déjà pour remercier celles et ceux qui apportent des réponses à toutes nos questions.
En revanche, je bloque maintenant sur une problèmatique qui je pense est pourtant simple. en espérant être clair, je souhaiterais copier dans une cellule d'une feuille une image en fonction du résultat d'un condition. en exemple, dans le fichier joint :
sur l'onglet données : chaque jour est incrémenté le réslutat de la veille (vente de patates)
sur l'onglet météo : je souhaiterais qu'en fonction de la moyenne des 5 jours précédants, soit copier une image importée d'un dossier annexe.
Dans l'exemple,
si la moyenne des 5 jours précédants est > à 500, mettre un soleil
Si la moyenne est comprise entre 450 et 500, mettre un nuage
Si la moyenne est inférieure à 450, mettre un orage
Ce n'est qu'un exemple..

En espérant que quelqu'un à une solution..

Merci
Bonne fin de journée

[mercatog]

Bonjour

1. En Feuille météo insère un contrôle ActiveX Image nommé Image1
2. Dans un dossier insère tes 3 images nommées soleil, orage et nuage
3. Mets ce code dans le module de ta feuille Données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fichier As String, Chemin As String
Dim R As Long, S As Long
Dim M As Double
 
If Target.Count = 1 And Target.Column = 2 And Target.Row > 1 Then
    R = Target.Row
    If R <= 6 Then
        S = 2
    Else
        S = R - 4
    End If
    'Moyenne des 5 derniers jours, si <5 jours, moyenne des jours à partir de B2
    M = Evaluate("AVERAGE(B" & S & ":B" & R & ")")
    Chemin = "C:\Users\user\Desktop\"
    Select Case M
        Case Is <= 450: Fichier = "orage.jpg"
        Case Is <= 500: Fichier = "nuage.jpg"
        Case Else: Fichier = "soleil.jpg"
    End Select
    Worksheets("météo").Image1.Picture = LoadPicture(Chemin & Fichier)
End If
End Sub

[Vincent91]

Bonjour,

Tout d'abord merci pour la réponse apportée (Menant plusieurs projets de front, je reviens un peu tard sur ce acs)
Le code que tu me proposes est très intéressant, mais il y a quelques chose que je ne comprends pas :

l'image devant s'afficher étant différente suivant un résultats, comment dois-je formuler le chemin. En effet, dans le chemin je dois spécifier une image, mais, par conséquent, c'est toujours la même qui s'affiche...

Merci encore

Cordialement

[mercatog]

Bonjour
je n'ai pas compris ton problème
Tu as un dossier Chemin (à adapter) où tu as les 3 images orage.jpg, nuage.jpg et soleil.jpg.
Sur ta feuille tu as un contrôle ActiveX nommé Image1
Et en fonction de la moyenne des 5 dernières données l'image se met à jour.

PS: j'ai testé! à toi d'adapter

[Vincent91]

Re-bonjour

Je me suis mal exprimé et j'ai du mal adapté le code
Concernant le contrôle et l'insertion de l'image ==> Ok ça fonctionne quand je donne le chemin suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("météo").Image1.Picture = LoadPicture("E:\0 - Vincent\UI - C3P\Instances\Outils\Images\4Orageux.jpg")

Mais comme tu peux le voir, une seule image est spécifiée, et donc seul cette image est copiée.

Donc comment spécifier le chemin pour que le choix soit donné au 3 images en fonction du résultat ?
j'ai essayé d'autres choses, mais à chaque fois, "erreur75 erreur d'accés chemin/fichier"

Tu vas me trouver nul, désolé

[mercatog]

C'est ce que fait le code du post #3 (à adapter au niveau du chemin, et des noms)
A chaque saisie d'une nouvelle donnée, le code calcule la moyenne des 5 dernières lignes et l'image se met à jour automatiquement.

Si tu n'arrive pas, tu peux mettre en PJ ton fichier (réduit et sans données confidentielles)

[Vincent91]

Avec le fichier..

Merci pour ton aide

[mercatog]

Adapte cette partie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Chemin = "C:\Users\user\Desktop\"

En mettant le chemin de TON dossier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Chemin = "E:\0 - Vincent\UI - C3P\Instances\Outils\Images\"

et aussi cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("météo").Image1.Picture = LoadPicture("E:\0 - Vincent\UI - C3P\Instances\Outils\Images\4Orageux.jpg")

Avec cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Worksheets("météo").Image1.Picture = LoadPicture(Chemin & Fichier)

[Vincent91]

Hé bien voilà !

C'est parfait (quelle buse je fais !)

Merci à toi pour tes réponses précises et ta réactivité

Cordialement

[Vincent91]

Une dernière question

est-il possible d'enchainer ces codes si je veux appliquer cela à plusieurs mesures ?

Merci