Forums XLPages

Excel & VBA Forum principal [résolu] Lien vers feuille

Lien vers feuille
#1
apdf
Aspirant XLPages

Inscription: 02/09/2008

Messages: 25

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2007
Posté le : 16-11-2010 08h44
Bonjour,

 

Je suis a la recherche d'un code VBA pus précisément un lien vers d'autre feuilles .

J'ai une listbox avec la liste de mes factures je voudrais  y accéder par un simple click dessus en sachant que mes factures se trouve dans le même dossier "Dossiers_Factures" et que la feuille se nome Facture Clients.
 
Voici le code que j'ai fait mais sa ne marche pas pourquoi?


Private Sub TextBox106_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim url As String
    url = Me.TextBox106.Text
    With Sheets("Facture Clients")
        .Hyperlinks.Add .Range("E6"), url
    End With
End Sub

      Edition par le Webmaster : mise en place des balises de Code VBA. Merci de consulter cette FAQ pour savoir comment faire.


Cordialement.

Max



Edité par myDearFriend! le 16/11/2010 23:16:53
Hors Ligne
 Rapport   Haut 

Re: Lien vers feuille
#2
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 16-11-2010 23h12
Bonsoir apdf, bienvenue sur XLpages.com.

J'avoue que j'ai un peu de mal à comprendre...
  • Tu parles d'une ListBox, mais le code que tu fournis fait visiblement appel à une TextBox.
  • Tu cherches à « ouvrir » des classeurs ou « activer » des onglets du classeur actif ou bien cherches-tu à « créer des liens hypertextes » pointant sur l'un ou l'autre ? Il me semble que tu mélanges un peu toutes ces notions dans ce que tu présentes là...

Joindre un extrait de ton classeur en pièce jointe (épuré à l'essentiel) me semble une bonne idée pour qu'on puisse t'aider...

Cordialement,

Nb:  je te remercie également de bien vouloir utiliser le bouton de l'éditeur de post pour insérer le code VBA dans tes messages avec les bonnes balises : voir cette FAQ. J'ai réctifié ton message précédent.

Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Lien vers feuille
#3
apdf
Aspirant XLPages

Inscription: 02/09/2008

Messages: 25

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2007
Posté le : 17-11-2010 08h26
Bonjour Didier et merci d'avoir répondu;

Voila j'ai créer un dossier qui parleras mieux que moi.

Cordialement

Max
Hors Ligne
 Rapport   Haut 

Re: Lien vers feuille
#4
apdf
Aspirant XLPages

Inscription: 02/09/2008

Messages: 25

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2007
Posté le : 17-11-2010 08h43
Re,

J'ai oublier le fichier;

Excuse moi

Max
Hors Ligne
 Rapport   Haut 

Re: Lien vers feuille
#5
apdf
Aspirant XLPages

Inscription: 02/09/2008

Messages: 25

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2007
Posté le : 17-11-2010 08h45
Decidément
Pièce jointe:
zip Factures.zip   [ Taille: 36.71 Ko - Téléchargements: 420 ]
Hors Ligne
 Rapport   Haut 

Re: Lien vers feuille
#6
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 18-11-2010 22h40
Bonsoir apdf, le Forum,

Tu trouveras en pièce jointe ton exemple modifié selon ma conception du problème...

J'ai utilisé le code suivant pour le Userform :
Option Explicit

' myDearFriend!  -  www.mdf-xlpages.com
Private Sub UserForm_Initialize()
Dim Plage As Range, R As Hyperlink
   
    'Copie la feuille d'origine et trie les liens par alpha
    Application.ScreenUpdating = False
    Sheets("Feuil1").Copy After:=Sheets(1)
    Set Plage = ActiveSheet.Columns(5).SpecialCells(xlCellTypeConstants, 23)
    Plage.Sort Key1:=Range("E6"), Order1:=xlAscending
    'Alimente la ListBox (en stockant les adresses liens dans la 2ème colonne cachée)
    For Each R In Plage.Hyperlinks
        With ListBox1
            .AddItem R.TextToDisplay
            .List(.ListCount - 1, 1) = R.Address
        End With
    Next R
    'Supprime la copie temporaire
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

Private Sub ListBox1_Click()
    ThisWorkbook.FollowHyperlink ThisWorkbook.Path & "" & ListBox1.Value
End Sub

Private Sub CommandButton1_Click()
    Unload Me
End Sub

En espérant que ça puisse te convenir...

Cordialement,
Pièce jointe:
zip mDF Factures.zip   [ Taille: 39.53 Ko - Téléchargements: 432 ]
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Lien vers feuille
#7
apdf
Aspirant XLPages

Inscription: 02/09/2008

Messages: 25

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2007
Posté le : 24-11-2010 08h31
Bonjour,

Avec un peu de retard je voudrais vous remercier.

Je suis en plein Bilan" dur dur"

Bonne journée

Max
Hors Ligne
 Rapport   Haut 

Re: Lien vers feuille
#8
myDearFriend!
Webmestre

Inscription: 18/05/2006
De Saône-et-Loire (71)

Messages: 1539

Système d'exploitation:
PC
Version Excel utilisée:
97, 2000, 2002, 2003, 2007, 2010, 2013, 2016 et 365
Posté le : 24-11-2010 20h07
Bonsoir apdf, le Forum,

Merci de ton retour (il n'est jamais trop tard ).

Si j'ai bien compris, la réponse te convient. Je solde donc le présent fil de discussions en [résolu] (merci d'y penser la prochaine fois... voir au bas de ma signature).

Cordialement,
Didier_mDF
Image redimensionnée
Le Webmaster

La réponse vous satisfait ? Merci de revenir solder le sujet en [résolu], voir ce lien
Hors Ligne
 Rapport   Haut 

Re: Lien vers feuille
#9
apdf
Aspirant XLPages

Inscription: 02/09/2008

Messages: 25

Système d'exploitation:
PC & Mac
Version Excel utilisée:
2007
Posté le : 25-11-2010 17h59
Bonsoir Didier,

Oui c'est vrai que j'aurais peu te dire que la réponse était parfaite je m'excuse.
 
Bonne soirée

A bientôt

Max
Hors Ligne
 Rapport   Haut 


Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.

[Recherche avancée]


Qui consulte actuellement ce sujet ?   1 Utilisateur(s) anonymes