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 01/10/2011, 20h27   #1
Invité régulier
 
Homme
Inscription : novembre 2010
Messages : 36
Détails du profil
Informations personnelles :
Sexe : Homme

Informations forums :
Inscription : novembre 2010
Messages : 36
Points : 9
Points : 9
Par défaut Autorisation saisie combobox

Bonsoir

Sur un userform, j'ai 4 combos les unes en dessous des autres...
Je souhaiterais connaître un code qui me permet d'utiliser ma combo que si celle(s) situé(es) au dessus est/sont déjà remplie(s).
En clair, utiliser d'abord la combo du haut puis celle de dessous...etc...etc
Merci d'avance

CA
igno42 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/10/2011, 21h13   #2
Expert Confirmé Sénior
 
Avatar de jfontaine
 
Homme Jérôme FONTAINE
Contrôleur de Gestion
Inscription : juin 2006
Messages : 3 899
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 899
Points : 7 185
Points : 7 185
Bonjour,

Une solution
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Private Sub ComboBox1_Change()
If ComboBox1.Value <> "" Then
    ComboBox2.Enabled = True
    ComboBox3.Enabled = False
    ComboBox4.Enabled = False
    ComboBox2.Text = ""
    ComboBox3.Text = ""
    ComboBox4.Text = ""
End If
End Sub
 
Private Sub ComboBox2_Change()
If ComboBox2.Value <> "" Then
    ComboBox3.Enabled = True
    ComboBox4.Enabled = False
    ComboBox3.Text = ""
    ComboBox4.Text = ""
End If
End Sub
 
Private Sub ComboBox3_Change()
If ComboBox3.Value <> "" Then
    ComboBox4.Enabled = True
    ComboBox4.Text = ""
End If
End Sub
__________________
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 01/10/2011, 21h43   #3
Invité régulier
 
Homme
Inscription : novembre 2010
Messages : 36
Détails du profil
Informations personnelles :
Sexe : Homme

Informations forums :
Inscription : novembre 2010
Messages : 36
Points : 9
Points : 9
Par défaut PB ordre saisie combo

Merci beaucoup pour cette aide!
igno42 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 03h52.


 
 
 
 
Partenaires

Hébergement Web