Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

VBA index equiv dans userForm

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion NAIM
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

NAIM

Guest
Bonjour
,J'ai un userform et je souhaite remplir le COMBOBOX1 et le COMBOBOX 2 et le résultat s'affiche dans le textbox1 en cherchant les infos dans d'une feuille ci-joint PJ
 

Pièces jointes

Trier par date Trier par votes
Bonjour
,J'ai un userform et je souhaite remplir le COMBOBOX1 et le COMBOBOX 2 et le résultat s'affiche dans le textbox1 en cherchant les infos dans d'une feuille ci-joint PJ en plus je n'arrive pas a remplir le combobox 1
Merci pour votre aide.
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour.
VB: 
Option Explicit
Private Sub UserForm_Initialize()
   ComboBox1.RowSource = ""
   ComboBox1.List = WorksheetFunction.Transpose([REF])
   End Sub
Private Sub ComboBox1_Change()
   AfficheRésu
   End Sub
Private Sub ComboBox2_Change()
   AfficheRésu
   End Sub
Private Sub AfficheRésu()
   If ComboBox1.MatchFound And ComboBox2.MatchFound Then
      TextBox1.Text = Format([PRIX].Item(ComboBox2.ListIndex + 1, ComboBox1.ListIndex + 1).Value, "0.00 €")
   Else
      Me.TextBox1.Text = ""
      End If
   End Sub
 
Vote positif 0 Vote négatif
Chez moi les listes des 2 ComboBox sont renseignées.
Renommez les de façon claire CBxRef et CBxCode. Ne leur mettez pas de propriété RowSource mais garnissez leur List avec les valeurs de plages nommées. Pour celle disposée horizontalement utilisez WorksheetFunction.Transpose, sinon il ne considère que sa seule 1ère ligne.
En ayant fait tout ça dans votre classeur par chance resté ouvert, le code modifié ainsi marche toujours :
VB: 
Option Explicit
Private Sub UserForm_Initialize()
   CBxCode.List = [CODE].Value
   CBxRef.List = WorksheetFunction.Transpose([REF])
   End Sub
Private Sub CBxRef_Change()
   AfficheRésu
   End Sub
Private Sub CBxCode_Change()
   AfficheRésu
   End Sub
Private Sub AfficheRésu()
   If CBxRef.MatchFound And CBxCode.MatchFound Then
      TextBox1.Text = Format([PRIX].Item(CBxCode.ListIndex + 1, CBxRef.ListIndex + 1).Value, "0.00 €")
   Else
      Me.TextBox1.Text = ""
      End If
   End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Vous pourriez aussi faire comme ça :
VB: 
Option Explicit
Private RngPrix As Range
Private Sub UserForm_Initialize()
   Set RngPrix = [prix_]
   ComboBox1.RowSource = ""
   ComboBox2.RowSource = ""
   ComboBox1.List = WorksheetFunction.Transpose(RngPrix.Rows(0))
   ComboBox2.List = RngPrix.Columns(0).Value
   End Sub
Private Sub ComboBox1_Change()
   AfficheRésu
   End Sub
Private Sub ComboBox2_Change()
   AfficheRésu
   End Sub
Private Sub AfficheRésu()
   If ComboBox1.MatchFound And ComboBox2.MatchFound Then
      TextBox1.Text = Format(RngPrix.Item(ComboBox2.ListIndex + 1, ComboBox1.ListIndex + 1).Value, "0.00 €")
   Else
      Me.TextBox1.Text = ""
      End If
   End Sub
Personnellement je n'utilise jamais la propriété RowSource des ComboBox.
 
Vote positif 0 Vote négatif
Bonjour DRANREB,
Encore moi je ne comprends pas c'est mon niveau debutant qui persiste, pourriez vous me résoudre ce PB car je teste ça fonctionne sur certain ligne par pour l'ensemble. exemple pour le poids de 5 Kg il ne fonctionne pas ????
Merci beaucoup.
 

Pièces jointes

Vote positif 0 Vote négatif
Quel UserForm il faut regarder ?
Pour le Mode_chrono-international il y a un nom "DBD_prix_euro" dont la référence est =#REF!#REF!. Il n'est pas le seul: il y aurait un sacré ménage à faire dans le gestionnaire de noms !
 
Vote positif 0 Vote négatif
Et dans l'autre vous avez interverti les rôles respectifs de la 1ère ligne et de la 1ère colonne. Bon, ce sera ma dernière intervention, si vous ne suivez pas mes recommandations. Au lieu de les appeler ComboBox7 et ComboBox8 appelez les CBxPoids et CBxType bon sang !
Moi je change toujour partout la 1ère propriété (Name) de tous les objets VBA, et du coup je fais rârement ce genre d'erreur.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Résolu(e)
XL 2021 Combinaison formules grande.valeur(si index equiv
Réponses
13
Affichages
305
Cousinhub
I
  • Question Question
Microsoft 365 le choix entre les fonctions Filtre ou RechercheX ou Index equiv
Réponses
4
Affichages
296
ALS35
A
  • Question Question
XL 2021 EXCEL bousille le contexte dans un cas très particulier (pour les forts en thème... et en version)
Réponses
3
Affichages
176
TooFatBoy
D
  • Résolu(e)
XL 2021 Combobox vide
Réponses
9
Affichages
310
Did25
D
C
  • Résolu(e)
XL 2010 Collage valeur dans formulaire avec Userform
Réponses
4
Affichages
308
ChTi160
  • Résolu(e)
Microsoft 365 Fonction Index/Equiv dans Recherche V
Réponses
5
Affichages
335
VBA_dev_Anne_Marie
D
  • Résolu(e)
XL 2016 Alimenter une combobox sur une feuille de calcul
Réponses
11
Affichages
294
dgil37
D
J
  • Question Question
XL 2019 index equiv avec fonction ou sur plusieurs feuilles
Réponses
11
Affichages
805
job75
J
  • Question Question
Microsoft 365 affichage userform
Réponses
4
Affichages
491
TooFatBoy
  • Question Question
XL 2021 Remplissage de plusieurs cellules dans une colonne
Réponses
5
Affichages
230
AtTheOne
  • Résolu(e)
Microsoft 365 Userform Filtres ne fonctionne pas
2 3 4
Réponses
46
Affichages
1 K
jcf6464
B
  • Résolu(e)
XL 2021 VBA : activer une feuille dont le nom est la valeur d'une cellule
Réponses
2
Affichages
84
berru76
B
G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
218
job75
C
  • Question Question
Microsoft 365 Formules ne se calculent pas (résolu)
Réponses
2
Affichages
152
Cougar
C
J
  • Résolu(e)
XL 2021 Classement données avec recherchex en cas de données de même valeur
Réponses
6
Affichages
111
jeff2318
J
D
  • Question Question
XL 2019 User Form
Réponses
9
Affichages
443
Debie
D
  • Question Question
Microsoft 365 liste deroulante "active"" du combobox
Réponses
2
Affichages
220
cathodique
P
  • Résolu(e)
Microsoft 365 Remplissage tableau avec 2 conditions
Réponses
4
Affichages
232
pierrof
P
R
  • Question Question
XL 2021 Sélectionner une ligne contenant cellule en couleur
2
Réponses
17
Affichages
373
Jacky67
J
  • Question Question
Microsoft 365 Userform comboboxes indexés
Réponses
8
Affichages
346
jp26200
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…