[RESOLU par Lone-wolf et Laetitia90] : COMBOBOX et ARRAY

[MADAGASCAR]

Bonsoir EXCEL DOWNLOADS
Bonsoir à tous et à toutes
SVP gentelman ..
SI vous pouvez m'aider a resoudre ce probleme
Dans ce fichier j'ai ComboBox1 et 3 TextBox

Si je choisis dans ComboBox1 le mot "mada1" s'affichera :
aaa1 dans TextBox1
aaa2 dans TextBox2
aaa3 dans TextBox3

Si je choisis dans ComboBox1 le mot "mada2" s'affichera :
bbb1 dans TextBox1
bbb2 dans TextBox2
bbb3 dans TextBox3

Si je choisis dans ComboBox1 le mot "mada3" s'affichera :
ccc1 dans TextBox1
ccc2 dans TextBox2
ccc3 dans TextBox3

Franchement ..mon but gentelman .. c'est comment continuer avec cette methode (ARRAY) pour afficher ce que j'ai explique au dessus dans ces TextBox..
Merci beaucoup d'avance pour l'aide
Cordialement
MADA BLACK

 

[Lone-wolf]

Re : COMBOBOX et ARRAY

Bonsoir MADAGASCAR,

Private Sub ComboBox1_Change()
 For i = 1 To 3
  If ComboBox1.Text = "mada1" Then
 Me.Controls("TextBox" & i).Text = "aaa" & i
 ElseIf ComboBox1.Text = "mada2" Then
 Me.Controls("TextBox" & i).Text = "bbb" & i
 Else
 Me.Controls("TextBox" & i).Text = "ccc" & i
 End If
  Next i
End Sub

Très bonne soirée


Amicalement Lone-wolf

 

[MADAGASCAR]

Re : COMBOBOX et ARRAY

Bonsoir Lone-wolf
Merci 1000 fois pour votre formidable et impeccable solution
SVP tres cher Lone-wolf ..meme pour la nuit prochaine si vous etes fatigue ..il ne me reste qu'un seul probleme pour comprendre completement ce type de code ..
Si les donnes qui seront affiches dans les TextBox ne seront pas identiques aaa1 aaa2 aaa3 bbb1 bbb2 bbb3 ccc1 ccc2 ccc3
Comment se sera ce code ..je mexplique beaucoup mieux :

Si je choisis dans ComboBox1 le mot "mada1" s'affichera :
BLACK dans TextBox1
Lone-wolf dans TextBox2
Laetitia90 dans TextBox3

Si je choisis dans ComboBox1 le mot "mada2" s'affichera :
109 dans TextBox1
486 dans TextBox2
791 dans TextBox3

Si je choisis dans ComboBox1 le mot "mada3" s'affichera :
Paris dans TextBox1
Marseille dans TextBox2
Lyon dans TextBox3

Merci beaucoup g'avance
Tres cordialement
MADA

 

[Lone-wolf]

Re : COMBOBOX et ARRAY

Re,

pourquoi ne pas l'avoir dit dans le premier message??? Sacré MADA.

Private Sub ComboBox1_Change()
  If ComboBox1 = "mada1" Then
  TextBox1 = "BLACK"
  TextBox2 = "Lone-wolf"
  TextBox3 = "Laetitia90"
  ElseIf ComboBox1 = "mada2" Then
  TextBox1 = 109
  TextBox2 = 486
  TextBox3 = 791
 Else
  TextBox1 = "Paris"
  TextBox2 = "Marseille"
  TextBox3 = "Lyon"
 End If
End Sub

A+

 

[MADAGASCAR]

Re : COMBOBOX et ARRAY

Bonsoir Lone-wolf
J'ai pas dis dans le premier message simplement pour avoir les differentes façon de manipuler cette methode array
Merci 1000 fois fois Lone -wolf
Tres tres gentil de votre part
Merci pour votre gentillesse
Parfaitement resolu
Tres cordialement
MADA BLACK

 

[Lone-wolf]

Re : [RESOLU par Lone-wolf] : COMBOBOX et ARRAY

RE,

Version Lone-wolf

Private Sub UserForm_Initialize()
Me.ComboBox1.List = Array("mada1", "mada2", "mada3", "effacer")
End Sub

Private Sub ComboBox1_Change()
  If ComboBox1 = "mada1" Then
  TextBox1 = "BLACK"
  TextBox2 = "Lone-wolf"
  TextBox3 = "Laetitia90"
  ElseIf ComboBox1 = "mada2" Then
  TextBox1 = 109
  TextBox2 = 486
  TextBox3 = 791
 ElseIf ComboBox1 = "mada3" Then
  TextBox1 = "Paris"
  TextBox2 = "Marseille"
  TextBox3 = "Lyon"
Else
  TextBox1 = ""
  TextBox2 = ""
  TextBox3 = ""
  ComboBox1 = ""
 End If
End Sub

A+

 

[MADAGASCAR]

Re : [RESOLU par Lone-wolf] : COMBOBOX et ARRAY

Super Lone-wolf
Merci pour votre super version
Bonne nuit
Cordialement
MADA

 

[Lone-wolf]

Re : [RESOLU par Lone-wolf] : COMBOBOX et ARRAY

Bonjour MADAGASCAR,

une version plus pro en PJ.



A+

 

[MADAGASCAR]

Re : [RESOLU par Lone-wolf] : COMBOBOX et ARRAY

Bonjour tres cher Lone-wolf
C'est la meilleur
Je n'ai qu'a vous dire "BRAVO"
Du fond du coeur MERCI
Tres cordialement
MADA

 

[laetitia90]

Re : [RESOLU par Lone-wolf] : COMBOBOX et ARRAY

bonjour MADAGASCAR Lone-wolf

on pourrait utilser uniquement des array => tablo

Private Sub C1_DropButtonClick()
C1.List = Array("mada1", "mada2", "mada3", "effacer")
C2.List = Array("BLACK", 109, "Paris", "")
C3.List = Array("Lone-wolf", 486, "Marseille", "")
C4.List = Array("Laetitia90", 791, "Lyon", "")
For i = 2 To 4: Me("C" & i).ListIndex = C1.ListIndex: Next
End Sub

exemple ci-joint

 

[Lone-wolf]

Re : [RESOLU par Lone-wolf] : COMBOBOX et ARRAY

Bonjour laetitia

Je ne connaissait pas cette façon de faire, merci de m'avoir instruit.


Très bon dimanche


Amicalement Lone-wolf

 

[MADAGASCAR]

Re : [RESOLU par Lone-wolf] : COMBOBOX et ARRAY

Bonjour Laetitia90
Merci beaucoup pour cette nouvelle formidable et interessante methode
Tres gentil de votre part
Joyeux dimanche
Tres cordialement
MADA BLACK