Rechercher cellule

Bonjour à tous,

Alors voilà : je souhaite, pour une certaine valeur, trouver, dans la cellule voisine, l'information correspondante (voir fichier joint).

Ma ComboBox est correctement définie, cependant ma fonction Rechercher me pause quelques difficultés ... .

Merci de votre aide !

Cordialement

Bonjour,

Do While Worksheets("Essai").Cells(i, 2) <> ""

Avec 1, la liste de ton ComboBox pourrait au moins se charger.

If Active.cell.Value = CBNumeroProduit.Value Then

Rien ne te choque ?

Sans parler des variables Integer pour des prix.

Voilà déjà quelques "arrangements" pour que la proc. fonctionne :

Private Sub CMDRechercher_Click()
    Dim Prix, PrixMin, Mag%, i%
    With Sheets("Releve")
        i = 2
        Do While .Cells(i, 1) <> ""
            If Cells(i, 1).Value = CInt(CBNumeroProduit.Value) Then
                Prix = .Cells(i, 3).Value
                If PrixMin = "" Or PrixMin > Prix Then
                    PrixMin = Prix
                    Mag = .Cells(i, 2).Value
                End If
            End If
            i = i + 1
        Loop
    End With
    TBMeilleurPrix.Value = PrixMin
    TBNumeroMagasin.Value = Mag

End Sub

Il te reste à aller chercher le nom...

et à rectifier l'étiquette 'numéro magasin' pour le Combo où tu charges les numéros produits.

[Un ComboBox est l'association d'un TextBox et d'une liste : pense lors de comparaison directe que si tu as des nombres dans ta feuille, le TextBox renvoie une donnée String, à convertir pour comparer...]

Cordialement

Bonjour MFerrand,

Alors oui effectivement, cela fonctionne, merci de ton aide. Je vais aller jusqu'à mon objectif final et je reviens vers toi pour te montrer le résultat.

Cordialement