Re : FORMULAIRE - Selection Lien hypertexte = ouverture USERFORM
Bonjour.
Pour trouver la cellule ou ajouter le lien c'est Set Cel = Feuil1.[A65536].End(XlUp).Offset(1)
Déclarez Dim Cel As Range
Ajoutez ensuite un élément à la collection HyperLinks de Feuil1 en spécifiant Cel comme paramètre Anchor à cette méthode qui est Add comme pour toutes les collections. Allez faire un tour dans l'aide, ça ne vous fera pas de mal. En dehors de HyperLinks et Add, cherchez aussi End et Offset. Et pour en savoir plus sur le pourquoi de Feuil1 et des crochets droits, CodeName et Evaluate.
Ce qui n'est pas dit dans l'aide, et c'est bien dommage, c'est que si l'argument de la méthode Evaluate est une référence à une plage de cellule(s), elle renvoie simplement un objet Range qui y correspond et est donc rigoureusement équivalente à l'utilisation de la méthode Range. Plus d'un ont eu l'impression, à cause de ce non dit et d'un autre exemple avec [SIN(45)], que cela entrainait aussi une quelconque évaluation des valeurs de cette plage, ce qui est complètement faux. Mais dès qu'on met .Value derrière, ou qu'on l'implique dans une expression arithmétique, bien sûr… Mais MsgBox TypeName([A1]) affiche "Range" et non pas "Double", "String" ou "Empty" comme MsgBox TypeName([A1].Value).