PortailAccueilFAQRechercherS’enregistrerConnexion
Poster un nouveau sujet   Répondre au sujet
 

EXCEL : est ce que cette fonction existe ? (RÉSOLU)

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : 1, 2  Suivante
AuteurMessage
tof225391
Modérateur


Sexe:Masculin
Age : 25
Inscrit le : 22 Déc 2005
Messages : 535
Localisation : toi meme

Votre configuration PC
Processeur, RAM: AMD Turion™ 64, 2 Giga
Carte graphique, disque dur: ATI Radeon® Xpress 1100, 1 T
Système d'exploitation, service pack: Mandriva 2007 et XP

MessageSujet: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Ven 22 Fév - 12:01

voila parfois je m'amuse sous excel a faire des excercices pour mes élèves (un genre de simulation)
j'aimerais savoir si la fonction suivante existe et si oui comment la faire :

Si valeur = 1 alors on affiche l'image a.jpg
Sinon on affiche l'image b.jpg

vala Smile
merci a vous

PS :
voici le premier td :
Elec 008 : résistivité et résistance

et le second :
Elec 012 : Résistance série/parallèle
_________________
si vous aimez les maquettes regarder ici http://cabrera25.free.fr


Dernière édition par Richard1 le Dim 24 Fév - 0:02, édité 2 fois
Revenir en haut Aller en bas
Yora_senior
Modérateur


Sexe:Masculin
Age : 64
Inscrit le : 29 Juin 2005
Messages : 1117
Localisation : Saint Cyr sur Mer (Var) et parfois St Quentin (Aisne)

Votre configuration PC
Processeur, RAM: AMD 1,8 Ghz
Carte graphique, disque dur: ATI RADEON XPRESS 200- HDD 160 Go + 80 Go + Externe 320 Go
Système d'exploitation, service pack: Windows XP SP2

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Ven 22 Fév - 21:07

Bonsoir Tof225391,

J'ai téléchargé votre fichier mais les feuilles sont protégées par un mot de passe et les images doivent être verrouillées.

Donc difficile de voir ce qu'il faut modifier éventuellement.

Tenez-nous au courant.

Amicalement.
_________________
Revenir en haut Aller en bas
tof225391
Modérateur


Sexe:Masculin
Age : 25
Inscrit le : 22 Déc 2005
Messages : 535
Localisation : toi meme

Votre configuration PC
Processeur, RAM: AMD Turion™ 64, 2 Giga
Carte graphique, disque dur: ATI Radeon® Xpress 1100, 1 T
Système d'exploitation, service pack: Mandriva 2007 et XP

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Ven 22 Fév - 21:15

oups désolé.
le mot de passe est : elec.
mais ce ne sont pas ses fichiers la que je veux modifier.
c'est plutot pour le prochain que j'ai en tete mais avant de m'aventurer, je voulais savoir si cette fonction etait possible.
_________________
si vous aimez les maquettes regarder ici http://cabrera25.free.fr
Revenir en haut Aller en bas
Yora_senior
Modérateur


Sexe:Masculin
Age : 64
Inscrit le : 29 Juin 2005
Messages : 1117
Localisation : Saint Cyr sur Mer (Var) et parfois St Quentin (Aisne)

Votre configuration PC
Processeur, RAM: AMD 1,8 Ghz
Carte graphique, disque dur: ATI RADEON XPRESS 200- HDD 160 Go + 80 Go + Externe 320 Go
Système d'exploitation, service pack: Windows XP SP2

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Ven 22 Fév - 22:21

re,

Ok je cerne un peu mieux le problème. A priori tout (ou presque) est possible que ce soit avec une fonction Excel ou avec quelques lignes de code en VBA.

Le problème est de savoir à travers :

Citation:
Si valeur = 1 alors on affiche l'image a.jpg
Sinon on affiche l'image b.jpg


dans quelle cellule on doit trouver la valeur = 1 pour afficher l'image a.jpg ou b.jpg ?
_________________
Revenir en haut Aller en bas
tof225391
Modérateur


Sexe:Masculin
Age : 25
Inscrit le : 22 Déc 2005
Messages : 535
Localisation : toi meme

Votre configuration PC
Processeur, RAM: AMD Turion™ 64, 2 Giga
Carte graphique, disque dur: ATI Radeon® Xpress 1100, 1 T
Système d'exploitation, service pack: Mandriva 2007 et XP

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Ven 22 Fév - 23:44

on va faire sîmple, 2 cellules, la premiere ou ya la valeur et la deuxieme ou l'on trouve l'image a ou b suivant le résultat
_________________
si vous aimez les maquettes regarder ici http://cabrera25.free.fr
Revenir en haut Aller en bas
Richard1
Modérateur


Sexe:Masculin
Inscrit le : 16 Mai 2005
Messages : 3667
Localisation : Montréal-Canada

MessageSujet: so   Sam 23 Fév - 3:38

Ça y est: Le pro Monsieur Yora_senior est de nouveau au travail.

Tof.... explique bien ton problème et...je suis certain que le pro va te donner LA solution. C'est lui, le meilleur dans ce domaine ici.

Bonne journée à vous deux.

Très Amicalement
Revenir en haut Aller en bas
tof225391
Modérateur


Sexe:Masculin
Age : 25
Inscrit le : 22 Déc 2005
Messages : 535
Localisation : toi meme

Votre configuration PC
Processeur, RAM: AMD Turion™ 64, 2 Giga
Carte graphique, disque dur: ATI Radeon® Xpress 1100, 1 T
Système d'exploitation, service pack: Mandriva 2007 et XP

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 11:59

bah j'ai essayé d'etre le plus precis possible ca suffit pas ?
jpeux faire deux imp ecran si il faut
_________________
si vous aimez les maquettes regarder ici http://cabrera25.free.fr
Revenir en haut Aller en bas
Yora_senior
Modérateur


Sexe:Masculin
Age : 64
Inscrit le : 29 Juin 2005
Messages : 1117
Localisation : Saint Cyr sur Mer (Var) et parfois St Quentin (Aisne)

Votre configuration PC
Processeur, RAM: AMD 1,8 Ghz
Carte graphique, disque dur: ATI RADEON XPRESS 200- HDD 160 Go + 80 Go + Externe 320 Go
Système d'exploitation, service pack: Windows XP SP2

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 13:59

Bonjour Tof225391,

J'ai fait un essai avec votre fichier Elec008 et la feuille "Exercice 1"
L'image est en fait composée de plusieurs images regroupées. J'ai donc sélectionné celle-ci puis "copier" puis je l'ai collée dans Paint et enregistrée en format JPG. J'ai fait la même chose avec une 2ème image (sur la feuille "Exercice 2").

Vous sélectionnez totalement le code contenu dans le cadre puis clic droit et "Copier".

Vous ouvrez votre fichier puis vous cliquez sur "Outils" puis "Macro" puis "Visual Basic Editor". Vous double-cliquez à gauche sur le nom de votre feuille puis dans la fenêtre de droite clic droit puis "Coller".

Vous fermez la fenêtre VBE.

Pour lancer la macro vous pouvez cliquer sur "Outils" puis "Macro" puis "Macros" puis "Exécuter".

Mais vous pouvez aussi affecter une un raccourci ou par exemple à partir de la barre d'outils "Dessin" dessiner un rectangle et lui affecter la Macro.

Enregistrez votre fichier.

Vous pourrez bien sûr copier ce code sur les autres feuilles en adaptant éventuellement l'adresse de la cellule contenant la valeur, le chemin et le nom des images.

N'hésitez pas si vous avez quelques problèmes que ce soit.

Cordialement.

Code:
Sub Insert_image()
 
' Macro enregistrée le 23/02/2008 par Jacques
'
    'ci-dessous on vérifie s'il existe déjà des images sur la feuille.
    'si oui elle(s) est (sont) supprimée(s)
   
    For Each Object In ActiveSheet.Shapes
    Object.Select
    Selection.Cut
    Next
   
    'Ici on affecte à une variable la valeur contenue en "A2"
    'remplacez "A2" par l'adresse de la cellule qui contient la valeur sur votre feuille
   
    myval = Range("A2").Value

    'Variable contenant le chemin d'accès aux images. Modifiez avec votre        'propre chemin.
    mypath = "C:\Documents and Settings\HP_Propriétaire\Mes documents\"
   
    If myval = 1 Then
    'remplacez ci-dessous les noms des images par les vôtres)
    ActiveSheet.Pictures.Insert(mypath & "Image1.JPG").Select
    Else
    ActiveSheet.Pictures.Insert(mypath & "Image2.JPG").Select
    End If
   
    'Ici on place l'image (vous pouvez faire des essais en modifiant les valeurs
    Selection.ShapeRange.IncrementLeft 57#
    Selection.ShapeRange.IncrementTop 117.75
   
End Sub

_________________
Revenir en haut Aller en bas
tof225391
Modérateur


Sexe:Masculin
Age : 25
Inscrit le : 22 Déc 2005
Messages : 535
Localisation : toi meme

Votre configuration PC
Processeur, RAM: AMD Turion™ 64, 2 Giga
Carte graphique, disque dur: ATI Radeon® Xpress 1100, 1 T
Système d'exploitation, service pack: Mandriva 2007 et XP

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 14:55

coucou merci pour l'aide.
euh alors j'ai reussi à la faire mais ya un hic,
je suis obligé d'éxcecuter la macro a chaque fois que je change la valeur pour voir le changeement d'image.
et lorsque j'enregistre le fichier et que je l'ouvre, voila ce qu'il me dit :


J'ai pourtant mis au minimum le niveeau de sécurité :s
_________________
si vous aimez les maquettes regarder ici http://cabrera25.free.fr
Revenir en haut Aller en bas
tof225391
Modérateur


Sexe:Masculin
Age : 25
Inscrit le : 22 Déc 2005
Messages : 535
Localisation : toi meme

Votre configuration PC
Processeur, RAM: AMD Turion™ 64, 2 Giga
Carte graphique, disque dur: ATI Radeon® Xpress 1100, 1 T
Système d'exploitation, service pack: Mandriva 2007 et XP

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 15:01

ah c'est bon pour la sécurité.
il me reste plus que le soucis de rendre la macro active tout le temps
_________________
si vous aimez les maquettes regarder ici http://cabrera25.free.fr
Revenir en haut Aller en bas
Yora_senior
Modérateur


Sexe:Masculin
Age : 64
Inscrit le : 29 Juin 2005
Messages : 1117
Localisation : Saint Cyr sur Mer (Var) et parfois St Quentin (Aisne)

Votre configuration PC
Processeur, RAM: AMD 1,8 Ghz
Carte graphique, disque dur: ATI RADEON XPRESS 200- HDD 160 Go + 80 Go + Externe 320 Go
Système d'exploitation, service pack: Windows XP SP2

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 15:24

Re tof225391,

Bien, un problème solutionné, celui de la sécurité pour les macros.

Maintenant, en ce qui concerne le lancement de la macro (j'ai horreur de ce terme impropre en l'occurrence, mais passons, c'est Microsoft lui-même qui n'emploie que ce terme même lorsque ce n'est pas justifié).

Alors pour que le code s'exécute automatiquement à chaque modification de la valeur de la cellule, il y a une solution que je n'avais pas choisie au départ, car je n'étais pas certain que c'était celle qui vous convenait.

Maintenant que je le sais, il va suffire de modifier la ligne "Sub Insert_image" plus une ou 2 lignes.

Mais comme toujours je fais des essais avant de vous les indiquer.

Donc à bientôt pour la modification.

Cordialement.
_________________
Revenir en haut Aller en bas
tof225391
Modérateur


Sexe:Masculin
Age : 25
Inscrit le : 22 Déc 2005
Messages : 535
Localisation : toi meme

Votre configuration PC
Processeur, RAM: AMD Turion™ 64, 2 Giga
Carte graphique, disque dur: ATI Radeon® Xpress 1100, 1 T
Système d'exploitation, service pack: Mandriva 2007 et XP

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 17:23

oki ca marche
Merci beaucoup Smile
_________________
si vous aimez les maquettes regarder ici http://cabrera25.free.fr
Revenir en haut Aller en bas
Richard1
Modérateur


Sexe:Masculin
Inscrit le : 16 Mai 2005
Messages : 3667
Localisation : Montréal-Canada

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 17:29



Très Amicalement
Revenir en haut Aller en bas
Yora_senior
Modérateur


Sexe:Masculin
Age : 64
Inscrit le : 29 Juin 2005
Messages : 1117
Localisation : Saint Cyr sur Mer (Var) et parfois St Quentin (Aisne)

Votre configuration PC
Processeur, RAM: AMD 1,8 Ghz
Carte graphique, disque dur: ATI RADEON XPRESS 200- HDD 160 Go + 80 Go + Externe 320 Go
Système d'exploitation, service pack: Windows XP SP2

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 18:40

Re,

Au passage : Bonjour Richard1 et merci pour les applaudissements, mais ce n'est que quelques lignes de code.

Essayez ce code. Lorsque vous cliquez sur la cellule
concernée que vous entrez une valeur et que vous validez la procédure
se lance automatiquement.

J'ai aussi ajouté au début du code la
désactivation de la protection de la feuille (pour pouvoir supprimer
puis ajouter une image) puis en fin de code la réactivation avec le mot
de passe "elec".

Code:
Sub worksheet_change(ByVal target As Range)
 ' Macro enregistrée le 23/02/2008 par Jacques

'On désactive la protection de la feuille
ActiveSheet.Unprotect Password:="elec"
 
    'ci-dessous on vérifie s'il existe déjà des images sur la feuille.
'si oui elle(s) est (sont) supprimée(s)
 
    For Each Object In ActiveSheet.Shapes
    Object.Select
    Selection.Cut
    Next
 
    'Ici on affecte à une variable la valeur contenue en "A2"
    'remplacez "A2" par l'adresse de la cellule qui contient la valeur
'sur votre feuille
 
    myval = Range("A2").Value

    'Variable contenant le chemin d'accès aux images. Modifiez avec votre
'propre chemin.
    mypath = "C:\Documents and Settings\HP_Propriétaire\Mes documents\"

    'si vous avez modifié "A2" ci-dessus modifiez :
'target.Column = 1
'(ici il s'agit d'un N° donc :'A = 1 B = 2 etc..
'et/ou target.Row = 2 en conséquence
   
    If target.Column = 1 And target.Row = 2 And myval > 0 Then
        If myval = 1 Then
        'remplacez ci-dessous les noms des images par les vôtres)
        ActiveSheet.Pictures.Insert(mypath & "Image1.JPG").Select
        Else
        ActiveSheet.Pictures.Insert(mypath & "Image2.JPG").Select
        End If
    End If
   
'Ici on place l'image (vous pouvez faire des essais en modifiant les valeurs)
Selection.ShapeRange.IncrementLeft 57#
Selection.ShapeRange.IncrementTop 117.75
'On réactive la protection de la feuille
ActiveSheet.Protect Password:="elec"
End Sub

_________________
Revenir en haut Aller en bas
tof225391
Modérateur


Sexe:Masculin
Age : 25
Inscrit le : 22 Déc 2005
Messages : 535
Localisation : toi meme

Votre configuration PC
Processeur, RAM: AMD Turion™ 64, 2 Giga
Carte graphique, disque dur: ATI Radeon® Xpress 1100, 1 T
Système d'exploitation, service pack: Mandriva 2007 et XP

MessageSujet: Re: EXCEL : est ce que cette fonction existe ? (RÉSOLU)   Sam 23 Fév - 19:42

re Smile
génial le code ^^ tout marche comme je le souhaite merci beaucoup.

derniere recommandation, si je supprime les images, le fichier excel ne les garde pas en mémoire, est ce qu'il y a une solution ?

PS : voici en fichier zip le fichier excel les 2 images de test, la valeur attendue est 1 dans la case A2

telecharger
_________________
si vous aimez les maquettes regarder ici http://cabrera25.free.fr
Revenir en haut Aller en bas

EXCEL : est ce que cette fonction existe ? (RÉSOLU)

Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 2Aller à la page : 1, 2  Suivante

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Le forum d'Aide Informatique pour tous :: Applications :: Bureautique-
Poster un nouveau sujet   Répondre au sujet