Associer des liens hypertexte par une macro
bob1314
Messages postés
77
Statut
Membre
-
bob1314 Messages postés 77 Statut Membre -
bob1314 Messages postés 77 Statut Membre -
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
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
A voir également:
- Associer des liens hypertexte par une macro
- Créer un lien pour partager des photos - Guide
- Associer chromecast - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Vérificateur de liens - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
10 réponses
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
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
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
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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
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
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
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
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
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
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
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
