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

valeur textbox à partir d'une liste déroulante

  • Initiateur de la discussion Initiateur de la discussion lironik
  • 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 !

lironik

XLDnaute Nouveau
Bonsoir
J'ai un problème concernant une macro qui est le suivant:
J'ai un fichier client qui comporte les données suivantes:
- Colonne A: num client
- Colonne B: Nom
- Colonne C: Prénom
Ainsi de suite pour adresse, code postal, ville et numéro de téléphone
- Colonne H: Matricule voiture 1
- Colonne I: Marque voiture 1
- Colonne J: moteur voiture 1
- Colonne K, L, M: mêmes données pour la voiture 2
- Colonne N, o , P: mêmes données pour voiture 3

A partir de là, j'ai créé un userform avec une liste déroulante de tous les noms et dès que j'en sélectionne un, j'obtient immédiatement le numéro, l'adresse, le téléphone du client. J'obtiens également une liste déroulante avec les trois matricules.

A partir de là, j'aimerais que lorsque je sélectionne un matricule j'obtienne la marque et le moteur de la voiture correspondante. J'ai essayé d'appliquer la même formule que pour le nom mais le problème c'est que pour le nom je cherchais la cible (cad le nom) dans une seule colonne alors que la je recherche la cible dans trois colonnes (car trois matricules possibles dues à la possession de trois voitures). Je sollicite donc votre aide.

Voici ce que j'ai pour l'instant: (précision: ça ne marche pas)

Private sub matricule_change()

Dim cell as range
Dim cherch
Dim derlign as long

derlign = sheets("Client").Range("A65536").End(xlUp).Row

cherch = matricule

Set cell = Sheets("Client").Range("A😛" & derlign).Find(cherch, lookAt:=xlwhole)
If not cell is nothing then

marque.value = cell.offset (0, 1)
moteur.value = cell.offset (0, 2)

End if

End sub


Merci de votre aide
 
Re : valeur textbox à partir d'une liste déroulante

Bonsoir à tous

La ligne suivante:
Set cell = Sheets("Client").Range("A😛" & derlign).Find(cherch, lookAt:=xlwhole)
Ne devrait-elle pas être:
Code:
Set cell = Sheets("Client").Range([COLOR=Red][B]"A[COLOR=Blue]2[/COLOR]:P" & derlign[/B][/COLOR]).Find(cherch, lookAt:=xlwhole)
...En supposant qu'il y est des entêtes de colonnes.

A plus

Et puis d'ailleurs, les immatriculations ce trouvant dans les colonnes H, K et N,
le Range("A2😛" & derlign)...
 
Dernière édition:
- 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

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…