Retrouver une valeur a partir d 'une combobox .

[oxydedefer]

Bonjour à tous c'est encore moi (décidément) , voilà un nouveau problème : dans mon userform j'ai une combobox avec plusieurs valeurs , chaque valeur vient du fichier de données , cette valeur est sur une ligne avec plusieurs valeurs les unes à coté des autres. Ma question est la suivante lorsque l'utilisateur choisi dans la valeur X de la combobox , il va s afficher un valeur qui se trouve sur la même ligne de la valeur choisi . Je pensait a faire sa

Dim Honoraire As Double

If (ComboBoxPrestation.Value = "Consultations") Then
Sheets("Consultation ").Select

i = 2
While Cells(i, 2) <> ComboBoxTraitements.Value
 i = i + 1

Wend

numLigne = i

Honoraire.Value = Cells(numLigne, 11)

MsgBox (Honoraire.Value)

mais j 'ai une erreur à la compilation "Quantificateur incorrect" . Je vous donne mon fichier
Merci pour vos réponses!

Edit: j'ai déjà essayer cette solution :https://www.excel-downloads.com/thr...meme-ligne-et-dune-colonne-differente.177333/ mais sans résultat.

Finalement ma méthode fonctionne pas terriblement si quelqu'un a une idée.

 

[Compte Supprimé 979]

Re : Retrouver une valeur a partir d 'une combobox .

Salut oxydedefer,

Pour qu'elle combobox ?

A+

 

[oxydedefer]

Re : Retrouver une valeur a partir d 'une combobox .

la ComboBoxTraitements

 

[Compte Supprimé 979]

Re : Retrouver une valeur a partir d 'une combobox .

Re,

Désolé, je n'avais pas tout suivi

Ton problème vient du fait que tu définit un variable "Honoraire" et qu'à celle-ci tu veux lui affecter une propriété ".value"
De plus il te manque un End If

Le code correcte est

Private Sub ComboBoxTraitements_Change()
  Dim Honoraire As Double
  If ComboBoxPrestation.Value = "Consultations" Then
    Sheets("Consultation ").Select
    i = 2
    While Cells(i, 2) <> ComboBoxTraitements.Value
      i = i + 1
    Wend
    numLigne = i
    Honoraire = Cells(numLigne, 11)
    MsgBox (Honoraire)
  End If
End Sub

A+

 

[oxydedefer]

Re : Retrouver une valeur a partir d 'une combobox .

Arg sa fonctionne pour les consultation mais après sa loose sa montre rien , a mon avis sa boucle


J ai trouver c'est bon ...