combo box -clcik et passe au suivant ! |
Titre du sujet : combo box -clcik et passe au suivant ! par titantt le 04/04/2015 17:49:25 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 ! ) |
Forums