Associer des liens hypertexte par une macro
Fermé
bob1314
Messages postés
65
Date d'inscription
vendredi 16 février 2007
Statut
Membre
Dernière intervention
30 mars 2023
-
22 juin 2013 à 13:35
bob1314 Messages postés 65 Date d'inscription vendredi 16 février 2007 Statut Membre Dernière intervention 30 mars 2023 - 25 juin 2013 à 17:34
bob1314 Messages postés 65 Date d'inscription vendredi 16 février 2007 Statut Membre Dernière intervention 30 mars 2023 - 25 juin 2013 à 17:34
A voir également:
- Associer des liens hypertexte par une macro
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Créer un lien pour partager des photos - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro recorder - Télécharger - Confidentialité
10 réponses
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
23 juin 2013 à 05:53
23 juin 2013 à 05:53
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
bob1314
Messages postés
65
Date d'inscription
vendredi 16 février 2007
Statut
Membre
Dernière intervention
30 mars 2023
2
23 juin 2013 à 20:46
23 juin 2013 à 20:46
Merci frenchie t'es un as.
ça fonctionne super.
A plus Bob
ça fonctionne super.
A plus Bob
bob1314
Messages postés
65
Date d'inscription
vendredi 16 février 2007
Statut
Membre
Dernière intervention
30 mars 2023
2
24 juin 2013 à 11:38
24 juin 2013 à 11:38
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
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
24 juin 2013 à 13:00
24 juin 2013 à 13:00
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
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
24 juin 2013 à 13:02
24 juin 2013 à 13:02
j'oubliai
pour chaque image, leur affecter la macro "Image"
pour chaque image, leur affecter la macro "Image"
bob1314
Messages postés
65
Date d'inscription
vendredi 16 février 2007
Statut
Membre
Dernière intervention
30 mars 2023
2
24 juin 2013 à 17:41
24 juin 2013 à 17:41
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
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
24 juin 2013 à 22:34
24 juin 2013 à 22:34
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
bob1314
Messages postés
65
Date d'inscription
vendredi 16 février 2007
Statut
Membre
Dernière intervention
30 mars 2023
2
25 juin 2013 à 12:02
25 juin 2013 à 12:02
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
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
337
25 juin 2013 à 14:55
25 juin 2013 à 14:55
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
bob1314
Messages postés
65
Date d'inscription
vendredi 16 février 2007
Statut
Membre
Dernière intervention
30 mars 2023
2
25 juin 2013 à 17:34
25 juin 2013 à 17:34
OUI OUI ET OUI
ça marche impec je te remercie pour tes efforts.
A bientôt Bob
ça marche impec je te remercie pour tes efforts.
A bientôt Bob