[VBA] Récupérer la valeur d'une cellule sans select

Bonjour le forum !

Je bloque sur un truc un peu bête...

J'ai une TextBox, je cherche la valeur contenant la TextBox dans une plage de cellule puis j'aimerai récupérer la valeur de la 10ème cellule à droite de la cellule contenant la valeur de la TextBox.

J'y arrive aisément en tant normal, en utilisant des select, mais j'aimerai y parvenir sans.

J'ai essayé deux techniques qui ne fonctionnent pas :

    With Worksheets(2).Range("A6:A5000")
        Set trouve = .Find(TextBox2, LookIn:=xlValues).Offset(0, 10).Value
        MsgBox trouve
    End With

et

    With Worksheets(2).Range("A6:A5000")
        Set trouve = .Find(TextBox2, LookIn:=xlValues)
        Variable = trouve.Offset(0, 10).Value
        MsgBox Variable
    End With

J'ai bien évidemment déclaré Variable en tant que String auparavant.

Comment y parvenir ?

Merci d'avance !

Bonjour,

Avant d'aller plus loin :

1. Es-ce-que le Find ... tout seul fonctionne ?

2. Que contient ton TextBox ...?

Salut James007 et merci pour le coup de main !

Effectivement, je n'ai pas pris les choses dans le bon ordre, le Find seul ne fonctionne pas...

Du coup, je me suis dis que j'allais créer un fichier Excel pour faire office d'exemple, ce que j'ai fait, sauf que là, surprise ça fonctionne bel et bien

Sur mon fichier originel, mon bouton ne contient que ça :

 
 With Worksheets(2).Range("A6:A5000")
        Set trouve = .Find(TextBox2, LookIn:=xlValues)
        MsgBox trouve
        Variable = trouve.Offset(0, 10).Value
        MsgBox Variable
 End With

Et ça plante au niveau de la troisième ligne de code

  MsgBox trouve

En me laissant un beau message d'erreur.

J'ai essayé pleins trucs différents pour essayer de voir d'où vient le problème, en vain...

Dans ma TextBox j'ai l'ID d'un objet, et cette opération me permet de récupérer une caractéristique de cet objet.

Merci encore pour ton aide !

Re,

Du coup .. je ne sais plus si tu as résolu ton problème ...

Au fait, en termes de déclaration tu as bien :

Dim trouve As Range
Dim Variable As String

Re,

En soi le problème de base oui est résolu... J'arrive bien à récupérer la valeur d'une cellule sans sélect, la deuxième proposition de code que j'ai fait est opérationnel.

Mais un nouveau problème est apparu avec cette résolution ! Cette fichu erreur 91 que je n'arrive pas à résoudre. Et j'ai bel et bien déclaré "trouve" et "Variable", sans changement.

J'ai toujours un problème sur :

 MsgBox trouve

Re,

Puisque tu as défini ta variable As Range ...

As-tu essayé d'ajouter

.Value

...?

Yes c'est bon ça marche !

Merci beaucoup !

Baboutz a écrit :

Yes c'est bon ça marche !

Merci beaucoup !

Content que tu aies pu résoudre ton problème ...