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 : Sélectionner tout - Visualiser dans une fenêtre à part
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
Partager