deudecos
XLDnaute Impliqué
Bonjour le Forum,
Me voici de nouveau devant un probleme d'a peu pres la taille de l'everest. Autrement dit, quasi insurmontable pour moi...
Donc, a partir d'un userform, j'ai deux ComboBox renseignees l'une par un fournisseur et l'autre par une foruniture...
Et un TextBox m'affichant un resultat(le prix unitaire entre autre) D'apres mes deux ComboBox...
Avec le code qui suit, je parviens a afficher un resultat selon le renseignement d'un des deux ComboBox, mais pour le faire avec les deux reunis, je n'y parviens pas... J'ai bien essaye avec un 'And If CStr(Cell.Value)= frs.Value' mais je ne parviens pas a un resultat, sans pour autant avoir d'erreur...
Private Sub Ftr_Click()
Dim Test As Byte
Dim Cell As Range
For Each Cell In Sheets('Etat stock').Range('b50:g538')
If CStr(Cell.Value) = Ftr.Value And If CStr(Cell.Value) = Frs Then
Test = Test + 1
If Test = 1 Then
Pht = Cell.Offset(0, 4).Value
Else
Exit Sub
End If
End If
Next Cell
Siouple, expliquez moi que chu nul et que y a pas plus simple a resoudre...
:whistle:
Bon apres midi
Olivier
Me voici de nouveau devant un probleme d'a peu pres la taille de l'everest. Autrement dit, quasi insurmontable pour moi...
Donc, a partir d'un userform, j'ai deux ComboBox renseignees l'une par un fournisseur et l'autre par une foruniture...
Et un TextBox m'affichant un resultat(le prix unitaire entre autre) D'apres mes deux ComboBox...
Avec le code qui suit, je parviens a afficher un resultat selon le renseignement d'un des deux ComboBox, mais pour le faire avec les deux reunis, je n'y parviens pas... J'ai bien essaye avec un 'And If CStr(Cell.Value)= frs.Value' mais je ne parviens pas a un resultat, sans pour autant avoir d'erreur...
Private Sub Ftr_Click()
Dim Test As Byte
Dim Cell As Range
For Each Cell In Sheets('Etat stock').Range('b50:g538')
If CStr(Cell.Value) = Ftr.Value And If CStr(Cell.Value) = Frs Then
Test = Test + 1
If Test = 1 Then
Pht = Cell.Offset(0, 4).Value
Else
Exit Sub
End If
End If
Next Cell
Siouple, expliquez moi que chu nul et que y a pas plus simple a resoudre...
:whistle:
Bon apres midi
Olivier