Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même dossier.http://www.cijoint.fr/cjlink.php ?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même dossier.http://www.cijoint.fr/cjlink.php ?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même dossier.http://www.cijoint.fr/cjlink.php ?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même
dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même
dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même
dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" a écrit dans le message de news:
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAffiche
JB
http://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" wrote:Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même
dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
fc918865-8e4b-4b39-a607-51a51e8183f5@j4g2000yqe.googlegroups.com...
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAffiche
JB
http://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" <Guy_Excel_2...@bonjour.fr> wrote:
Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même
dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" a écrit dans le message de news:
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAffiche
JB
http://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" wrote:Bonjour,
Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et de
faire apparaître une image en cellule F6 ?
L'image se trouve dans le même
dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
--
Cordialement
Guy
Bonjour.
Regarde ce classeur :
http://www.cijoint.fr/cjlink.php?file=cj200911/cijJ4XMDgg.xls
Cordialement.
Daniel
Bonjour.
Regarde ce classeur :
http://www.cijoint.fr/cjlink.php?file=cj200911/cijJ4XMDgg.xls
Cordialement.
Daniel
Bonjour.
Regarde ce classeur :
http://www.cijoint.fr/cjlink.php?file=cj200911/cijJ4XMDgg.xls
Cordialement.
Daniel
Bonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8, etc......
Merci de votre aide
Bonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8, etc......
Merci de votre aide
Bonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8, etc......
Merci de votre aide
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" a écrit dans le message de news:
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAf...
JBhttp://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" wrote:
> Bonjour,
> Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 e t de
> faire apparaître une image en cellule F6 ?
> L'image se trouve dans le même
> dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
> --
> Cordialement
> Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
fc918865-8e4b-4b39-a607-51a51e818...@j4g2000yqe.googlegroups.com...
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAf...
JBhttp://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" <Guy_Excel_2...@bonjour.fr> wrote:
> Bonjour,
> Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 e t de
> faire apparaître une image en cellule F6 ?
> L'image se trouve dans le même
> dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
> --
> Cordialement
> Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" a écrit dans le message de news:
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAf...
JBhttp://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" wrote:
> Bonjour,
> Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 e t de
> faire apparaître une image en cellule F6 ?
> L'image se trouve dans le même
> dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
> --
> Cordialement
> Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Au temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de l'image
précédente, en fait, la dernière collée sur la feuille. Fais donc attention
si tu en ajoutes.
DanielBonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide
Au temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de l'image
précédente, en fait, la dernière collée sur la feuille. Fais donc attention
si tu en ajoutes.
Daniel
Bonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide
Au temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de l'image
précédente, en fait, la dernière collée sur la feuille. Fais donc attention
si tu en ajoutes.
DanielBonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide
Ou plutôt cette syntaxe :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
On Error Resume Next
ActiveSheet.Shapes("toto").Delete
On Error GoTo 0
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Selection.ShapeRange.Name = "toto"
End If
End Sub
DanielAu temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target,
[A6:A30], 0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de
l'image précédente, en fait, la dernière collée sur la feuille. Fais donc
attention si tu en ajoutes.
DanielBonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes
"If Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide
Ou plutôt cette syntaxe :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
On Error Resume Next
ActiveSheet.Shapes("toto").Delete
On Error GoTo 0
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Selection.ShapeRange.Name = "toto"
End If
End Sub
Daniel
Au temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target,
[A6:A30], 0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de
l'image précédente, en fait, la dernière collée sur la feuille. Fais donc
attention si tu en ajoutes.
Daniel
Bonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes
"If Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide
Ou plutôt cette syntaxe :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
On Error Resume Next
ActiveSheet.Shapes("toto").Delete
On Error GoTo 0
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Selection.ShapeRange.Name = "toto"
End If
End Sub
DanielAu temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target,
[A6:A30], 0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de
l'image précédente, en fait, la dernière collée sur la feuille. Fais donc
attention si tu en ajoutes.
DanielBonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes
"If Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" a écrit dans le message de news:
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAf...
JBhttp://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" wrote:
> Bonjour,
> Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et
> de
> faire apparaître une image en cellule F6 ?
> L'image se trouve dans le même
> dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
> --
> Cordialement
> Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
fc918865-8e4b-4b39-a607-51a51e818...@j4g2000yqe.googlegroups.com...
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAf...
JBhttp://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" <Guy_Excel_2...@bonjour.fr> wrote:
> Bonjour,
> Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et
> de
> faire apparaître une image en cellule F6 ?
> L'image se trouve dans le même
> dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
> --
> Cordialement
> Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Bonjour JB
Ce ne sont pas des images .jpg.
En fait elles seront sur la même feuille
--
Cordialement
Guy
"JB" a écrit dans le message de news:
Bonjour,
http://boisgontierjacques.free.fr/pages_site/lesimages.htm#FonctionAf...
JBhttp://boisgontierjacques.free.fr
On 25 nov, 09:27, "Guy72" wrote:
> Bonjour,
> Est-il possible d'après un texte par exemple: "Pluie" en cellule D6 et
> de
> faire apparaître une image en cellule F6 ?
> L'image se trouve dans le même
> dossier.http://www.cijoint.fr/cjlink.php?file=cj200911/cijFdbPym5.xls
> --
> Cordialement
> Guy- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Ok ça fonctionne seulement pour avoir.
D6(Texte liste déroulante)et F6(résultat image suivant le choix de D6).Ok
Mais si je souhaiterais avoir la même chose dans les cellules en dessous.
D9(Texte liste déroulante) et F9(résultat image suivant le choix de D9).
D11(Texte liste déroulante) et F11(résultat image suivant le choix de D11).
etc.........
Pour ça les images doivent rester en place.
--
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:Ou plutôt cette syntaxe :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
On Error Resume Next
ActiveSheet.Shapes("toto").Delete
On Error GoTo 0
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Selection.ShapeRange.Name = "toto"
End If
End Sub
DanielAu temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target,
[A6:A30], 0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de
l'image précédente, en fait, la dernière collée sur la feuille. Fais donc
attention si tu en ajoutes.
DanielBonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide
Ok ça fonctionne seulement pour avoir.
D6(Texte liste déroulante)et F6(résultat image suivant le choix de D6).Ok
Mais si je souhaiterais avoir la même chose dans les cellules en dessous.
D9(Texte liste déroulante) et F9(résultat image suivant le choix de D9).
D11(Texte liste déroulante) et F11(résultat image suivant le choix de D11).
etc.........
Pour ça les images doivent rester en place.
--
Cordialement
Guy
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eem6yZcbKHA.5656@TK2MSFTNGP04.phx.gbl...
Ou plutôt cette syntaxe :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
On Error Resume Next
ActiveSheet.Shapes("toto").Delete
On Error GoTo 0
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Selection.ShapeRange.Name = "toto"
End If
End Sub
Daniel
Au temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target,
[A6:A30], 0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de
l'image précédente, en fait, la dernière collée sur la feuille. Fais donc
attention si tu en ajoutes.
Daniel
Bonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide
Ok ça fonctionne seulement pour avoir.
D6(Texte liste déroulante)et F6(résultat image suivant le choix de D6).Ok
Mais si je souhaiterais avoir la même chose dans les cellules en dessous.
D9(Texte liste déroulante) et F9(résultat image suivant le choix de D9).
D11(Texte liste déroulante) et F11(résultat image suivant le choix de D11).
etc.........
Pour ça les images doivent rester en place.
--
Cordialement
Guy
"Daniel.C" a écrit dans le message de news:Ou plutôt cette syntaxe :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target, [A6:A30],
0), 1)
On Error Resume Next
ActiveSheet.Shapes("toto").Delete
On Error GoTo 0
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
Selection.ShapeRange.Name = "toto"
End If
End Sub
DanielAu temps ppour moi.
Remplace la macro par :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
Image = Application.Index([A6:A30], Application.Match(Target,
[A6:A30], 0), 1)
ActiveSheet.Shapes(Shapes.Count).Delete
ActiveSheet.Shapes.Range(Image).Select
Selection.Copy
Range("F6").Select
ActiveSheet.Paste
End If
End Sub
(le nom des images est en A6 et plus bas). J'ai ajouté le delete de
l'image précédente, en fait, la dernière collée sur la feuille. Fais donc
attention si tu en ajoutes.
DanielBonjour,
D'accord ça fonctionne avec des noms différent dans le code.
La liste déroulante me conviens bien.
Il faut donc que je copie autant de fois le code que noms différents
"ActiveSheet.Shapes.Range("Pluie").Select" et de cellules différentes "If
Target.Address = "$D$6" Then" et "Range("F6").Select"?
Exemple : Texte D6 Image F6, Texte D7 Image F7, Texte D8 Image F8,
etc......
Merci de votre aide