Renvoyer la valeur d'une ligne/colonne

Bonjour à tous, j'ai un petit soucis dans une de mes macros

 Private Sub Designation_Click()

   Valeur = Designation.Text
        With Worksheets("Base Mat")
            Y = Range("E").Find(Valeur, lookat:=xlWhole).Column
            X = Range("E").Find(Valeur, lookat:=xlWhole).Row

        Code.Caption = Cells(Y, X - 1).Value

    End With

End Sub

A partir d'une liste déroulante, un label renvoie la valeur de la colonne précédente de la base de données, j'ai donc besoin du numéro de ligne et de colonne de la valeur qui se trouve dans la liste déroulante mais j'ai pas mal de code erreur à chaque fois que je modifie mon code.

Si quelqu'un pourrait m’éclaircir un petit peu

Merci d'avance

Bonjour Peter, bonjour le forum,

Il semblerait que tu inverses la ligne et la colonne. Si Y est la colonne et X la ligne, tu devrais écrire :

Code.Caption = Cells(X, Y - 1).Value

À voir aussi Range("E:E") au lieu de Range("E")

Puis, pourquoi renvoyer la colonne d'une recherche dans la colonne E ? Ça sera toujours la colonne E...

Bonjour ThauThème,

J'ai l'erreur 91 qui apparaît, toujours sur la même ligne

Y = Range("E:E").Find(Valeur, lookat:=xlWhole).Column

J'avais auparavant ce code

  Valeur = Designation.Text
        With Worksheets("Base Mat").Columns("E:E")
        Set re = .Find(Valeur, lookat:=xlWhole)
        X = Cell(re).Column
        Y = Cell(re).Row

        Code.Caption = Cells(Y, X - 1).Value

    End With

Je ne sais pas qu'elle méthode est la meilleure mais je m'arrache bien les cheveux avec ce petit bout de code

Re,

Essaie comme ça :

Dim valeur As String
Dim re As Range
Dim X As Long
Dim Y As Long

valeur = Designation.Text
Set re = Worksheets("Base Mat").Cells.Find(valeur, , xlValues, xlWhole)
If Not re Is Nothing Then
    X = re.Column
    Y = re.Row
    Code.Caption = Cells(Y, X - 1).Value
End If

Ca marche niquel je te remercie

EDIT:

J'ai finalement un autre soucis, le code marche uniquement lorsque je suis sur la feuille "Base Mat"

Rajouter un With Worksheets ("Base Mat") ne suffit pas ? Que manque t'il ? D'autant que c'est exactement ce que j'ai besoin lorsque je suis sur la feuille "Base Mat"

Rechercher des sujets similaires à "renvoyer valeur ligne colonne"