aller à la colonne désirée

[pascal21]

bonjour le forum
j'ai un tableau avec en colonne,des dates et en lignes, des N° de parc
j'ai figer les volets pour voir en permanence les dates et les n° de parc
jusque là rien de très émouvant!!!!
j'ai essayé de mettre en place des liens hypertexte pour pouvoir aller plus sur certaines colonnes du tableau mais ce n'est pas satisfaisant comme résultat
quelle est la fonction qui permet de remplacer efficacement le liel hypertexte pour aller chercher et placer une colonne désirée
je n'ai besoin que de 3 ou 4 liens
par exemple si je veux aller à la colonne FD celle ci doit venir se placer à coté de la colonne des dates et masquée en quelque sorte les colonnes précédentes
pffffffffffffffffffffffffff!!!!!!! encore pas trouvé le moyen d'être plus clair
je mettrai un ptit exemple si il faut
merci

 

[Compte Supprimé 979]

Re : aller à la colonne désirée

Salut Pascal21,

Effectivement ce n'est pas vraiment clair ... elle sait se faire désirée ... cette colonne 😉

Peut-être par la création de PLAN
Menu -> Données -> Grouper et créer un plan

A+

 

[hoerwind]

Re : aller à la colonne désirée

Bonjour, salut Bruno,

En nommant par exemple E1 (menu Insertion - Noms - Définir) : colE
Puis en cliquant dans la petite fenêtre à l'extrême gauche de la barre de formule (là où la référence de la cellule active est affichée) une liste s'ouvre reprenant tous les noms attribués.
Ensuite cliquer sur le nom retenu (ici colE) et E1 est sélectionné.

 

[job75]

Re : aller à la colonne désirée

Bonjour Pascal, Bruno, hoerwind,

Rien compris c'est certain, surtout ce que doivent faire les liens hypertextes.

Mais à tout hasard, dans le code de la feuille :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim col As String
Cancel = True
On Error Resume Next
1 col = InputBox("Entrez l'en-tête de la colonne DESIREE :")
If col = "" Then Exit Sub
Application.Goto Range(col & 1), True
If Err Then Err = 0: GoTo 1
End Sub

Double-clic n'importe où.

A+

 

[pascal21]

Re : aller à la colonne désirée

bonjour hoerwing bruno
menu insertion n'apporte rien de plus mais epeut devenir une base de travail pour un code à venir
j'ai utiliser l'idée du plan (je n'utilisais pas cette fonction) il m'a fallu le temps de comprendre comment çà fonctionne
faut que je vois les possibilités qu'offre cette solution
merci
edit: je vous ai rajouté un ptit exemple

 

[job75]

Re : aller à la colonne désirée

Re Pascal,

Nos messages se sont croisés...

A+

 

[hoerwind]

Re : aller à la colonne désirée

Re,

Ce n'est pas "aller à la colonne voulue" mais "déplacer à l'écran la colonne voulue".

Vois l'exemple en pièce jointe.
Cliquer sur le "-" dans la marge supérieure.

 

[job75]

Re : aller à la colonne désirée

Re,

Au vu du fichier que tu viens de déposer, je n'étais pas à côté de la plaque.

Ceci me paraît mieux :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim x As String, ref As Range
Cancel = True
1 x = InputBox("Entrez la valeur DESIREE de la ligne 7 :")
If x = "" Then Exit Sub
Set ref = [7:7].Find(x, LookIn:=xlValues, LookAt:=xlWhole)
If ref Is Nothing Then GoTo 1
Application.Goto ref, True
End Sub

A+

 

[job75]

Re : aller à la colonne désirée

Re,

Cela dit, on peut parfaitement utiliser les liens hypertextes que tu auras créés.

Toujours dans le code de la feuille :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Dim sa$, adresse$
sa = Target.SubAddress
adresse = Mid(sa, InStr(sa, "!") + 1, 10)
Application.Goto Range(adresse), True
End Sub

A+

 

[pascal21]

Re : aller à la colonne désirée

bonjour Job
le dernier code que tu donne à l'air de coller parfaitement à ma demande
du coup je peux même garder les liens hypertext
je fais quelques essais avec plusieurs liens pour voir
merci

Ce n'est pas "aller à la colonne voulue" mais "déplacer à l'écran la colonne voulue".

c'est vrai la nuance était importante mais je ne l'ai saisie
désolé!!
merci à tous
bon weekend

 

[job75]

Re : aller à la colonne désirée

Re Pascal,

Heureux que ça te convienne.

Mais j'avais été cherché midi à 14 heures :

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
Application.Goto Selection, True
End Sub

En effet cette macro se déclenche après la sélection de la cible...

A+