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 06/02/2012, 14h28   #1
Invité de passage
 
Homme Xavier
Inscription : février 2012
Messages : 3
Détails du profil
Informations personnelles :
Nom : Homme Xavier
Localisation : France, Val d'Oise (Île de France)

Informations forums :
Inscription : février 2012
Messages : 3
Points : 0
Points : 0
Par défaut Affiche de certaine données dans lisbox suivant optionbutton coché ou non

Bonjour le forum,

Description simplifier de mon projet.
dans une feuille excel j'ai plusieurs colones par exemple

a = nom >> Testbox1
b = prénom >> Texbox2
c = present ou absent >> OptionButton1
Coché = present
Non coché = absent

Dans un UserForm
On retrouve donc dans l'UserForm les champs TextBox 1 , 2 et l'optionButton

En plus j'ai une listeBox dans lequel je souhaite afficher:

solution 1:
Afficher uniquement les valeurs des colonnes A et B si OptionButton est coché

Solution 2:
Afficher uniquement les valeurs des colonnes A et B si OptionButton est non coché

En vous remerciant par avance de votre aide.
Xave95 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 16/02/2012, 09h42   #2
Invité de passage
 
Homme Xavier
Inscription : février 2012
Messages : 3
Détails du profil
Informations personnelles :
Nom : Homme Xavier
Localisation : France, Val d'Oise (Île de France)

Informations forums :
Inscription : février 2012
Messages : 3
Points : 0
Points : 0
Dans mon esprit de novice, ci dessous mon code

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub OptionButton2_Click()
Dim L As Integer
Dim Plage As String
 
L = Sheets ("Data").range("A65536").End(xlUP).Row
Plage = Sheets ("Data").range("A2:C" & L).Address
 
If OptionButton2 = True then
 
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "50;120"
 
ListBox1.RowSource = "Data!" & Plage
End If
End Sub
Visiblement ce code fonctionne bien si l' OptionButton2 est coché, la listeBox est remplie en fonction de mes criteres demandé

Mais je n'arrive pas a faire le trie en fonction de l'OptionButton1 correspondant a present ou asbent.
Xave95 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/02/2012, 01h03   #3
Membre Expert
 
Homme
Retraité
Inscription : avril 2011
Messages : 700
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations professionnelles :
Activité : Retraité

Informations forums :
Inscription : avril 2011
Messages : 700
Points : 1 460
Points : 1 460
Bonjur,

Voici un exemple de code avec 2 OptionButton et une liste multicolonnes.

Cordialement.
Fichiers attachés
Type de fichier : xls ExempleListe.xls (47,5 Ko, 10 affichages)
gFZT82 est déconnecté   Envoyer un message privé Réponse avec citation 01
Vieux 26/02/2012, 00h09   #4
Invité de passage
 
Homme Xavier
Inscription : février 2012
Messages : 3
Détails du profil
Informations personnelles :
Nom : Homme Xavier
Localisation : France, Val d'Oise (Île de France)

Informations forums :
Inscription : février 2012
Messages : 3
Points : 0
Points : 0
Merci de ton aide gFZT82, c'est exactement ce que je voulais.
Xave95 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 01h33.


 
 
 
 
Partenaires

Hébergement Web