[Catégorie modifiée VB6 -> VBA] Inputbox VBA [Résolu]

Signaler
-
cs_Le Pivert
Messages postés
6555
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 février 2020
-
Bonjour,
J'ai un inputbox où l'utilisateur doit entrer un numéro,
J'aimerais ensuite que mon curseur parcourt la colonne A (suite de numéro) jusqu'au numéro entrer par l'utilisateur....
Des idées?
Merci d'avance

1 réponse

Messages postés
6555
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
20 février 2020
95
Bonjour,
A mettre dans la feuille de recherche:

Option Explicit
Dim Rep
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rep = InputBox("Entrez le chiffre que vous voulez sélectionner.", "Rechercher chiffre", "1")
 If Rep = "" Then Exit Sub
 Cherche
End Sub
Sub Cherche()
  Dim PremCell As String
  Dim Cell As Range
  Set Cell = Cells.Find(Rep)
  If Not Cell Is Nothing Then
    PremCell = Cell.Address
    Do
      'MsgBox Cell.Address
      Range(Cell.Address).Select
      Set Cell = Cells.FindNext(Cell)
    Loop Until Cell.Address = PremCell
  End If
End Sub



@+Le Pivert