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

Alimenter deux textbox à partir d'un choix combobox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion pronar6
  • 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
P

pronar6

Guest
Bonjour,

Débutant en VAB, je suis coincé et je sollicite votre aide.
J'ai un classeur et dans feuil2 j'ai des donnés dans les colonnes A, B et C.
Je dispose d'un userform dans lequel j'ai fait une liste ComboBox4 à partir des données de la colonne A.
Un choix dans Combobox4 devra alimenter automatiquement Textbox3 et Texbox4.
Illustration

........... ColonneA.......ColonneB........ColonneC
Ligne1........VAC..........13-650..........18G
Ligne1........POL..........13-675...........28G

Lorsque je choisi par exemple POL dans Combobox4, automatiquement Textbox3 prend la valeur 13-675 et Textbox4 la valeur 28G
Voici un code que j'ai essayé de mettre mais ça marche pas.

Private Sub ComboBox4_Change()
Dim a As Integer
For a = 1 To 9999
If Val(ComboBox4.Value) = range("A1:A" & range("A65536").end(xlup).row) Then
TextBox3 = range("Feuil2!B" & combobox4.listindex+1)
TextBox4 = range("Feuil2!C" & combobox4.listindex+1)
GoTo fin:
End If
Next
fin:

Merci d'avance pour votre assistance.
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Alimenter deux textbox à partir d'un choix combobox

Bonjour Bebere, pronar,

Bon ma boule de cristal vaut ce qu'elle vaut ...

Et oui un fichier , c'est sur c'est mieux .

Enfin quelque chose comme cela pourrait fonctionner :

Non testé puisque pas de fichier

Code: 
Option Explicit

Private Sub ComboBox4_Change()

Dim a As Integer
Dim Trouve As Range
'Recherche de l'info clef
Set Trouve = Sheets("Feuil2").Range("A:A").Find(combobox4.Value, lookat:=xlWhole)
 'Si le résultat n'est pas null
 If Not Trouve Is Nothing Then
  TextBox3 = Range("Feuil2!B" & Trouve.Row)
  TextBox4 = Range("Feuil2!C" & Trouve.Row)
 End If
End Sub
 
Vote positif 0 Vote négatif
Re : Alimenter deux textbox à partir d'un choix combobox

Pronar ,

Et oui regardes dans ton userform , il n'y a pas de textbox2 , pourtant dans le code :

Or Me.TextBox2
 

Pièces jointes

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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

V
  • Question Question
Problème correspondance Valeur et Textbo d'un userform
Réponses
2
Affichages
2 K
VOILLOT
V
A
  • Question Question
Combobox et filtre automatique ( Fonctionne que pour les premiers choix!!!!)
Réponses
3
Affichages
1 K
Dranreb
F
  • Question Question
Problème code VBA pour modification de données à partir d'un userform
Réponses
2
Affichages
2 K
Pierrot93
A
  • Question Question
Dans un UserForm, lier Combobox à TextBox
Réponses
8
Affichages
6 K
MJ13
R
  • Question Question
combobox et mise à jour
Réponses
1
Affichages
926
Robert
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…