XL 2016 Liste deroulante hypertexte

Captain NRJ · 25 Avril 2024

Bonjour,

je souhaiterais savoir s'il est possible sur excel 2016 de créer une liste déroulante avec des liens hypertexte svp ?

exemple : en A1 : "Allez a " et en B1 : choisir dans une liste déroulante un site parmi des sites grand public et être redirigés dessus automatiquement ?

Je vous remercie

Cordialement

Captain NRJ · 25 Avril 2024

Seconde requête :

Comment faire pour qu'un objet ne soit pas affecté par le déroulement vertical d'une feuille, c-a-d si je le met dans un coin en bas a gauche, qu'il n'en bouge pas lorsque je fait défiler.
J'ai déjà vérifier dans les propriétés : verrouiller, attacher a une cellule ou encore détacher d'une cellule etc, rien n'y fait.

a nouveau merci

Staple1600 · 25 Avril 2024

Bonsoir @Captain NRJ

Tu as essayé ceci ?

Captain NRJ · 26 Avril 2024

Bonjour Staple1600,

oui déjà essayé mais ne fonctionne pas, je ne sais pas pourquoi ...
c'est ce que je voulais dire par verrouiller, attacher ou détacher a une cellule un peu plus haut.

ThierryP · 26 Avril 2024

Bonjour Captain NRJ, Staple1600,

Pour une liste déroulante avec liens hypertexte, je ne sais pas trop....
Pour "fixer" un objet, une solution bête : le mettre en ligne 1 et figer les volets.

Sinon, je fouille dans mes archives pour retrouver un truc pondu il y a bien des années avec l'aide précieuse des gourous de l'époque !

job75 · 26 Avril 2024

Bonjour le forum,

Pour la 1ère question :

VB:

Private Sub Worksheet_Change(ByVal Taeget As Range)
Dim Liste As Range, x$
Set Liste = [E1].CurrentRegion
With [B1]
    x = .Value
    .Hyperlinks.Delete 'RAZ
    .HorizontalAlignment = xlCenter 'facultatif, centrage
    .Interior.Color = vbYellow 'facultatif, couleur
    If x <> "" Then .Hyperlinks.Add .Cells, Application.VLookup(x, Liste, 2, 0), TextToDisplay:=x 'crée le lien
End With
End Sub

A+

piga25 · 26 Avril 2024

Bonjour,
Pour la seconde question
Il y a cela sur le forum : https://excel-downloads.com/threads...-soit-toujours-visible.20082567/post-20640117

Captain NRJ · 26 Avril 2024

Bonjour ThierryP,

Malheureusement toute ma ligne 1 est rempli par mes en-têtes déjà, c'est pour ca que je pensais a un objet flottant dans un coin inferieur de ma feuille et qui ne soit pas affecté par le défilement vertical.

Bonjour Job et Piga25,
Merci mais j'aurais du préciser que je n'ai pas accès a du VBA ni aux macros, du coup cela ne fonctionne pas.

job75 · 26 Avril 2024

Captain NRJ à dit:
Merci mais j'aurais du préciser que je n'ai pas accès a du VBA ni aux macros, du coup cela ne fonctionne pas.

Du coup vous ne pourrez rien faire

ThierryP · 26 Avril 2024

Bonjour,

Bon, je reviens un peu tard mais pour le fun :

VB:

Sub Objet_Suiveur()
Dim Gauche As Integer, Haut As Integer, Ligne As Integer, Nb_Colonnes As Integer, X As Integer, Y As Integer
Dim Plage As Range

Ligne = 36 'N° de ligne de la position intiale de l'objet (coin supérieur) - A adapter
Y = 1 'N° de colonne de la position intiale de l'objet (coin gauche) - A adapter
Set Plage = ActiveWindow.VisibleRange
X = Plage.Item(ActiveWindow.VisibleRange.Columns.Count * Ligne).Row
Haut = -1: Gauche = -1
With ActiveSheet.Shapes("CommandButton1")
    If Haut < .Top And Haut > -1 Then GoTo suite1
    Haut = .Top
suite1:
    If Gauche < .Left And Gauche > -1 Then GoTo suite2
    Gauche = .Left
suite2:
    .Top = .Top + (Cells(X, Y).Top - Haut)
    .Left = .Left + (Cells(X, Y).Left - Gauche)
End With
End Sub

Avec un appel via Worksheet_SelectionChange

Captain NRJ · 26 Avril 2024

job75 à dit:
Du coup vous ne pourrez rien faire

Entendu merci de votre aide, ca valait le coup de demander en tout cas.

Captain NRJ · 26 Avril 2024

ThierryP à dit:

Bonjour,

Bon, je reviens un peu tard mais pour le fun :

VB:

Sub Objet_Suiveur()
Dim Gauche As Integer, Haut As Integer, Ligne As Integer, Nb_Colonnes As Integer, X As Integer, Y As Integer
Dim Plage As Range

Ligne = 36 'N° de ligne de la position intiale de l'objet (coin supérieur) - A adapter
Y = 1 'N° de colonne de la position intiale de l'objet (coin gauche) - A adapter
Set Plage = ActiveWindow.VisibleRange
X = Plage.Item(ActiveWindow.VisibleRange.Columns.Count * Ligne).Row
Haut = -1: Gauche = -1
With ActiveSheet.Shapes("CommandButton1")
    If Haut < .Top And Haut > -1 Then GoTo suite1
    Haut = .Top
suite1:
    If Gauche < .Left And Gauche > -1 Then GoTo suite2
    Gauche = .Left
suite2:
    .Top = .Top + (Cells(X, Y).Top - Haut)
    .Left = .Left + (Cells(X, Y).Left - Gauche)
End With
End Sub

Avec un appel via Worksheet_SelectionChange

Malheureusement je n'ai pas accès au VBA

job75 · 26 Avril 2024

Pour la 2ème question voyez cette solution que j'ai fournie le 01/08/2023 :

https://excel-downloads.com/threads/figer-une-image.20077671/#post-20597109

Captain NRJ · 26 Avril 2024

job75 à dit:
Pour la 2ème question voyez cette solution que j'ai fournie le 01/08/2023 :

https://excel-downloads.com/threads/figer-une-image.20077671/#post-20597109

Malheureusement je n'ai pas accès au VBA

job75 · 26 Avril 2024

Captain NRJ à dit:
Malheureusement je n'ai pas accès au VBA

Oui mais beaucoup de visiteurs y ont accès.

XL 2016 Liste deroulante hypertexte

Captain NRJ

XLDnaute Nouveau

Captain NRJ

XLDnaute Nouveau

Staple1600

XLDnaute Barbatruc

Captain NRJ

XLDnaute Nouveau

ThierryP

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

piga25

XLDnaute Barbatruc

Captain NRJ

XLDnaute Nouveau

job75

XLDnaute Barbatruc

ThierryP

XLDnaute Occasionnel

Captain NRJ

XLDnaute Nouveau

Captain NRJ

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Captain NRJ

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Discussions similaires