[XL-2007] Filtre sur une ComboBox avec case cochée et les valeurs d'une colonne [Résolu]

[brunounours]

Bonjour le Forum,

J’arrive à faire 2 ou 3 trucs mais la je bloque et j’ai vraiment besoin de votre aide s’il vous plait.


Voila:
J'ai créer une "UserFormVerficacion2" dans laquelle je viens de rajouter un bouton : E-Mail qui ouvre lui-même une autre "UserFormEmail".

Dans l'UserFormVerification2 se trouvent des CheckBox qui correspondent a des types de contact: type "Order entry form","PMS","RBS"...

Dans UserFormEmail, il existe une ComboBox1 qui repertorie les noms dans laquelle, j’arrive à charger les noms qui se trouvent colonne BF sur ma feuille Excel. Les TextBox correspondant aux prénoms et E-mails se chargent aussi (respectivement colonne BG et BH).

Dans la colonne BI, je renseigne le type de contact.
Dans un premier temps,

Je souhaiterai ajouter la condition à l’« Intitialization » de la Combobox1 (dans UserFormEmail) pour n’afficher que les Clients qui correspondent au type coché.


Par exemple :Lorsque je coche « Order entry Form » sur l'UserFormVerificacion2, puis que je clique sur le bouton « E-Mail » il ne doit apparaitre dans la ComboBox1 que les noms qui ont pour valeur en "BI": "order entry form"

Plus tard, je souhaiterai que lorsque je clique sur le bouton Envoyer un E-mail s’adressant a la personne sélectionnée s’ouvre directement. Mais chaque chose en son temps.

Merci d’avance pour vos réponses. Si je n’ai pas été assez clair posez moi des questions.

J'ai un fichier explicatif si vous le necessitez mais je ne px pas le mettre sur le forum.

Bruno

Voici le code que j'utilise pour charger ma ListBox et mes TextBox:

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
35
36
37
38
39
40
41
42
'Charger liste deroulante
 
Dim J As Long
Dim Ws As Worksheet
 
ComboBox1.Clear
 
  Set Ws = Sheets("OEP CONTROL")
  With Me.ComboBox1
    .ColumnCount = 2
    .ColumnWidths = "-1;0"
 
    For J = Ws.Range("BF" & Rows.Count).End(xlUp).Row To 11 Step -1
 
            If Ws.Range("BF" & J) <> "" Then
 
          .AddItem Ws.Range("BF" & J)
          .List(.ListCount - 1, 1) = J
 
 
    End If
    Next J
  End With
 
End Sub
 
 
Private Sub ComboBox1_Change()
Dim i As Integer
'feuille dans laquelle je travaille: Ws
Dim Ws As Worksheet
Dim Cel As Range
 
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Set Ws = Sheets("OEP CONTROL")
 
  'Colonne BG: Nombre
            TextBox1 = Ws.Cells(Me.ComboBox1.Column(1), "BG")
'Colonne BH: Correo
            TextBox2 = Ws.Cells(Me.ComboBox1.Column(1), "BH")
 
End Sub

[brunounours]

Bonujour

J'ai trouvè une solution qui marche

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
For J = Ws.Range("BF" & Rows.Count).End(xlUp).Row To 11 Step -1
 
            If Ws.Range("BF" & J) <> "" And Ws.Range("BI" & J) = "Order Entry Form" And UserFormVerificacion2.CheckBox1 = True _
'... autres CheckBoxes
           Or Ws.Range("BF" & J) <> "" And Ws.Range("BI" & J) = "Ingeniería Ready" And UserFormVerificacion2.CheckBox29 = True _
           Or Ws.Range("BF" & J) <> "" And Ws.Range("BI" & J) = "OTF en Red" And UserFormVerificacion2.CheckBox30 = True Then
 
          .AddItem Ws.Range("BF" & J)
          .List(.ListCount - 1, 1) = J
 
    End If
    Next J
  End With

Merci Cdt Bruno