Mise en page liens hypertextes automatiquement

[Leché]

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,

 

[Dudu2]

Bonjour,

Cependant j'aimerais sélectionner deux plages différentes.

Cette information n'est pas suffisante. Différentes et spécifiques des feuilles ou différentes et communes aux feuilles ?

S'il s'agit de 2 plages dont chacune est spécifique à l'une des 2 feuilles la méthode ci-dessous peut fonctionner si les plages non concernées pour la feuille ne contiennent pas de noms de fichiers.

Si les 2 plages sont communes aux 2 feuilles il faut mettre le 2ème (et 3ème, 4ème, ...) Range après le 1er séparé par une virgule.

 

[Alex6942]

Bonjour,

Cette information n'est pas suffisante. Différentes et spécifiques des feuilles ou différentes et communes aux feuilles ?

S'il s'agit de 2 plages dont chacune est spécifique à l'une des 2 feuilles la méthode ci-dessous peut fonctionner si les plages non concernées pour la feuille ne contiennent pas de noms de fichiers.

Si les 2 plages sont communes aux 2 feuilles il faut mettre le 2ème (et 3ème, 4ème, ...) Range après le 1er séparé par une virgule.
Regarde la pièce jointe 1103909

Re,

Même plage pour les deux onglets , du même fichier

Donc si je résumé c'est :

Feuille concernée : Feuil1,Feuil2 (pas d'espace et séparé avec une virgule)
Plage concernée : K1:K1000,O1:O1000 (pas d’espace et séparé avec une virgule)

 

[Dudu2]

En effet.
Ou même Plage concernée : K1:K1000,O1:O1000,Q1:R1000,T20:T500,Z112:AB756 (pas d’espace et séparé avec une virgule)

Comme déjà indiqué au Post #16.

 

[Alex6942]

En effet.
Ou même Plage concernée : K1:K1000,O1:O1000,Q1:R1000,T20:T500,Z112:AB756 (pas d’espace et séparé avec une virgule)

Comme déjà indiqué au Post #16.

Cela me donne l'erreur suivante :

Pourtant çà marche sur l'onglet 1, mais l'erreur survient au moment de passer sur l'onglet 2. (Meme format que l'onglet 1, meme colonne mais pas sur les mêmes lignes pour cela que je spécifie une sélection de 7 à 1000)

Est ce que le fait d'avoir des lignes vides et/ou filtrées peut provoquer cette erreur ?

 

[Dudu2]

Je ne sais pas ce que tu as mis en paramètres.
Chez moi ça marche sans problème avec ou sans lignes filtrées.

 

[Dudu2]

Essaie d'ajouter un MsgBox ici:

MsgBox "<" & Tbl.DataBodyRange.Rows(3).Cells(2).Value & ">"

et faire une copie du message qui s'affiche parce que sans la moindre indication je ne peux pas trouver.

 

[Alex6942]

EDIT DE MON MESSAGE

Bonjour,

Après avoir rajouté cette ligne, le message qui s'affiche est :

Je refait un test avec onglet non protégé

EDIT 1 :

Après TEST avec onglet non protégé : toujours l'erreur 1004

EDIT 2 :

Après essai onglet par onglet , cela marche. Donc il doit y avoir un problème dans ma saisie de feuilles concernées. Pourtant je respecte bien la syntaxe.

 

[Dudu2]

Bonjour,
J'ai du mal à te suivre. Qu'est-ce que vient faire la protection des feuilles dans l'affaire ???
Donc tu rajoutes le message et en plus tu protèges la ou les feuilles ?
Si la ou les feuilles sont protégées, bien sûr que la modification des cellules pour ajouter les hyperliens va planter !
Puis tu tournes un test en déprotégeant la ou les feuilles mais sans le message ?
Franchement, je sais pas ce que tu fais ni ce qui se passe dans ton fichier.
Chez moi ça marche sans aucun problème avec ce fichier repris du Post #10.

 

[Dudu2]

Sinon, envoie ton fichier, même vidé de son contenu ça n'a pas d'importance.

 

[Dudu2]

J'ai remonté la capture de la plage de saisie des paramètres dans un String, même si à mon avis ça ne sert à rien, et complété le message d'erreur avec des infos que le message demandé était supposé fournir.
A essayer...

 

[Alex6942]

J'ai remonté la capture de la plage de saisie des paramètres dans un String, même si à mon avis ça ne sert à rien, et complété le message d'erreur avec des infos que le message demandé était supposé fournir.
A essayer...

Hello , merci pour tes retours (congés le vendredi) , je check ça dans la semaine, merci beaucoup

 

[Alex6942]

Re,

Nickel du coup , ça fonctionne bien

Merci beaucoup