Userform Label caption en fonction 2 combobox

Version imprimable

Voir 40 message(s) de cette discussion en une page

1 pièce(s) jointe(s)

Userform Label caption en fonction 2 combobox

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:

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:

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
Pièce jointe 280688

Merci d'avance

30/05/2017, 11h36
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 ?

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:

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.

30/05/2017, 13h05
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!
30/05/2017, 13h16
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.

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:

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:

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

30/05/2017, 13h25
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

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:

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.

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

Code:

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

Salut.

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

Code:

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

30/05/2017, 13h55
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.
30/05/2017, 13h56
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?
30/05/2017, 14h04
Pierre Fauconnier

2 pièce(s) jointe(s)

Citation:

Envoyé par KBrownie

[...]

Mais en tant que débutant je ne sais pas utiliser les fonctions.[...]

Raison de plus pour prendre de suite les bonnes habitudes, et pour perdre les mauvaises...

Il n'est jamais bon de placer "plein" de codes sur les événements des userform. C'est une très mauvais habitude que beaucoup de gens ont, hélas. J'ai déjà envie de dire que ton tableau est mal formé et qu'il serait bien plus intéressant, puisque tu traites des données, d'utiliser un tableau de données de trois colonnes (Banque, date, solde). Ce serait mille fois plus simple. Mais soit...

Ton problème revient, en gros, à trouver le montant à la croisée d'une ligne et d'une colonne. Pense d'abord Excel avant de penser VBA.

Pièce jointe 280731

Après, tu traduis cela en VBA. Cela t'évite les boucles, les FIND et autres trucs... En VBA, tu utilises la fonction en lui passant les arguments, exactement comme tu le ferais en Excel

Pièce jointe 280736

Donc, il faut placer la fonction dans un module standard et l'appeler la la modification d'un combobox en lui passant les bons arguments... Il faut bien entendu t'assurer, avant d'appeler la fonction, que tu disposes de toutes les données.

j'ai intégrer une ligne pour mettre le format date dans la combobox2.
j'ai bien vérifié le format de mes cellules dans le tableau
et la condition n'est pas vérifiée

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
 
Private Sub ComboBox1_Change()
Dim e As Integer
e = 0
ComboBox2.Value = Format(ComboBox2.Value, "dd/mm/aaaa")
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
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

30/05/2017, 14h13
Pierre Fauconnier
Code:

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(...) ;)
30/05/2017, 14h21
Pierre Fauconnier
Citation:

Envoyé par KBrownie

[...]je ne sais pas utiliser les fonctions.[...].

Mais bien sûr que tu sais utiliser les fonctions, puisque tu utilises Format(...) dans l'exemple que tu donnes ;) ;) Une fonction que tu écris toi-même s'appelle de la même façon qu'une fonction native du VBA. Il suffit de la placer dans un module standard et de l'appeler comme n'importe quelle fonction VBA au sein de ton code.

Les avantages d'écrire ton code en le morcelant en petites fonctions:
- utilisation de fonctions génériques que tu ne dois pas réécrire à chaque besoin;
- possibilité de tester et retester ta fonction dans tous les sens;
- débogage beaucoup plus aisé;
- évolution du code bien plus simple car tu ne touches qu'à ce que tu dois modifier, au lieu de devoir retester 500 lignes de code dans une procédure parce que tu as changé une ligne;
- ...
Pour ce qui est de "la condition n'est pas vérifiée...", mets un point d'arrêt au début du code, et avance avec F8 en pas à pas. En survolant une variable avec la souris, tu verras sa valeur s'afficher. Tu peux aussi afficher la fenêtre des variables locales pour vérifier les valeurs au fur et à mesure du déroulement du code...

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

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
 
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

30/05/2017, 14h35
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
30/05/2017, 14h39
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:

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:

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!
30/05/2017, 15h41
KBrownie

Merci beaucoup c'est très claire
Merci pour votre gentillesse.

Voir 40 message(s) de cette discussion en une page

Fuseau horaire GMT +2. Il est actuellement 08h24.

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