Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 12/01/2012, 16h27   #1
Invité de passage
 
fahrenheit andré
Inscription : octobre 2010
Messages : 3
Détails du profil
Informations personnelles :
Nom : fahrenheit andré

Informations forums :
Inscription : octobre 2010
Messages : 3
Points : 0
Points : 0
Par défaut liste déroulante + VBA

Bonjour à tous,

J'ai une liste déroulante dans une feuille excel, j'ai un code vba qui s'exécute à chaque fois que je choisisse un élément de ma liste, je voudrais un moyen pour qu'il fasse la même chose sans avoir à cliquer un par un les éléments de ma liste, c-à-d tout seul il parcourt tous les éléments de la liste. merci à l'avance de votre aide..
subprime est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/01/2012, 17h39   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 915
Détails du profil
Informations personnelles :
Nom : Homme Jérôme FONTAINE
Âge : 38
Localisation : France, Sarthe (Pays de la Loire)

Informations professionnelles :
Activité : Contrôleur de Gestion

Informations forums :
Inscription : juin 2006
Messages : 3 915
Points : 7 218
Points : 7 218
Bonjour,

Ci dessous un code qui boucle sur chaque entrée de ta listbox
Remplace la ligne Msgbox par le code a effectuer sur chaque occurrences
Code :
1
2
3
4
5
Dim i As Integer
 
For i = 0 To ListBox1.ListCount - 1
    MsgBox ListBox1.List(i, 0)
Next i
__________________
Jérôme

Citation:
"Ils ne savaient pas que c'était impossible, alors ils l'ont fait" - Marc Twain
Si la réponse répond à votre besoin, votre vote nous encouragera.
Dans le cas ou la réponse mérite, à vos yeux, un , nous faire partager la raison de ce vote, pourrait nous permettre de nous améliorer.
jfontaine est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 12/01/2012, 21h37   #3
Membre Expert
 
Homme Hervé Silve
Inscription : août 2010
Messages : 774
Détails du profil
Informations personnelles :
Nom : Homme Hervé Silve
Localisation : France

Informations forums :
Inscription : août 2010
Messages : 774
Points : 2 094
Points : 2 094
Bonsoir,

Ceci peut être ? C'est une piste :
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub ListBox1_Click()
 
    Dim I As Integer
 
    For I = 0 To ListBox1.ListCount - 1
 
        'ici le code que tu veux...
        Debug.Print ListBox1.List(I)
 
    Next I
 
End Sub
Hervé.
Theze est déconnecté   Envoyer un message privé Réponse avec citation 10
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 19h08.


 
 
 
 
Partenaires

Hébergement Web