Pb range
Résolu
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
Configuration: Windows XP Firefox 3.0.5
4 réponses
-
ContributeurBonjour,
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?
-
ContributeurLa 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+ -
Et bien merci beaucoup ^^
