Discussion :

[KBrownie]

Bonjour,

j'ai sur une feuille excel des données en fonction d'une banque et d'une date

et dans mon userform j'ai :
- un combobox1 qui m'appelle une banque
- un combobox2 qui m'appelle une date

et un label qui doit m'afficher un solde en fonction de la banque et de la date.

j'arrive à afficher correctement le solde seulement pour une date si dans offset(0, 3) ça reste figer.

Code :

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

1
2
3
4
Private Sub ComboBox1_Change()
Label1.Caption = Range("A1:A20").Find(What:=ComboBox1, lookat:=xlPart).Offset(0, 3)
' j'ai essayer de modifier le offset(0, e) afin que lorsque ma combobox2 affiche la même date que celle de la cellule C1 pour que e = 3 mais ça ne fonctionne pas j'ai toujours e = vide
End Sub

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
 
Private Sub UserForm_Initialize()
Dim j As Integer
Dim i As Integer
    For j = 2 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
 
    For i = 3 To 10
        ComboBox2 = Cells(1, i)
        If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Cells(1, i)
    Next i
 
End Sub

Merci d'avance

[riaolle]

Bonjour,
Je n'ai pas bien compris ton problème. Comment définis-tu e ? Que se passe-t-il avec la cellule C1 ? Quelle est ta condition ? Quand la vérifies-tu ?

[KBrownie]

Merci pour votre retour.

Dans ma cellule C1 j'ai une date et je voudrais que si ma cellule C1 est égale à ce que je choisis dans ma combobox2 affecte un nombre et que celui se retrouve dans le offset(0,e)

c'est pour ça que j'avais créer un sub valeur_e pour faire en sorte que e soit égale à 3 comme ça dans offset(0,e) je puisse avoir offset(0,3)
mais ça ne fonctionne pas

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
Private Sub ComboBox1_Change()
Call Valeur_e
Label1.Caption = Range("A1:A20").Find(What:=ComboBox1, lookat:=xlPart).Offset(0, e)
 
End Sub
 
Sub Valeur_e()
If ComboBox2.Value = ActiveSheet.Range("C1").Value Then
e = 3
End If
End Sub
 
Private Sub UserForm_Initialize()
Dim j As Integer
Dim i As Integer
    For j = 2 To Range("A65536").End(xlUp).Row
        ComboBox1 = Range("A" & j)
        If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
    Next j
 
    For i = 3 To 10
        ComboBox2 = Cells(1, i)
        If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Cells(1, i)
    Next i
 
End Sub

je ne sais pas si c'est plus clair, et je ne sais pas si j'utilise la bonne méthode.

[Invité]

Bonjour,

histoire de vérifier qu'il est plus rapide d’initialiser les combobox directement avec un plage de cellules!

Code :

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

1
2
3
4
5
6
Private Sub UserForm_Initialize()
With Range("A1").CurrentRegion
    Me.ComboBox1.List = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1)).Value
    Me.ComboBox2.List = Application.Transpose(.Range(.Cells(1, 2), .Cells(1, .Columns.Count)).Value)
End With
End Sub

la proposition de Pierre recherchait la cellule ce trouvant à l'intersection des valeur de deux combo, mais le deux ListIndex permettent de trouver les coordonnés GPS de la cellule avec précision!

Code :

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

1
2
3
Sub Change()
If Me.ComboBox1.ListIndex > -1 And Me.ComboBox2.ListIndex > -1 Then MsgBox Range("B2").Offset(Me.ComboBox1.ListIndex, Me.ComboBox2.ListIndex)
End Sub

Code complet! :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub UserForm_Initialize()
With Range("A1").CurrentRegion
    Me.ComboBox1.List = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1)).Value
    Me.ComboBox2.List = Application.Transpose(.Range(.Cells(1, 2), .Cells(1, .Columns.Count)).Value)
End With
End Sub
Private Sub ComboBox1_Change()
Change
End Sub
Private Sub ComboBox2_Change()
Change
End Sub
Sub Change()
If Me.ComboBox1.ListIndex > -1 And Me.ComboBox2.ListIndex > -1 Then MsgBox Range("B2").Offset(Me.ComboBox1.ListIndex, Me.ComboBox2.ListIndex)
End Sub

[KBrownie]

top merci beaucoup c'est très gentil à toi.

Et peux-tu me confirmer s'il est possible de mettre sous format ### ### ##0,00 les labels ?

[Invité]

bonjour,

pour compléter la remarque de riaolle, je préciserais que nous ne sommes ni sourd ni aveugle, je préfère le dire parce qu'il est d'usage de crier de plus en plus fort quand il s'agit d'un sourd, et d’augmenter la police de caractère quand il s'agit d'un aveugle!


là il n'est question de ça mais de compréhension! trouve les mots qui conviennent pour nous explique au lieu de nous répéter la même chose et nous présenter un code qui ne veut absolument rien dire!

[KBrownie]

ok ok

j'ai un tableau sur une feuille Excel

Banque	30/05/2017	31/05/2017	01/06/2017
CIC	12	10	30
BNP	20	12	19
LCL	30	21	9
SG	21	34	19

et j'essaye de créer un userform avec une combobox 1, une combobox 2 et un label
combobox 1 = banque
combobox 2 = Date
Label = affiche le solde en fonction de la Combobox 1 et la combobox 2

Mais moi je n'arrive seulement à afficher dans le label la colonne les soldes de la première date en fonction de chaque banque.

[riaolle]

Pourquoi utilises-tu une méthode intermediaire? Pourquoi ne vérifies-tu pas ta condition directement dans ta méthode principale ComboBox1_Change?
Que se passe-t-il si la condition n'est pas vérifiée? Car avec la façon dont tu écris ton code, si la condition n'est pas vérifiée, e ne prend pas de valeur et donc, tu as un problème.
Si tu utilises 2 methodes, tu dois déclarer e comme une variable globale : regarde ce tuto pour mieux comprendre les variables (notamment le paragraphe V).

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
Dim e As Integer
e = 0
If ComboBox2.Value = ActiveSheet.Range("C1").Value Then e = 3
Label1.Caption = Range("A1:A20").Find(What:=ComboBox1, lookat:=xlPart).Offset(0, e)
End Sub

EDIT : au vue de ton dernier message, je complète ma réponse. Je te propose une autre méthode avec Application.Match :

Code :

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

1
2
3
4
5
6
7
Private Sub ComboBox1_Change()
    Dim i As Integer
    Dim j As Integer
    i = Application.Match(ComboBox1.Value, Range("A:A"), 0)       'donne le n° de la ligne où se trouve la banque
    j = Application.Match(ComboBox2.Value, Range("1:1"), 0)       'donne le n° de la colonne où se trouve la date
    Label1.Caption = Cells(i, j).Value
End Sub

[KBrownie]

j'utilisais une méthode intermédiaire parce que le code que tu m'as montré, je l'ai déjà essayé, et il y a le même problème il n'affecte aucune valeur à e.

je viens de voir ton dernier message je vais essayer

[riaolle]

Si ton code n'attribue aucune valeur à e, c'est que la condition dans le If n'est pas vérifiée.
Fais attention à la gestion des dates en VBA ! Fais quelques tests pour vérifier que ta condition marche bien.
Par exemple. Fais en sorte que la date est la bonne, créés une autre label (Label2) et écris le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
Dim e As Integer
e = 0
If ComboBox2.Value = ActiveSheet.Range("C1").Value Then 
    Label2.Caption = "condition vérifiées"
    e = 3  
Else
    Label2.Caption = "condition non vérifiée"  
End If
' Label1.Caption = Range("A1:A20").Find(What:=ComboBox1, lookat:=xlPart).Offset(0, e)
End Sub

Test ce code et regarde si ça marche bine. Si u as des problèmes, c'est sûrement à cause du format des dates.

[KBrownie]

Non Riaolle ça ne fonctionne pas, et j'ai changé tous les formats de date pourtant.

Merci pierre.

Mais en tant que débutant je ne sais pas utiliser les fonctions.
Comment dois-je l'intégrer et l'appeler dans mon sub.

[riaolle]

Il faut que tu sois un peu plus précis dans ta réponse. Qu'est-ce qui ne marche pas?
Est-ce que ta condition n'est jamais vérifiée?
Que veut-dire "j'ai changé le format de date"?
Quel code utilises-tu?

[Invité]

Code :

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

1
2
3
Sub Change()
If Me.ComboBox1.ListIndex > -1 And Me.ComboBox2.ListIndex > -1 Then MsgBox Format(Range("B2").Offset(Me.ComboBox1.ListIndex, Me.ComboBox2.ListIndex), "### ### ##0.00")
End Sub

[KBrownie]

ah en effet c'était logique merci beaucoup pour ton aide

[Invité]

si tu veux intégrer les date tu fais la même chose pour la ComboBox2 mais au niveau de colonnes!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub UserForm_Initialize()
Me.ComboBox1.ColumnCount = 2: Me.ComboBox1.ColumnWidths = "0;10"
With Range("A1").CurrentRegion
    For i = 2 To .Rows.Count
        Me.ComboBox1.AddItem i
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = .Cells(i, 1)
    Next
End With
End Sub
Private Sub ComboBox1_Change()
If Me.ComboBox1.ListIndex > -1 Then MsgBox Cells(Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0), "D")
End Sub

[Pierre Fauconnier]

Salut.

Perso, je préfères utiliser une fonction à laquelle je passe les arguments...

Code :

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

1
2
3
4
5
6
7
8
9
Function Solde(Plage As Range, Banque As String, DateSolde As Date)
  Dim rngDates As Range
  Dim rngBanques As Range
 
  Set rngDates = Plage.Offset(-1).Resize(1)
  Set rngBanques = Plage.Offset(0, -1).Resize(, 1)
 
  Solde = Application.Index(Plage, Application.Match(Banque, rngBanques, 0), Application.Match(DateSolde * 1, rngDates, 0))
End Function

[Pierre Fauconnier]

Code :

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

Format(ComboBox2.Value, "dd/mm/aaaa")

1. VBA est en anglais, donc du dois utiliser DD/MM/YYYY;
2. Dans ton combo, tu as du texte => tu dois donc le convertir en date... FORMAT(...) renvoie du texte;
3. tu dois donc convertir ton texte en date, soit via cdate (mais je n'aime pas car à la base, VBA anglais comprendra les dates "de travers"), soiten reconstituant ta date;

A nouveau, pour reconstituer la date, je préfère passer la chaine saisie à une fonction qui fera cela pour moi... Après, bien sûr, j'utiliserais ma technique illustrée avec la fonction Solde(...)

[Invité]

je pense que je n'es rien compris mais bref!

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
 
Private Sub UserForm_Initialize()
Me.ComboBox1.ColumnCount = 2: Me.ComboBox1.ColumnWidths = "0;10"
Me.ComboBox2.ColumnCount = 2: Me.ComboBox2.ColumnWidths = "0;10"
 
With Range("A1").CurrentRegion
    For i = 2 To .Rows.Count
        Me.ComboBox1.AddItem i
        Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = .Cells(i, 1)
    Next
     For i = 2 To .Columns.Count
        Me.ComboBox2.AddItem i
        Me.ComboBox2.List(Me.ComboBox2.ListCount - 1, 1) = .Cells(1, i)
    Next
End With
 
 
End Sub
Private Sub ComboBox1_Change()
Change
End Sub
Private Sub ComboBox2_Change()
Change
End Sub
Sub Change()
If Me.ComboBox1.ListIndex > -1 And Me.ComboBox2.ListIndex > -1 Then MsgBox Cells(Val(Me.ComboBox1.List(Me.ComboBox1.ListIndex, 0)), Val(Me.ComboBox2.List(Me.ComboBox2.ListIndex, 0)))
End Sub

[KBrownie]

Merci Beaucoup Pierre pour tes réponses et tu as raison je vais faire comme tu me l'as expliqué.

Merci beaucoup Dysorthographie tu es tout à fait compris. Pourrais tu juste m'expliquer le "ME." que tu mets à chaque fois ?

Merci beaucoup Riaolle

[Invité]

c'est simple tu écris Me puis tu rajoute le point Me. et tu comprendras!


dans la question qui nous préoccupe, il y a deux école!
c'elle de Pierre qui consiste à charger la liste avec le valeur de la totalité du tableau Excel! car oui range("A1:A10").value c'est un Array!
et on peut charger une Me.ComboBox avac un Array!

Code :

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

Me.ComboBox1.List=ArrAy("Madame","Monsieur")

cette méthode est très rapide mais elle implique une rechercheV ou autre dans ta feuille excel!

la méthode de riaolle, consiste à balayer toutes le ligne du tableau Excel et d'alimenter ta ComboBox ! si ton tableau fait 10 000 ligne tu oublis et choisi la méthode de Pierre!
l
j'ai opté pour une variante de la version de riaolle, celle que tu avais toi même choisi par manque de solution peut être!

si je dois balayer toute le lignes pourquoi pas m’affranchir d'une recherche en sauvegardant la position de ma cellule dans ma ComboBox !

Code :

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

1
2
Me.ComboBox1.AddItem i
Me.ComboBox1.List(Me.ComboBox1.ListCount - 1, 1) = .Cells(i, 1)

je t'invites quand même à creuser la solution de Pierre qui même si ma solution te convient , pourrait à l'avenir te faire gagner un temps précieux!