associer des liens hypertexte par une macro

Question

Bonjour à tous,
Sur un classeur j'ai:
feuille 1 sur laquelle sont disposées des images
image 1
image 2 
image 3
image 4

feuille 2 sur laquelle le nom et le libellé des images
image 1 rouge
image 2 bleu 
image 3 jaune
image 4 vert

feuille 3 sur laquelle le libellé résultant de l'association des images

1+2 violet
2+1 marron
1+3 orange
2+3 vert foncé 

en cliquant sur l'image 1 et ensuite sur l'image 2 je voudrais recopier 

les résultats des associations des images sur une feuille 4 les uns à la 

suite des autres.
Exemple clic image 1 et image 3 
clic image 1 et image 2
clic image 2 et image 1
Résultat sur feuille 4
orange
violet
marron
les résultats dépendent toujours du sens du clic.

J'ai fait des liens hypertxt pour chaque cellules avec les cellules des 

autres feuilles, mais je suis obligé de cliquer plusieurs fois pour 

obtenir le résultat final.
J'aimerai avoir un code pour faire cette opération en cliquant simplement 

sur les deux images associées et ainsi de suite pour les autres. 

merci d'avance pour votre aide.
Bob

Frenchie83 · Answer

Bonjour

ceci correspond-il à vos attentes?
https://www.cjoint.com/?CFxfXGa0Fou

sur la feuille 1, il y a les 4 images
la sélection s'affiche dans les cellules B1 et B2
le résultat de la sélection s'affiche dans la feuille résultat

cdlt

bob1314 · Answer

Merci frenchie t'es un as.
ça fonctionne super.
A plus Bob

bob1314 · Answer

Resalut frebchie
J'ai oublié de dire que je vais avoir une trentaine d'images et donc ce qui entraine le nombre de liens.
Est ce possible?
j'espère que ce n'est pas trop compliqué.
Merci encore 
Bob

Frenchie83 · Answer

Bonjour

Voilà

https://www.cjoint.com/?CFym25sEfNE

mais avant toute chose, il faut renommer chaque image.
pour chaque image, dans la zone de Nom saisir  "Image N°"
 pour la 1ère image --->"Image 1"
pour la 2ème image---> "Image 2" 
etc..
à valider à chaque fois par la touche Entrée
laisser un espace entre Image et le N°

cdlt

Frenchie83 · Answer

j'oubliai
pour chaque image, leur affecter la macro "Image"

bob1314 · Answer

ok frenchie ça fonctionne, et je vais avoir du boulot pour affecter toutes les macros.
Cependant peut tu me dire comment tout remettre à zéro sur le fichier exemple car je dois intégrer 30 images et je voudrai que les affectations des macros commencent par l'image 1.
J'ai essayé de remplacer les images existantes pour l'exemple par celles dont j'aurai besoin, mais la première image commence par la 5.
Merci encore 
Bob

Frenchie83 · Answer

bonsoir

comme je l'ai précédemment 
" il faut renommer chaque image. 
pour chaque image, dans la zone de Nom saisir "Image N°" 
 pour la 1ère image --->"Image 1" 
pour la 2ème image---> "Image 2" 
etc.. 
à valider à chaque fois par la touche Entrée 
laisser un espace entre Image et le N° "

donc tu effaces les images du fichier exemple, tu mets tes propres images
et tu les renommes comme je l'ai préconisé

Quand tu dis "je vais avoir du boulot pour affecter toutes les macros." ce n'est pas un gros travail, clic droit sur chaque image et affecter la macro "Image"

à partir de là, tu pourras rajouter le nombre d'image que tu voudras

bon travail

cdlt

bob1314 · Answer

Frenchie, c'est encore moi,
J'ai un problème avec les associations.
Lorsque je veux associer l'image 1 et 11 je clique d'abord sur 1 et ensuite sur 11, et pour associe image 11 et image 1 je clique 11 et ensuite 1, le probleme c'est que le resultat est le meme car dabs la colonne sélection je retrouve 111.
comme j'ai 30 images le problème va se renouveler avec les images:1 et 21,1 et 31, 2 et 22 et ainsi de suite.
j'ai essayé de palier à ce problème en mettant des lettres à la place des chiffres, image A image B ..........image AD, mais ça ne fonctionne pas.
ne peut-on pas créer dans la feuille (3)  2 colonnes sélection où dans la col (A) j'ai l'image du premier clic, dans la col(B) j'ai l'image du  deuxième clic.
Désolé de te solliciter si souvent mais j'y suis presque, je cherche de mon coté mais je ne suis pas aussi doué que toi.
Merci Bob

Frenchie83 · Answer

Bonjour

Pas de panique, on met un * comme séparateur, j'ai simplement rajouté "& "*"
derrière   "Range("B1").Value = NumImage " ('2 endroits)

petite modif, remplace la macro image par celle-ci ou modif les 2 lignes

Sub Image()
    Sheets("Feuil1").Select
    NumImage = Int(Mid(Application.Caller, InStr(1, Application.Caller, Chr(32), 1) + 1, 4))
    
    If IsEmpty(Range("B1")) Then
        Range("B1").Value = NumImage & "*"
    Else
        If IsEmpty(Range("B2")) And Range("B1").Value <> NumImage Then
            Range("B2").Value = NumImage
            If Not IsEmpty(Range("B2")) Then Combinaison = Range("B1").Value & Range("B2").Value
            Affichage
        ElseIf Not IsEmpty(Range("B2")) Then
            Range("B1").Value = NumImage & "*"
            Range("B2").Value = ""
        End If
    End If
End Sub" 

dans la feuille 3 il faut que tu mettes un * entre chaque combinaison
exemple 
1*2
2*1
1*11
11*1
2*11

avec ça, ça devrait aller

cdlt

bob1314 · Answer

OUI OUI ET OUI 
ça marche impec je te remercie pour tes efforts.
A bientôt Bob

Associer des liens hypertexte par une macro

10 réponses

Discussions similaires

Newsletters