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

BENAM69

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

Pièces jointes

  • TEST.xlsm
    53.3 KB · Affichages: 6

Robert

XLDnaute Barbatruc
Repose en paix
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 Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T