Remplir textBox avec conditions en fonction d'une conboBox

[Al.P]

Bonjour tout le monde,

e suis une débutante et j'ai un mini projet pour mes études à réaliser.
Voici mon problème: je souhaite insérer une valeur dans ma textBox "px". Celle-ci dépend de la combobox "camping" sélectionnée (valeur de la ligne dans mes données sur excel) et de la saison sélectionnée "S" (si S=basse saison c'est la colonne 6, si S=moyenne saison c'est la colonne 7 et si S=haute saison c'est la colonne 8).
J'espère que je suis claire.
Tout fonctionne parfaitement sauf la fin de ma macro:
if S = "Basse Saison" then
px = Application.WorksheetFunction.VLookup(ind, table_camping, 6, False)

ElseIf S = "Moyenne Saison" Then
px = Application.WorksheetFunction.VLookup(ind, table_camping, 7, False)

ElseIf S = "Haute Saison" Then
px = Application.WorksheetFunction.VLookup(ind, table_camping, 8, False)

End If
On me signale l'erreur 1004 avec cette formule, je ne sais plus quoi faire.

Malheureusement je n'arrive pas à mettre mon projet en PJ, j'espère que je suis assez claire.

Je vous remercie pour tout éclairage 🙂

Bon weekend

 

[fanfan38]

Re : Remplir textBox avec conditions en fonction d'une conboBox

Bonjour et bienvenue sur le site
Pourquoi ne pas utiliser select case...
select case s
case= "Basse Saison"
px = Application.WorksheetFunction.VLookup(ind, table_camping, 6, False)
case="Moyenne saison"
px = Application.WorksheetFunction.VLookup(ind, table_camping, 7, False)
case= "Haute Saison"
px = Application.WorksheetFunction.VLookup(ind, table_camping, 8, False)
end select

A+ François

 

[Al.P]

Re : Remplir textBox avec conditions en fonction d'une conboBox

Merci beaucoup pour votre réponse,

Malheureusement j'ai ce message d'erreur:
"erreur 1004
Impossible de lire la propriété VlookUp de la classe Worksheetfunction"

Je ne sais pas ce que cela veut dire.

Je vous remercie encore

 

[fanfan38]

Re : Remplir textBox avec conditions en fonction d'une conboBox

Peux tu nous mettre un fichier réduit...
Mais je n'ai pas vlookup dans mes fonctions (excel 2007)??? c'est recherch...(je pense)

A+ François

 

[Al.P]

Re : Remplir textBox avec conditions en fonction d'une conboBox

Regarde la pièce jointe Copie de projet vba - Copie.xlsm

J'ai enlevé les fonds d'écran et du coup ça fonctionne maintenant.
Mon problème est donc dans le userform "comparateur" pour le prix de la nuitée.

Je vous remercie!