Renvoi à une cellule.

Bonjours a tous, voila mon probléme:

Je voudrais que quand j'entre une information dans une case, puis que je clique
sur aller, la macro me selectionne la cellule de la page voulue.

Il me faudrai pour deux critére different svp:
-le premier si je rentre une lettre il me selectionne le premier nom
commencant par cette lettre dans le tableau de gauche.
(C.f Aperçu)

-le deuxieme, si je rentre un numero. Par exemple je rentre 22 dans une case, il me selectionne la ligne qui comporte ce numero dans le tableau à gauche.
(C.f Aperçubis)

Merci de votre aide.

Bonjour,

As tu essayé quelque chose du genre pour le classeur Apreçu.xls

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Bouton1_QuandClic() Dim Ligne As Long Ligne = 5 If Cells(4, 7) = "" Then Exit Sub End If While Cells(Ligne, 2) <> "" If UCase(Left(Cells(Ligne, 2), 1)) <> UCase(Left(Cells(4, 7), 1)) Then Ligne = Ligne + 1 Else Cells(Ligne, 2).Select Exit Sub End If Wend End Sub

---

et pour Aperçubis:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub Bouton1_QuandClic() Dim Ligne As Long Ligne = 5 If Cells(4, 7) = "" Then Exit Sub End If While Cells(Ligne, 1) <> "" If Cells(Ligne, 1) <> Cells(4, 7) Then Ligne = Ligne + 1 Else Cells(Ligne, 1).Select Exit Sub End If Wend End Sub

---