Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

[lodam]

Bonjour à toutes et à tous,

Voici mon problème.
J'ai des valeurs dans la colonne A de la feuille1.
Dans un userform, je voudrais créer automatiquement autant de labels qu'il y a de valeurs dans les cellules de ma feuille égales à un label indiqué sur l'userform.

Autrement dit, sur l'userform se trouve un label avec une valeur.
Si dans la colonne A de la feuille1, on trouve une donnée identique à cette valeur, alors on crée un label (et dans l'idéal un lien hypertexte...)

Je me suis inspiré du fil ici :
https://www.excel-downloads.com/threads/creer-supprimer-label-avec-vba.41448/

Mais mon exemple ne donne pas d'erreur à priori mais il ne fcontionne pas et je ne vois pas pourquoi.
POurriez-vous m'aiguiller ?
merci
En pj, un exemple

Bonne AM
lodam

 

[pierrejean]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

bonjour lodam

Une solution

 

[lodam]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

merci beaucoup pierrejean
ça fonctionne impec !
bonne soirée
lodam

 

[tototiti2008]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Bonjour à tous,

Toutes mes félicitations, PierreJean, pour le passage des 6000 posts, et avec un magnifique succés
Ca impose le respect

 

[pierrejean]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Re

Merci Tototiti

De ta part , le compliment a beaucoup de valeur

 

[lodam]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Bonsoir
Alors je poursuis sur une bonne lancée en essayant d'ajouter le lien hypertexte sur le label

Mais je ne sais pas si je suis dans le vrai avec une tournure du style :
.caption = hyperlinks.cell(i,2).adress

voir le classeur en pj
Est-ce aussi simple ou plus compliqué ?
lodam

 

[lodam]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

J'essaie de m'inspirer de ce fil mais sans succès pour le moment :
https://www.excel-downloads.com/threads/hyperlinks-en-vba.42725/

Bonne nuit à tous
lodam

 

[lodam]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Eh bien malgré cette heure tardive, je réussis à avancer et je viens de trouver
- comment tester la présence d'un lien Hypertexte dans la cellule
- l'afficher dans le label

Il ne me reste plus qu'à l'activer, le rendre cliquable et ça bloque encore...
Je sens que je ne suis plus très loin

J'apprécierai volontiers votre petit coup de main

lodam

code :
'*************
'GESTION DU LIEN SUR LE LABEL
'***********
Dim Cible As String
'Vérifie si la cellule contient un lien hypertexte
If Cells(i, 2).Hyperlinks.Count = 0 Then
MsgBox "Pas de lien !"
Exit Sub
Else
'Extrait l'adresse du lien
Cible = Cells(i, 2).Hyperlinks(1).Address
.Caption = Cible 'on l'affiche dans le label
.Tag = Cible '.Address
End If
'********FIN GESTION LIEN SUR LABEL

 

[pierrejean]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Re

A mon sens tu fais fausse route avec les labels (je pense qu'il sera très difficile de creer pour chaque label un evenement Clic pouvant emmener vers une adresse)

Vois ceci avec une listbox

 

[lodam]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Merci pierrejean
C'est effectivement une excellente idée.
J'aurais préféré le présenter avec des labels mais je me rends compte que cela semble difficile.
Je vais tenter d'adapter ta listbox
Encore merci
Bonne AM
lodam

 

[lodam]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

PierreJean, voici ton code qui me sert à alimenter la listbox sur 2 colonnes.
Maintenant comment faire pour ajouter le lien dans le label_lien ?
comme dans l'exemple de ce fil
https://www.excel-downloads.com/threads/lien-hypertexte-dans-userform.36339/

Tu verras dans le fichier joint une ébauche de mes essais qui n'ont rien donné malheureusement
merci encore pour ton aide
lodam

 

[pierrejean]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Re

Vois si cela te convient

 

[lodam]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Bonjour PierreJean
et merci pour ta réponse
En fait, dans la colonne B,
* il peut y avoir des liens hypertextes : donc on peut suivre le lien hypertexte
* ou ne pas en avoir (j'ai mis en exemple le mot "Ok". Donc lorsqu'il y en a pas, on ne peut pas activer le Follow.hyperlink...

C'est aussi pour cela que j'avais envisagé passer par un label....

Merci encore pour te pencher sur ce souci
Bonne AM
lodam

 

[pierrejean]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

Re

Voila un traitement de lien absent

 

[lodam]

Re : Création boutons dynamique si la valeur d'un label est trouvée dans les cellules

merci beaucoup PierreJean
Je regarde tout ça et je te tiens au courant
Bonne soirée
lodam