Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Mise en page liens hypertextes automatiquement

L

Leché

XLDnaute Junior
Bonjour à tous et à toutes,

Je cherche un code VBA permettant d'affecter automatiquement des liens hypertextes en fonction de la valeur d'une cellule et donc en fonction du nom du fichier.

Le but serait que pour chaque valeur saisie dans la colonne B2 (image 1) , le plan (image 2) soit automatiquement affecté en lien hypertexte à la cellule.

A savoir que les 10 premiers chiffres des cellules en B, correspondent à chaque fois aux 10 premières valeurs du numéro du plan.




A vos idées..
En vous remerciant d'avance pour vos réponses.
Je reste attentif a vos réponses

Cordialement,
 
Solution
J'ai fait un classeur indépendant dans lequel tu précises les informations / paramètres de traitement.
J'ai considéré que les fichiers Plans étaient de type .TIF ce qui exclu la recherche d'autres fichiers.
Aussi que les fichiers Plans étaient regroupés dans un répertoire unique.
C'est facilement modifiable.

Edit: fichier modifié le 09/12/2020 à 18h20
Trier par date Trier par votes

Dudu2

XLDnaute Barbatruc
Oui cela fonctionnera car chaque cellule de la plage est traitée.

Il est aussi possible d'indiquer une plage "multi-area" comme B2:B4,B6:B8,D12:E20
 
Dernière édition:
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
Reprends le fichier que je viens de modifier et dans lequel j'ai corrigé un petit bug pour la suppression des liens hypertextes éventuels qui n'a aucune chance de se produire dans ce contexte mais pour le principe.
 
Dernière édition:
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
Il faut prendre le fichier du message #10

Bug: (au-delà de 1 ça bug, mais tu n'en as jamais plus d'1)
VB: 
        'Suppression des liens hypertextes éventuels
        For i = 1 To Cellule.Hyperlinks.Count
            Cellule.Hyperlinks(i).Delete
        Next i
Pas bug:
VB: 
        'Suppression des liens hypertextes éventuels
        Do While Cellule.Hyperlinks.Count
            Cellule.Hyperlinks(1).Delete
        Loop
 
Vote positif 0 Vote négatif
L

Leché

XLDnaute Junior
Dudu2 à dit:
Question: les fichiers plans sont dans un répertoire ou dispersés dans un répertoire et ses sous-répertoires ?

Question: tous les plans sont des fichiers TIF ?
Cliquez pour agrandir...

Bonjour Dudu2,

Je reviens vers vous concernant la question ci-dessous, mon besoin à changé. En juin mes plans étaient sous format .TIF , aujourd'hui nous passons progressivement sur des formats .PDF , cela me génère une erreur (du moins je suppose) a cause des ces plans PDF.

Lors de l'exécution de la macro , j'ai un message d'erreur (voir ou cela bloque sur PJ ERROR 10) pour ce rendu (voir PJ ERROR 20) , la cellule dont il n'y a pas de lien hypertexte est un nouveau fichier PDF en question..

Que faire ?

Cordialement,
 

Pièces jointes

  • error 20.PNG
    8.2 KB · Affichages: 25
  • error 10.PNG
    23.2 KB · Affichages: 22
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
Bonjour,
Reprends le fichier en Post #10.

Tu peux:
- soit spécifier la liste des extensions des fichiers Plans,
- soit ne rien spécifier et dans le répertoire des fichiers Plans, le programme prendra le 1 fichier dont le nom match le contenu de la cellule quelque soit son extension.

Je ne sais pas d'où vient l'erreur 20 car elle résulte d'un Resume Next sans contexte d'erreur et je n'ai pas ça dans mon code. Vérifie ton propre code.
J'ai toutefois sécurisé le test en ajoutant un CStr: If Len(Trim(CStr(Cellule.Value))) > 0 Then
 
Dernière édition:
Vote positif 0 Vote négatif
L

Leché

XLDnaute Junior

Merci pour ton retour, je n'ai pas mon PC ce soir , je regarde demain.

Concernant le second point , il faut que le nom match a 100% pour attribuer le lien ? Car je récupère les plans sous forme d'export, donc il y a généralement d'autres caractères qui suivent derrière. Cependant les 8 premiers chiffres correspondent a la cellule ciblée

Bonne soirée, je te tiens au courant demain.
 
Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc
il faut que le nom match a 100% pour attribuer le lien ?
Cliquez pour agrandir...
Non, il suffit que les caractères de la cellule soient le début du nom du fichier.
VB: 
'Recherche du fichier correspondant
For i = 1 To UBound(TableauNomsFichiers)
If UCase(Trim(CStr(Cellule.Value))) = Left(UCase(Trim(TableauNomsFichiers(i))), Len(Trim(CStr(Cellule.Value)))) Then Exit For
Next i
 
Vote positif 0 Vote négatif
L

Leché

XLDnaute Junior
Bonjour,
Après plusieurs essais, OK , tout roule
Dans l'esprit d'optimisation, est-il possible de rajouter deux onglets dans "FEUILLES CONCERNÉES" au lieu de re lancer la macro une seconde fois ?

Cordialement,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

J
  • Question
XL 2021 Créer liens hypertexte automatiquement
2
Réponses
21
Affichages
338
JMC
J
B
  • Question
XL 2021 Créer liste déroulante contenant des liens hypertextes
Réponses
9
Affichages
770
job75
R
  • Question
Microsoft 365 Fonction lien Hypertexte
Réponses
7
Affichages
727
job75
J
  • Question
Microsoft 365 Problème lien hypertexte
Réponses
5
Affichages
481
Phil69970
R
  • Question
XL 2016 Mise en forme lien hypertexte selon couleur des onglets.
Réponses
11
Affichages
1 K
Radsgord
R
M
  • Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
291
MCOTTEND
M
O
  • Résolu(e)
XL 2013 Formule ou Codage VBA qui met à jour un tableau en fonction de quantité
Réponses
5
Affichages
196
onyirimba
O
D
  • Question
Microsoft 365 Changement lien hypertexte en fonction nom feuille Excel
Réponses
1
Affichages
813
gbinforme
G
C
  • Question
XL 2021 EXCEL IMPORTER du texte de plusieurs fichier en 1 fichier
Réponses
6
Affichages
602
Cousinhub
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
190
Dégé59
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…