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

- - Dernière réponse : cs_Le Pivert
Messages postés
6428
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 décembre 2019
- 6 nov. 2012 à 11:59
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
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
6428
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
10 décembre 2019
91
3
Merci
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

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 200 internautes nous ont dit merci ce mois-ci

Commenter la réponse de cs_Le Pivert