Désactiver une Listbox sur condition

Version imprimable

03/07/2018, 09h13
dgeo10

Désactiver une Listbox sur condition
Bonjour,
Je cherche un moyen de "désactiver" ou de "cacher" une listbox afin qu'on ne sache rien mettre dedans
selon une condition d'une autre Listbox.

J'ai essayer ceci mais sa fonctionne pas :/
Code:

1 2 3 4 5 Private Sub ComboBox11_Change() If ComboBox13.Value = Facture Then End Sub ComboBox11.Enabled = False MsgBox "Vous n'êtes pas en mode Facture ! " End Sub
Donc si Cb13 = Facture alors ok il se passe rien
Mais si Cb13 = autre choses alors il cache/désactive la lisbox

Merci
03/07/2018, 10h08
Thautheme

Bonjour Dgeo, bonjour le forum,

Oooops pas clair du tout, tout ça !... Elle est où ta ListBox. Il n'y a que des ComboBoxes dans ton code. Ensuite, désactiver la ComboBox11 sur l'événement Change de cette même ComboBox11 me paraît assez farfelu... Tu devrais revoir ton code et tes explications...
03/07/2018, 10h17
dgeo10

re

Salut et merci oui je me suis tromper je parle bien de ComboBox et pas de Listbox pardon :(

Donc j'ai :

ComboBox13 = liste avec 3 choix possible (Facture, Acompte ou Devis)

ComboBox11 = Données à entrer pour le mode "Facture"

Donc j'aimerais que si le choix de ma ComboBox13 = à Facture alors rien en ce passe

Mais si le choix dans la ComboBox13 = à Acompte ou à Devis alors il cache ou désactive la ComboBox13

Tout cela afin d'ajouter une sécurité à mon programme pour ne pas que sans faire attention on entre des données dans les mauvaises combobox et donc faire des erreurs de facturation.

En l'absence de détails, j'ai supposé que tes contrôles étaient placés dans un UserForm :roll:

Code:

1
2
3
4
5
6
7
8
9
Private Sub ComboBox13_Change()
 
If Me.ComboBox13.Value <> "Facture" Then 'Si condition VRAIE
    Me.ComboBox11.Visible = False
Else 'Si condition FAUSSE
    Me.ComboBox11.Visible = True
End If
 
End Sub

03/07/2018, 13h20
dgeo10

re

Oui oui UserForm :)
Parfait petit code cela fonctionne :) Merci

Bonjour le fil, le forum,

Simplifié :

Code:

1
2
3
Private Sub ComboBox13_Change()
Me.ComboBox11.Visible = IIf(Me.ComboBox13.Value = "Facture", True, False)
End Sub

03/07/2018, 14h37
dgeo10

1 pièce(s) jointe(s)

re
Merci j'ai de quoi faire :)

J'aurais besoin d'un pro maintenant lol
Je suis à la fin de mon programme et je cherche le moyen de coder mon bouton "enregistrer"
Code:

1 2 3 Private Sub CommandButton6_Click() Ici le bouton en question If MsgBox("Êtes-vous sûr ?", 36, "Confirmation") = vbYes Then ...
J'aimerais qu'il vérifie si "ComboBox13" = Devis alors il va enregistrer sur la feuille "Devis" par contre si "ComboBox13" = facture alors il enregistre dans la Feuille "Facturier"

Et donc ensuite j'ai 70 à 80 textbox à copier au bon endroit (pour donc enregistrer la facture et ou le devis du client)

par exemple enregistrer TextBox12 dans la feuille Devis ou la feuille facture (selon la ComboBox13)
en colonne "B" mais en cherchant la première ligne vide du classeur...

Je place le fichier on sais jamais :)

Pièce jointe 393514

Re,

Dans la fenêtre des Propriétés, il te faut donner, aux contrôles que l'utilisateur renseigne, une valeur à la propriété [Tag] correspondant à la colonne ou sera renvoyée la valeur du contrôle :
Exemple:
- Propriété [Tag] de la TextBox1 = A
- Propriété [Tag] de la TextBox2 = B
- ... etc
- Propriété [Tag] de la TextBox80 = CB
tu adapteras à ton cas...

Ensuite, le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton6_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
 
If MsgBox("Êtes-vous sûr ?", 36, "Confirmation") = vbYes Then 'condition : si "Oui"au message
    Select Case UCase(Me.ComboBox13.Value) 'agit en fonction de la valeur de la ComboBox13 (convertie en majuscules)
        Case "DEVIS" 'cas "DEVIS"
            Set O = Worksheets("Devis") 'définit l'onglet O
        Case "FACTURE" 'cas "FACTURE"
            Set O = Worksheets("Facturier") 'définit l'onglet O'c'eût été plus malin de mettre le même 
    End Select 'fin de l'action en fonction de la valeur de la Combobox13
    PLV = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définie la première ligne vide de la colonne A de l'onglet O
    For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'userForm
        'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle dans la cellule
        'ligne = PLV / colonne = valeur de la propriété [Tag] du contrôle
        If CTRL.Tag <> "" Then O.Cells(PLV, CTRL.Tag).Value = CTRL.Value
    Next CTRL 'prochaine contrôle de la boucle
End If 'fin de la condition
End Sub

03/07/2018, 23h17
dgeo10

RE

Merci à toi :)

Je vient d'essayer juste avec quelques textbox donc TextBox 7 à 14 (nom, prénom, adresse, ect... du client) de mettre des [TAG] comme tu ma dit.

Je clic sur le CommandButton6 et il me renvoie une erreur :

Code:

PLV = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définie la première ligne vide de la colonne A de l'onglet O
04/07/2018, 08h34
Thautheme

Re,

Quelle erreur ? Au pire met le fichier...
04/07/2018, 08h37
dgeo10

re

Désolé je n'ai rien dit, cela fonctionne :)

Par contre est ce que c'est possible qu'il incrémente de 1 le numéro de la facture ou du devis selon la dernière ligne ?

Exemple dernier devis : D201800001
Il faut donc qu'il marque en dessous D201800002

Et pour les Factures alors c'est F201800001 -> F201800002

Merci

J'ai essayer ceci mais forcément sa ne fonctionne pas mdr
Code:

1 2 3 4 5 'incrémente le numéro client par rapport à la valeur de la cellule du dessus varPartieImmobile = Left(O.Cells(lig - 1, 1).Value, Len(O.Cells(lig - 1, 1).Value) - 9) varPartieIncrement = Val(Right(O.Cells(lig - 1, 1).Value, 9)) + 1 O.Cells(lig, 1).Value = varPartieImmobile & varPartieIncrement

Re,

Essaie ça :

Code:

1
2
3
4
5
6
7
8
Dim PF As String 'Partie Fixe
Dim PM As Integer 'Partie Mobile
Dim NN As String 'Nouveau Numéro
 
PF = Left(O.Cells(lig - 1, 1).Value, 5)
PM = Mid(O.Cells(lig - 1, 1).Value, 6) + 1
NN = PF & Format(PM, "00000")
O.Cells(lig, 1).Value = NN

04/07/2018, 09h56
dgeo10

re

erreur 1004

PF = Left(O.Cells(lig - 1, 1).Value, 5) en jaune
04/07/2018, 10h18
Thautheme

Que vaut lig ?

Heu ???? comprend pas la

voila le code complet ou j'ai ajouter le nouveau

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
27
28
29
30
31
32
33
34
'Enregistrer le devis ou la facture
Private Sub CommandButton6_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
 
If MsgBox("Êtes-vous sûr ?", 36, "Confirmation") = vbYes Then 'condition : si "Oui"au message
    Select Case UCase(Me.ComboBox13.Value) 'agit en fonction de la valeur de la ComboBox13 (convertie en majuscules)
        Case "DEVIS" 'cas "DEVIS"
            Set O = Worksheets("Devis") 'définit l'onglet O
        Case "FACTURE" 'cas "FACTURE"
            Set O = Worksheets("Facturier") 'définit l'onglet O' c'est été plus malin de mettre le même
        Case "ACOMPTE" 'cas "ACOMPTE"
            Set O = Worksheets("Facturier") 'définit l'onglet O' c'est été plus malin de mettre le même
    End Select 'fin de l'action en fonction de la valeur de la Combobox13
    PLV = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définie la première ligne vide de la colonne A de l'onglet O
    For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'userForm
        'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle dans la cellule
        'ligne = PLV / colonne = valeur de la propriété [Tag] du contrôle
 
        Dim PF As String 'Partie Fixe
Dim PM As Integer 'Partie Mobile
Dim NN As String 'Nouveau Numéro
 
PF = Left(O.Cells(lig - 1, 1).Value, 5)
PM = Mid(O.Cells(lig - 1, 1).Value, 6) + 1
NN = PF & Format(PM, "00000")
O.Cells(lig, 1).Value = NN
 
 
        If CTRL.Tag <> "" Then O.Cells(PLV, CTRL.Tag).Value = CTRL.Value
    Next CTRL 'prochaine contrôle de la boucle
End If 'fin de la condition
End Sub

Re,

Tu fais n'importe quoi ! Pourquoi tu utilises lig et PLV. Réfléchit in peu...

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
27
28
29
30
'Enregistrer le devis ou la facture
Private Sub CommandButton6_Click()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PLV As Integer 'déclare la variable PLV (Première Ligne Vide)
Dim CTRL As Control 'déclare la variable CTRL (ConTRôLe)
Dim PM As Integer 'Partie Mobile
Dim NN As String 'Nouveau Numéro
Dim PF As String 'Partie Fixe
 
If MsgBox("Êtes-vous sûr ?", 36, "Confirmation") = vbYes Then 'condition : si "Oui"au message
    Select Case UCase(Me.ComboBox13.Value) 'agit en fonction de la valeur de la ComboBox13 (convertie en majuscules)
        Case "DEVIS" 'cas "DEVIS"
            Set O = Worksheets("Devis") 'définit l'onglet O
        Case "FACTURE" 'cas "FACTURE"
            Set O = Worksheets("Facturier") 'définit l'onglet O' c'est été plus malin de mettre le même
        Case "ACOMPTE" 'cas "ACOMPTE"
            Set O = Worksheets("Facturier") 'définit l'onglet O' c'est été plus malin de mettre le même
    End Select 'fin de l'action en fonction de la valeur de la Combobox13
    PLV = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définie la première ligne vide de la colonne A de l'onglet O
    For Each CTRL In Me.Controls 'boucle sur tous les contrôles de l'userForm
        'si la propriété [Tag] du contrôle n'est pas vide, renvoie la valeur du contrôle dans la cellule
        'ligne = PLV / colonne = valeur de la propriété [Tag] du contrôle
        If CTRL.Tag <> "" Then O.Cells(PLV, CTRL.Tag).Value = CTRL.Value
    Next CTRL 'prochaine contrôle de la boucle
End If 'fin de la condition
PF = Left(O.Cells(PLV - 1, 1).Value, 5)
PM = Mid(O.Cells(PLV - 1, 1).Value, 6) + 1
NN = PF & Format(PM, "00000")
O.Cells(PLV, 1).Value = NN
End Sub

04/07/2018, 15h02
dgeo10

re

cela fonctionne.
Pour le Lig beh j'ai juste copier coller le code que tu ma dit d'essayer ! donc le lig était dedans ...
04/07/2018, 15h16
Thautheme

Re,

Regarde le post #12 où tu m'envoies un bout de code... C'est par rapport à ça que je t'ai répondu. Mais visiblement tu n'essaies même pas de comprendre, tu te contentes de dire "ça marche" ou "ça marche pas"...