Bouton Redirection Précis

pierrejean

XLDnaute Barbatruc

• 22 Juillet 2008

• #2

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

 

Pièces jointes

• dixonze.zip

  8.2 KB · Affichages: 27

Vote positif 0 Vote négatif

D

dixonze

Guest

• 22 Juillet 2008

• #3

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

Code:

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 22 Juillet 2008

• #4

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)

 

Vote positif 0 Vote négatif

D

dixonze

Guest

• 22 Juillet 2008

• #5

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

 

Pièces jointes

• exemple.xls

  42 KB · Affichages: 80
• exemple.xls

  42 KB · Affichages: 77
• exemple.xls

  42 KB · Affichages: 82

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 22 Juillet 2008

• #6

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")

 

Dernière édition: 22 Juillet 2008

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Juillet 2008

• #7

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

 

Pièces jointes

• dixonzeexemple.zip

  17.9 KB · Affichages: 13
• dixonzeexemple.zip

  17.9 KB · Affichages: 11
• dixonzeexemple.zip

  17.9 KB · Affichages: 12

Vote positif 0 Vote négatif

D

dixonze

Guest

• 23 Juillet 2008

• #8

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

 

Vote positif 0 Vote négatif

D

dixonze

Guest

• 23 Juillet 2008

• #9

Re : Bouton Redirection Précis

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

Code:

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:

Code:

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?

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 23 Juillet 2008

• #10

Re : Bouton Redirection Précis

Re

oui je crois avoir compris

Vois si cela te convient

 

Pièces jointes

• dixonzeexemple.zip

  17.8 KB · Affichages: 20
• dixonzeexemple.zip

  17.8 KB · Affichages: 19
• dixonzeexemple.zip

  17.8 KB · Affichages: 17

Vote positif 0 Vote négatif

chris

XLDnaute Barbatruc

• 23 Juillet 2008

• #11

Re : Bouton Redirection Précis

Bonjour

dixonze à dit:

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

Cliquez pour agrandir...

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.)")

 

Vote positif 0 Vote négatif

D

dixonze

Guest

• 23 Juillet 2008

• #12

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 🙂

 

Dernière modification par un modérateur: 23 Juillet 2008

Vote positif 0 Vote négatif