Bouton Redirection Précis

[dixonze]

Bonjour,

Je me suis mis un bouton dans mon chiffrier de 2 pages (Principal et détail).
Le bouton me redirige vers la page de mon choix.. Cependant, j'ai beaucoup de redirection à faire et je ne veux pas mettre 50 pages.

Mon code actuel est:
Private Sub CommandButton1_Click()
Sheets("détail").Select
End Sub

Je voudrais que ma redirection m'apporte à une ligne précise (le numéro) ou bien à un titre précis:
EX:
PAGE DÉTAIL
ligne 1: MOTEUR
ligne 2: Contenue
...
Ligne 54: Air comprimé
ligne 53 : Contenue
...
ligne 125: Épurateur
ligne 126: contenue
...

Part exemple, si je suis sur ma page PRINCIPAL et je veux des renseignements sur l'air comprimé, j'appuie sur mon bouton "DÉTAIL air comprimé" et je voudrais que la page s'affiche avec le titre Air Comprimé en haut....(Pas besoin de défilé jusqu'en bas pour trouvé "air comprimé")
🙂
J'espere avoir été assez clair dans mon problème
Merci beaucoup!!

 

[pierrejean]

Re : Bouton Redirection Précis

bonjour dixonze

et bienvenue sur XLD

Vois si tu peux t'inspirer de ceci

En feuil2 la liste est nommée (Liste) et en Feuil1 il y a une liste de validation qui se référe a cette liste
Le choix t'emmene en Feuil2

 

[dixonze]

Re : Bouton Redirection Précis

Votre programme fait un peu ce que je souhaite... mais c'est une liste déroulante..

Même apres la lecture de son code, je n'arrive pas a l'adapter à mon bouton:

Voici le code de votre application

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$1" Then
  For n = 1 To Sheets("Feuil2").Range("A65536").End(xlUp).Row
    If Sheets("Feuil2").Range("A" & n) = Target Then
      Sheets("Feuil2").Activate
      ActiveWindow.ScrollRow = n
      Sheets("Feuil2").Range("A" & n).Select
    End If
  Next n
  End If
End Sub

SVP aider moi 😕

Merci beaucoup

 

[pierrejean]

Re : Bouton Redirection Précis

Re

Ce code n'est pas adaptable a un bouton

Pour t'aider (le tutoiement est une coutume XLD) il me faudrait un fichier exemple (sans données confidentielles)

 

[dixonze]

Re : Bouton Redirection Précis

Voilà de quoi mon document a l'air..

Présentement, il n'y a pas de contenue.. mais imagine toi qu'il va y avoir 50 a 100 lignes de détails entre chaque éléments..

Il y aura beaucoup d'éléments (juste 3 dans l'exemple)

Merci

 

[chris]

Re : Bouton Redirection Précis

Bonjour

Dans le mesure où tu fabriques tes en-tête de la feuille Revue efficacité par des formules du type =Détail!A1
tu peux remplacer tes formules par
=LIEN_HYPERTEXTE("[exemple.xls]Détail!A1";Détail!A1)
et ainsi enlever les boutons et le VBA

Tu peux aussi utiliser
=LIEN_HYPERTEXTE("[exemple.xls]Détail!A"&EQUIV("Pompes";Détail!A:A;0);"Pompes")

 

[pierrejean]

Re : Bouton Redirection Précis

Re

Une autre solution avec pour contrainte de selectionner le titre
N'importe quel bouton enverra vers l'equivalent de la selection en feuille detail

 

[dixonze]

Re : Bouton Redirection Précis

Merci a vous deux, les 2 solutions fonctionnes bien. Cependant, ce document sera distribuer à des utilisateurs qui ne connaissent rien en excel...

Ce n'est donc pas vraiment intuitif de devoir sélectionner la case et apres cliquer sur "Détail"

Pour le moment j'utilise la méthode a Pierrejean et je continue mes recherches pour programmer le bouton ...

Merci

 

[dixonze]

Re : Bouton Redirection Précis

Je suis en train essayer de changer la fonction envoi programmer dans le bouton:

Sub envoi()
ach = Range("B" & Selection.Row)
Set c = Sheets("Détail").Columns("A").Find(ach, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  Sheets("Détail").Select
  ActiveWindow.ScrollRow = c.Row
End If
End Sub

J'essaie de mettre une fonctione différente pour chaque point...<

Exemple pour la pompe, je mettra envoipompe:

Sub envoipompe()
ach = pompe
Set c = Sheets("Détail").Columns("A").Find(ach, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
  Sheets("Détail").Select
  ActiveWindow.ScrollRow = c.Row
End If
End Sub

Mais sa ne fonctionne pas.. vous comprenez ce que j'essaye de faire?

 

[pierrejean]

Re : Bouton Redirection Précis

Re

oui je crois avoir compris

Vois si cela te convient

 

[chris]

Re : Bouton Redirection Précis

Bonjour

Ce n'est donc pas vraiment intuitif de devoir sélectionner la case et apres cliquer sur "Détail"

L'avantage de l'hyperlien est justement qu'on ne clique que sur le titre.

Tu peux le préciser dans la formule

=LIEN_HYPERTEXTE("[exemple.xls]Détail!A"&EQUIV("Pompes";Détail!A:A;0);"Pompes (cliquer ici pour voir le détail.)")

 

[dixonze]

Re : Bouton Redirection Précis

TROP FORT!!

Merci beaucoup! Tout fonctionne comme je le veux 😀
(J'ai utilisé le bouton de PierreJean)

Je viens de payé ma dette envers la communauté, je viens de répondre à la question de quelqu'un d'autre 🙂