bonsoir 

oui cela ne m'etonne pas que tu n' es pas vraiment compris ce que je souhaite faire 

c'est pas evident a expliquer ... 

je vais preparer un fichier pour m'expliquer et je reviendrai le poster .... 

mais bon en attendant 

je vais reessayer tout de meme 

je voudrai a l'aide d'un bout de code vba >>>

clicker sur item1 d'une combobox 

(  bien entendu le  clcik sur l'item lance une autre macro 

mais a la fin de celle ci je voudrais )

revenir sur la meme combobox 

 et clicker sur item2 

ect ... 

bonjour a tous 

je reviens sur un travail (myDearFriend!)

 sur le site GE.... 

ce qui m'i nterresse dans ce fichier c'est la combobox 

je  cherche un bout de code  avec une combobox qui click le preimier lien et passe au lien suivant ect ... jusque la fin de la list  

je ne connais pas du tt les combobox ,  ni list box 

est ce que avec une boucle toute bete

en definissant 

le debut et la fin  

le debut serait defini soit par input box  ou une cellule 

et la fin soit par une cellule egalement soit par defaut serait la derniere ligne non vide de lalist box 

( je ne sais pas si cette focntion existe ) genre>>>  ListCount .End(xlUp)

 for X = debut    to    fin   

   puis 

   code vba

   ( while combo ...   voir vba plus loin )

 valide le X lien  

   ici  on fait plein de truc ... 

   macro pour preparer le cafe ,  

   macro mettre croissant dans four 

   ect ... 

Next X  ( on s'attaque au lien X + 1 ) 

puis on repart pour un nouveau cycle avec le lien suivant 

ca me parait un peu simpliste 

 With ActiveSheet.ComboBox1
        .Clear
        .ColumnCount = 2
        .BoundColumn = 2
        .Style = fmStyleDropDownList
        .AddItem "< choisir une course >"
        Lmax = IEdoc.Links.Length
        For Each O In IEdoc.Links
            L = L + 1
            Application.StatusBar = "Patientez... " & L * 100 \ Lmax & " %"
            If O.href Like vUrl & "*" Then
                T = Mid(O.href, Len(vUrl) + 1)
                T = Left(T, InStrRev(T, "_") - 1)
                .AddItem T
                .List(.ListCount - 1, 1) = O.href
            End If
        Next O
        .ListIndex = 0
    End With

je en sais pas si j'ai ete tres clair dans mes explications 

l'enregistreur de macro aurait u faire le travail ( mais des que 'lon click sur un combobox il ne voit rien ! )  

oui oui x'est tout a fait cela dans l'idee je testerai le code 

merci , et si ca foncitonne alors resolu 

bonjour 

oui le lien est ficitf ( comme ca je ne deroge a aucune charte ) 

tu peux aussi bien remplacer mon lien par le lien du site internet 

www.mdf-xlpages.com

dans le classeur excel  il n'y a que la macro 

par exemple la le lien 8 sur mdf correspond a l'identification  

bonjour a tous 

je debute en vba  etj'ai reussi  avec les tutos et les forums a cree un petit bout de code qui ouvre un lien sur une page internet 

pour ce faire j'ai utilise la methode anchorelement et doc links 

( corriger moi si je me trompe  ) 

en gros je dit a mon fichier vba selection tous les liens interent de la page ( htlm anchor element ) 

et doc link precise quel lien j'ai choisi ( 1 ) pour le lien 1  2 pour le lien 2 de la page ect ... 

Sub LienHyperActu()
 Range("A4").Select
    Selection.ClearContents ' efface la case a4 du classeur excel '
    
' cretaion des ??? je sais plus le nom
Dim IE As Object
Set IE = CreateObject("InternetExplorer.Application")
Dim Cible As HTMLAnchorElement
Dim Doc As HTMLDocument
 IE.navigate "http://www.patatorleplusfort.com"
 ' ouverture d'internet explorer '


IE.Visible = True ' on rend la page d'internet visible '
Do Until IE.readyState = READYSTATE_COMPLETE ' on attend que sa se charge'
DoEvents
Loop  ' c'est bon c fini de charger 

    
Range("A4") = "cool"  ' ecrit sur excel que la page est bien charge moi ca m'a aide 

Set Doc = IE.Document ' dis a vba que sur la page internet
Set Cible = Doc.Links(8) 'le lien a prendre sera le lien cible et qui sera
'egale au numero links ( ici 8 )




Cible.Click '   ( dis de cliquer sur sur le lien prefini


End Sub

bon voila sans doute on peux otpimiser mon code ect ...  mais peux m'importe  , mon bout de code me convient bien 

ce que je voudrais savoir , c'est comment definir de facon simple quel lien a quel numero ( de doc link )   

si j'ai une page avec 100 liens avec des menus sur le dessus ,  sur le cote , et encore d'autres ailleurs 

a part les tester 1 par 1   comment puis je dire que  le lien SAVpatator3000  = 53 ieme lien de  la page internet 

ps je sais pas si je suis tres clair