Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Conditions non respectées pour mes ListBox

  • Initiateur de la discussion Initiateur de la discussion Kran
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Kran

XLDnaute Nouveau
Bonjour tout le monde,

J'ai un problème (logique sinon je posterais pas 😛 ).

En faite j'ai créer une boite de dialogue avec deux ListBox et 4 TextBox. Excel calcul avec les valeurs entrées dans mes TextBox et affiche les résultats dans 8 autres TextBox (jusqu'ici tout va bien).

Le problème est que les conditions qui sont poser autour des deux ListBox et dont dépend les résultats ne sont pas respectées.

....Bon pour être plus clair voilà un screen (piece jointe) et mon bout de code.

Code:
Private Sub CommandButton1_Click()


'Armuré
    'Coton
If (Controls("ListBox1") = "Complex" _
    Or Controls("ListBox1") = "Twill" _
    Or Controls("ListBox1") = "Sateen") And _
    (Controls("ListBox2") = "Cotton" _
    Or Controls("ListBox2") = "Co/PES") Then
    Controls("TextBox6") = Sheets("calcul").Range("I3")
    Controls("TextBox7") = Sheets("calcul").Range("I4")
    Controls("TextBox10") = Sheets("calcul").Range("K11")
    Controls("TextBox11") = Sheets("calcul").Range("K12")
    Controls("TextBox8") = Sheets("calcul").Range("I7")
    Controls("TextBox9") = Sheets("calcul").Range("I8")
    Controls("TextBox12") = ("Fils régulier/Coton simple/Coton simple " & Sheets("calcul").Range("K11"))
    Controls("TextBox13") = ("Fils régulier/Coton simple/Coton simple " & Sheets("calcul").Range("K12"))
End If

    'Lin
If (Controls("ListBox1") = "Complex" _
    Or Controls("ListBox1") = "Twill" _
    '...l'action est répété pour toute les combinaisons voulues
    'c'est ici que ça ne fonctionne pas.

Private Sub UserForm_Initialize()
ListBox1.RowSource = "A2:A" & Range("a65536").End(xlUp).Row
ListBox3.RowSource = "B2:B" & Range("B65536").End(xlUp).Row

Dim CellAddress As String
CellAddress = "calcul!" & Sheets("calcul").Range("H3").Address
TextBox1.ControlSource = CellAddress
CellAddress = "calcul!" & Sheets("calcul").Range("H4").Address
TextBox2.ControlSource = CellAddress
CellAddress = "calcul!" & Sheets("calcul").Range("F3").Address
TextBox4.ControlSource = CellAddress
CellAddress = "calcul!" & Sheets("calcul").Range("F4").Address
TextBox5.ControlSource = CellAddress
End Sub

Sauvez moi
Merci
 

Pièces jointes

  • Sans titre.JPG
    21.5 KB · Affichages: 43
  • Sans titre.JPG
    21.5 KB · Affichages: 44
  • Sans titre.JPG
    21.5 KB · Affichages: 44
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
11
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…