Pb range

Résolu/Fermé

Sashimi - 28 janv. 2009 à 14:56
Sashimi - 28 janv. 2009 à 16:39

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

A voir également:

4 réponses

Réponse 1 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
28 janv. 2009 à 16:27

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+

Réponse 2 / 4

Sashimi
28 janv. 2009 à 16:31

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

Réponse 3 / 4

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
28 janv. 2009 à 16:37

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+

Réponse 4 / 4

Sashimi
28 janv. 2009 à 16:39

Et bien merci beaucoup ^^

Discussions similaires

input signal out of range

VBA : Range avec références variables..

comment désactiver out of range

[Ecran tft] "out of range au démarrage

VBA Methode range a échouée

Discussions similaires

Newsletters