Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Combobox et formule

Combobox et formule

7 réponses
Avatar
Vincent
Bonjour
J'ai une liste de E2:E50000 dans laquelle, j'ai divers éléments "toto"
"tata" "titi" etc.
J'ai dans un combo une liste de "toto" "tata" "titi" etc.
Je souhaite avoir dans un label, le nombre de "toto" "tata" "titi" etc.
j'ai créé dans la feuille de calcul, la formule =NB.SI(A2:A50000;F4)
puis dans Controlsource du combobox F4
Cela ne fonctionne pas !
Merci

Private Sub ComboBox4_Change()
Mavar = Sheets("liste").Range("E4").Value
Label18.Caption = Mavar
End Sub
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
LeSteph
Bonsoir ,
verifie c'est E4 ou F4
sinon mets déjà
Dim Mavar as string
'juste avant la ligne
Mavar puis mets l'objet auquel appartient le label
exemple:

Dim Mavar As String
Mavar = Sheets("liste").Range("E4").Value
UserForm1.Label18.Caption = Mavar

"Vincent" a écrit dans le message de
news:%
Bonjour
J'ai une liste de E2:E50000 dans laquelle, j'ai divers éléments "toto"
"tata" "titi" etc.
J'ai dans un combo une liste de "toto" "tata" "titi" etc.
Je souhaite avoir dans un label, le nombre de "toto" "tata" "titi" etc.
j'ai créé dans la feuille de calcul, la formule =NB.SI(A2:A50000;F4)
puis dans Controlsource du combobox F4
Cela ne fonctionne pas !
Merci

Private Sub ComboBox4_Change()
Mavar = Sheets("liste").Range("E4").Value
Label18.Caption = Mavar
End Sub




Avatar
Vincent
Non, en fait c'est bien E4, mais j'ai dû mal à formuler la question.
Je vais contourner
Merci encore
Vincent

"LeSteph" a écrit dans le message de
news:%
Bonsoir ,
verifie c'est E4 ou F4
sinon mets déjà
Dim Mavar as string
'juste avant la ligne
Mavar > puis mets l'objet auquel appartient le label
exemple:

Dim Mavar As String
Mavar = Sheets("liste").Range("E4").Value
UserForm1.Label18.Caption = Mavar

"Vincent" a écrit dans le message de
news:%
Bonjour
J'ai une liste de E2:E50000 dans laquelle, j'ai divers éléments "toto"
"tata" "titi" etc.
J'ai dans un combo une liste de "toto" "tata" "titi" etc.
Je souhaite avoir dans un label, le nombre de "toto" "tata" "titi" etc.
j'ai créé dans la feuille de calcul, la formule =NB.SI(A2:A50000;F4)
puis dans Controlsource du combobox F4
Cela ne fonctionne pas !
Merci

Private Sub ComboBox4_Change()
Mavar = Sheets("liste").Range("E4").Value
Label18.Caption = Mavar
End Sub








Avatar
AV
Sauf impérieuse nécessité, tu ne devrais pas avoir besoin de la feuille pour les
calculs intermédiaires :

Private Sub ComboBox1_Change()
Label18 = Application.CountIf([E2:E50000], ComboBox1.Value)
End Sub

AV
Avatar
LeSteph
Bonjour,
Ok!
mais définis la variable ,
et relie l'objet et son contenant
comme je t'indique ,ça ira mieux!
Car là tu es dans Private..combobox
et tu veux atteindre un Label qui est situé.??
soit dans un UF soit dans une Feuille
il faut préciser , sinon la mule refuse d'avancer!

"Vincent" a écrit dans le message de
news:
Non, en fait c'est bien E4, mais j'ai dû mal à formuler la question.
Je vais contourner
Merci encore
Vincent

"LeSteph" a écrit dans le message de
news:%
Bonsoir ,
verifie c'est E4 ou F4
sinon mets déjà
Dim Mavar as string
'juste avant la ligne
Mavar > > puis mets l'objet auquel appartient le label
exemple:

Dim Mavar As String
Mavar = Sheets("liste").Range("E4").Value
UserForm1.Label18.Caption = Mavar

"Vincent" a écrit dans le message de
news:%
Bonjour
J'ai une liste de E2:E50000 dans laquelle, j'ai divers éléments "toto"
"tata" "titi" etc.
J'ai dans un combo une liste de "toto" "tata" "titi" etc.
Je souhaite avoir dans un label, le nombre de "toto" "tata" "titi"
etc.



j'ai créé dans la feuille de calcul, la formule =NB.SI(A2:A50000;F4)
puis dans Controlsource du combobox F4
Cela ne fonctionne pas !
Merci

Private Sub ComboBox4_Change()
Mavar = Sheets("liste").Range("E4").Value
Label18.Caption = Mavar
End Sub












Avatar
Vincent
Bonjour AV.
C'est parfait, mais, j'ai une question, au risque de paraître bête.
Pourquoi, ne doit-on pas utiliser la feuille de calcul, je parle pour moi,
car je suis très faible en VBA ?
Merci beaucoup.
Vincent


"AV" a écrit dans le message de
news:%
Sauf impérieuse nécessité, tu ne devrais pas avoir besoin de la feuille
pour les

calculs intermédiaires :

Private Sub ComboBox1_Change()
Label18 = Application.CountIf([E2:E50000], ComboBox1.Value)
End Sub

AV




Avatar
AV
Pourquoi, ne doit-on pas utiliser la feuille de calcul,


J'ai pas dit qu'il "devait" pas mais que c'était pas vraiment nécessaire
Question d'optimisation du code et pas de "fil à la patte"

AV

Avatar
Vincent
Merci encore
Bonne journée

"AV" a écrit dans le message de
news:eXc%
Pourquoi, ne doit-on pas utiliser la feuille de calcul,


J'ai pas dit qu'il "devait" pas mais que c'était pas vraiment nécessaire
Question d'optimisation du code et pas de "fil à la patte"

AV