pb range Résolu/Fermé

Question

Bonjour,
Je voudrais que la valeur de ma textbox (NomAuteurBox) soit la valeur contenue dans la cellule a droite de celle ou j'ai obtenue le résultat de la recherche:

Private Sub Rechercher_Click()
    
    NomLivreTrouvéBox.Value = Range("A2:A999").Find(NomLivreBox.Value)
    NomAuteurTrouvéBox.Value = Range(NomLivreBox.Value).Cells(0, 1)
    
   
End Sub

merci d'avance

lermite222 · Answer

Bonjour,
Private Sub Rechercher_Click()
Dim Lig As Long
    Lig = Range("A2:A999").Find(NomLivreBox.Value).Row
    NomLivreTrouvéBox.Value = Cells(Lig, 1)
    NomAuteurTrouvéBox.Value = Cells(Lig, 2)
End Sub

A+

Sashimi · Answer

Merci beaucoup, mais pourriez vous m'expliquer la syntaxe afin que je comprenne le comment avez vous fait?

lermite222 · Answer

La 1ère ligne, à la place de rechercher la donnée recherche la ligne où la donnée à été trouvée.
A partir de cela, ont connaît la ligne et il est facile de pouvoir se situer dans le classeur.
A+

Sashimi · Answer

Et bien merci beaucoup ^^

Pb range

4 réponses

Discussions similaires