XL 2013 [RESOLU] Apparaît valeur sur combobox si condition OK sur un autre combobox

BENAM69

XLDnaute Junior
Bonjour à tous

J'essaye de réaliser une condition pour remplir un combobox selon les critères sur autre combobox

Ce que je souhaite :
Si sur Combobox6 apparait telle ou telle valeur alors combobox7 me fait apparaitre la liste des valeurs correspondantes.
Exemple :
Si Combobox6 = "sjkdnaskj 2" alors combobox7 = valeur des cellules de K2:K10
si Combobox6 = "sjkdnaskj 3" alors combobox7 = valeur des cellules de J2:J10
et ainsi de suite.

Le combobox6 est une liste déroulante avec des données fixes (que du texte) que l'on choisi et en fonction de ce choix apparaît les valeurs des colonnes concernées sur le combobox7
Voici ce que j'ai mis mais rien n’apparaît sur l'espace combobox7. Je pense que ma syntaxe est fausse ou je m'y prend mal.

VB:
Private Sub ComboBox7_Change()
If ComboBox6.Value = "sjkdnaskj 2" Then
ComboBox7.value = Sheets(1).Range("K2:K16").Value
End If
End Sub
Si quelqu'un connait le code associé pour le premier cas après je ferai un copier coller pour le reste ou bien si vous avez la solution pour faire le block entier ce n'est pas de refus.
Merci pour votre aide
J'espère que c'est assez clair pour comprendre mon besoin

Je vous ai mis en PJ le fichier avec des données au hasard

Benam
 

Fichiers joints

Robert

XLDnaute Barbatruc
Bonjour Benam, bonjour le forum,

Tu codes sur le changement de la ComboBox7 alors que c'est au changement de la ComboBox6 qu'il faut agir. Essaie comme ça :

VB:
Private Sub ComboBox6_Change()
If ComboBox6.Value = "sjkdnaskj 2" Then
    ComboBox7.List = Sheets(1).Range("K2:K16").Value
End If
End Sub
 

BENAM69

XLDnaute Junior
Bonjour Benam, bonjour le forum,

Tu codes sur le changement de la ComboBox7 alors que c'est au changement de la ComboBox6 qu'il faut agir. Essaie comme ça :

VB:
Private Sub ComboBox6_Change()
If ComboBox6.Value = "sjkdnaskj 2" Then
    ComboBox7.List = Sheets(1).Range("K2:K16").Value
End If
End Sub
Bonjour Robert,

Tu as tout à fait raison !!
Quel imbécile je suis !!!

Bravo !!! tout est nickel !!!!

Merci pour ton oeil de lynx !!

Benam
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas