Pb range
Résolu
Sashimi
-
Sashimi -
Sashimi -
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
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
4 réponses
Bonjour,
A+
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+
Merci beaucoup, mais pourriez vous m'expliquer la syntaxe afin que je comprenne le comment avez vous fait?