Salut Sergio,
Il te faut trouver une méthode qui prend une string et comprend qu'on
appelle la
procédure correspondante. Cette méthode existe (Application.Run).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nom$
If Target.Address = "$E$12" Then
nom = "A" & Target
Application.Run nom
End If
End Sub
Salutations,
Daniel M.
Salut Sergio,
Il te faut trouver une méthode qui prend une string et comprend qu'on
appelle la
procédure correspondante. Cette méthode existe (Application.Run).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nom$
If Target.Address = "$E$12" Then
nom = "A" & Target
Application.Run nom
End If
End Sub
Salutations,
Daniel M.
Salut Sergio,
Il te faut trouver une méthode qui prend une string et comprend qu'on
appelle la
procédure correspondante. Cette méthode existe (Application.Run).
Private Sub Worksheet_Change(ByVal Target As Range)
Dim nom$
If Target.Address = "$E$12" Then
nom = "A" & Target
Application.Run nom
End If
End Sub
Salutations,
Daniel M.
Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une seule carte et
choisir d'y
insérer l'image de tel ou tel pays dépendant de la valeur E12.
Les fichiers images seraient alors dans le même répertoire que ton
classeur,
MAIS PAS DANS ton classeur (ou plutôt une seule à la fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me semble plus facile
à
gérer.
Pour rajouter un pays: avoir l'image dans un fichier et rajouter le nom
dans la
liste de validation (E12). Pas de cadre à rajouter à s'assurer de sa
visibilité
etc.
C'était juste une suggestion.
Salutations,
Daniel M.
Serge,
Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une seule carte et
choisir d'y
insérer l'image de tel ou tel pays dépendant de la valeur E12.
Les fichiers images seraient alors dans le même répertoire que ton
classeur,
MAIS PAS DANS ton classeur (ou plutôt une seule à la fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me semble plus facile
à
gérer.
Pour rajouter un pays: avoir l'image dans un fichier et rajouter le nom
dans la
liste de validation (E12). Pas de cadre à rajouter à s'assurer de sa
visibilité
etc.
C'était juste une suggestion.
Salutations,
Daniel M.
Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une seule carte et
choisir d'y
insérer l'image de tel ou tel pays dépendant de la valeur E12.
Les fichiers images seraient alors dans le même répertoire que ton
classeur,
MAIS PAS DANS ton classeur (ou plutôt une seule à la fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me semble plus facile
à
gérer.
Pour rajouter un pays: avoir l'image dans un fichier et rajouter le nom
dans la
liste de validation (E12). Pas de cadre à rajouter à s'assurer de sa
visibilité
etc.
C'était juste une suggestion.
Salutations,
Daniel M.
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" a écrit dans le message de
news: #wfP38#Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une seule carte et
choisir d'yinsérer l'image de tel ou tel pays dépendant de la valeur E12.
Les fichiers images seraient alors dans le même répertoire que ton
classeur,MAIS PAS DANS ton classeur (ou plutôt une seule à la fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me semble plus
facile
àgérer.
Pour rajouter un pays: avoir l'image dans un fichier et rajouter le nom
dans laliste de validation (E12). Pas de cadre à rajouter à s'assurer de sa
visibilitéetc.
C'était juste une suggestion.
Salutations,
Daniel M.
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans le message de
news: #wfP38#7DHA.2832@tk2msftngp13.phx.gbl...
Serge,
Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une seule carte et
choisir d'y
insérer l'image de tel ou tel pays dépendant de la valeur E12.
Les fichiers images seraient alors dans le même répertoire que ton
classeur,
MAIS PAS DANS ton classeur (ou plutôt une seule à la fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me semble plus
facile
à
gérer.
Pour rajouter un pays: avoir l'image dans un fichier et rajouter le nom
dans la
liste de validation (E12). Pas de cadre à rajouter à s'assurer de sa
visibilité
etc.
C'était juste une suggestion.
Salutations,
Daniel M.
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" a écrit dans le message de
news: #wfP38#Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une seule carte et
choisir d'yinsérer l'image de tel ou tel pays dépendant de la valeur E12.
Les fichiers images seraient alors dans le même répertoire que ton
classeur,MAIS PAS DANS ton classeur (ou plutôt une seule à la fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me semble plus
facile
àgérer.
Pour rajouter un pays: avoir l'image dans un fichier et rajouter le nom
dans laliste de validation (E12). Pas de cadre à rajouter à s'assurer de sa
visibilitéetc.
C'était juste une suggestion.
Salutations,
Daniel M.
-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" a écrit dans
le message de
news: #wfP38#Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte et
choisir d'yinsérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que ton
classeur,MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facile
àgérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nom
dans laliste de validation (E12). Pas de cadre à rajouter à
s'assurer de sa
visibilitéetc.
C'était juste une suggestion.
Salutations,
Daniel M.
.
-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans
le message de
news: #wfP38#7DHA.2832@tk2msftngp13.phx.gbl...
Serge,
Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte et
choisir d'y
insérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que ton
classeur,
MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facile
à
gérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nom
dans la
liste de validation (E12). Pas de cadre à rajouter à
s'assurer de sa
visibilité
etc.
C'était juste une suggestion.
Salutations,
Daniel M.
.
-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" a écrit dans
le message de
news: #wfP38#Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte et
choisir d'yinsérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que ton
classeur,MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facile
àgérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nom
dans laliste de validation (E12). Pas de cadre à rajouter à
s'assurer de sa
visibilitéetc.
C'était juste une suggestion.
Salutations,
Daniel M.
.
-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" a écrit dans
le message de
news: #wfP38#Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte et
choisir d'yinsérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que ton
classeur,MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facile
àgérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nom
dans laliste de validation (E12). Pas de cadre à rajouter à
s'assurer de sa
visibilitéetc.
C'était juste une suggestion.
Salutations,
Daniel M.
.
-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans
le message de
news: #wfP38#7DHA.2832@tk2msftngp13.phx.gbl...
Serge,
Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte et
choisir d'y
insérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que ton
classeur,
MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facile
à
gérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nom
dans la
liste de validation (E12). Pas de cadre à rajouter à
s'assurer de sa
visibilité
etc.
C'était juste une suggestion.
Salutations,
Daniel M.
.
-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" a écrit dans
le message de
news: #wfP38#Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte et
choisir d'yinsérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que ton
classeur,MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facile
àgérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nom
dans laliste de validation (E12). Pas de cadre à rajouter à
s'assurer de sa
visibilitéetc.
C'était juste une suggestion.
Salutations,
Daniel M.
.
La suite, c'est d'annihiler l'image présente
avant d'installer la nouvelle !
Le rhum, c'est pour beaucoup plus tard :-)
Serge
"Modeste" a écrit dans le message de
news: e27001c3effd$71a1f670$
;-)))
Tsss...tssss
Serge !!!
Quelque chose du genre ?
NomImage="Autriche"
FicImage="D:Mes documentsMes images" & NomImage & ".bmp"
puis ActiveSheet.Pictures.Insert FicImage
allez un rhum pour moi....
@+-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" a écrit dans
le message denews: #wfP38#Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte etchoisir d'yinsérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que tonclasseur,MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facileàgérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nomdans laliste de validation (E12). Pas de cadre à rajouter à
s'assurer de savisibilitéetc.
C'était juste une suggestion.
Salutations,
Daniel M.
.
La suite, c'est d'annihiler l'image présente
avant d'installer la nouvelle !
Le rhum, c'est pour beaucoup plus tard :-)
Serge
"Modeste" <gee-dee-@discussions.microsoft.com> a écrit dans le message de
news: e27001c3effd$71a1f670$a501280a@phx.gbl...
;-)))
Tsss...tssss
Serge !!!
Quelque chose du genre ?
NomImage="Autriche"
FicImage="D:Mes documentsMes images" & NomImage & ".bmp"
puis ActiveSheet.Pictures.Insert FicImage
allez un rhum pour moi....
@+
-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" <prenom.maher@bigfoot.inutil.com> a écrit dans
le message de
news: #wfP38#7DHA.2832@tk2msftngp13.phx.gbl...
Serge,
Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte et
choisir d'y
insérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que ton
classeur,
MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facile
à
gérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nom
dans la
liste de validation (E12). Pas de cadre à rajouter à
s'assurer de sa
visibilité
etc.
C'était juste une suggestion.
Salutations,
Daniel M.
.
La suite, c'est d'annihiler l'image présente
avant d'installer la nouvelle !
Le rhum, c'est pour beaucoup plus tard :-)
Serge
"Modeste" a écrit dans le message de
news: e27001c3effd$71a1f670$
;-)))
Tsss...tssss
Serge !!!
Quelque chose du genre ?
NomImage="Autriche"
FicImage="D:Mes documentsMes images" & NomImage & ".bmp"
puis ActiveSheet.Pictures.Insert FicImage
allez un rhum pour moi....
@+-----Message d'origine-----
Quelque chose du genre ?
Sub InsèreCarte()
'nom = "Autriche"
[a1].Select
ActiveSheet.Pictures.Insert("D:Mes documents
Mes imagesAutriche.bmp")
Range("E1").Select
End Sub
Mais alors, comment mettre «nom» dans le chemin
de mes images ?
Serge
"Daniel.M" a écrit dans
le message denews: #wfP38#Serge,Mais ai trouvé quelque chose de plus simple
qui rend superfétatoire le Select Case et
Application.Run (elle servira une autre fois).
J'ai des cartes emplilées de mêmes dimensions
nommées : Autriche, Belgique, Espagne, France ...
et j'ai la liste (Validation) des noms en E12 :
Juste une autre idée comme ça, tu pourrais avoir une
seule carte etchoisir d'yinsérer l'image de tel ou tel pays dépendant de la
valeur E12.
Les fichiers images seraient alors dans le même
répertoire que tonclasseur,MAIS PAS DANS ton classeur (ou plutôt une seule à la
fois).
Dans le cas où tu as beaucoup de pays (N > 30), cela me
semble plus facileàgérer.
Pour rajouter un pays: avoir l'image dans un fichier et
rajouter le nomdans laliste de validation (E12). Pas de cadre à rajouter à
s'assurer de savisibilitéetc.
C'était juste une suggestion.
Salutations,
Daniel M.
.