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