Discussion :

[Yousssef Boubaddara]

Bonjour,
Je suis débutant au VBA, je suis entrain de crée un Userform sous Excel2010, mon problème est le suivant:
1- J'ai un tableau Excel très long horizontal, leur contenu est comme suivant:
- Les dates: dans la ligne N°3, (du 1er janvier 2013 jusqu'à 30 décembre 2013).
- Les pourcentages: dans la ligne N°4.
- Chaque date correspond à un pourcentage.
2- Sur mon Userform j'ai:
- un combobox (combodates) rempli par les dates.
- un textbox (textpourcentage).
J'ai besoin de votre aides: lorsque je choisi une date sur mon combobox, dans le textbox s'affiche le pourcentage correspond de la date sur le tableau excel.

N.B: J'ai réussi de remplir mon combobox, seulement j'ai le problème de synchroniser entre combobox et textbox sachant que mes données (%) dans le tableau sont horizontal et aussi que très long.

Merci d'avance.

[QuestVba]

Bonjour,

Tu dois tester pour savoir quelle ligne (valeur) a été choisie par l'utilisateur et ensuite, tu prends la valeur correspondant.

Exemple,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.Combobox1.ListIndex

te donnera la ligne
Attention : la 1ère ligne est '0', la 2e est '1'

Tu auras aussi des infos ici

[Yousssef Boubaddara]

Bonjour Lionel,
Merci infiniment, j'ai essayé votre code mais ça ne marche pas dans mon cas, je ne c'est pas pourquoi?
De toute façon, vous trouverez ci-dessous le code que j'ai utilisé pour que vous puisse m'aider plus:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ComboDate_Change()
Set od = Sheets("Diary Tracking General") 'définit l'onglet od
Me.Textbox.Value = Format(od.Cells(Me.ComboDate.ListIndex + 8, 53), "0.00")

8 c'est le numéro de la ligne
53 c'est le numéro de la colonne

Le problème c'est que lorsque je choisi une date sur mon comboDate, sur le textbox me donne des valeurs d'autres lignes verticale (par ex: la valeur de ligne N°9), mais moi je veux la valeur de la ligne N°8 qui correspond de la date que j'ai choisi.

Merci, et je compte sur votre aide.

[QuestVba]

Bonjour,

Tu peux voir en PJ.

J'initialise les deux combobox (la 2e est enabled)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub UserForm_Initialize()
    m = 1
    Dim vda1(300)
    Dim Pour(300)
 
    For m = 1 To 6
        vda1(m) = Cells(3, m + 2).Value
        ComboBox1.AddItem vda1(m)
        Pour(m) = Cells(4, m + 2).Value
        ComboBox2.AddItem Pour(m)
 
    Next m
 
End Sub

Et ensuite, je récupère la donnée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub ComboBox1_Change()
 
x = UserForm1.ComboBox1.ListIndex
ComboBox2.Value = ComboBox2.List(x)
 
End Sub