Positionnement automatique du curseur d'après une donnée
Mike-31 Messages postés 18405 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
Je cherche à positionner automatiquement le curseur dans une cellule après avoir saisi un chiffre dans une autre cellule prédéfinie.
Je m'explique : en A1, je saisis un numéro et je souhaite qu'une fois le numéro saisi, le curseur aille directement se positionner dans la cellule où elle aura trouvé ce même numéro
Ex : A1 = 12500
A5 = 12498
A6 = 12499
A7 = 12500
Mon curseur devra se positionner automatiquement en A7
Merci pour votre aide
Windows / Firefox 98.0
- Positionnement automatique du curseur d'après une donnée
- Réponse automatique thunderbird - Guide
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Logiciel de sauvegarde automatique gratuit - Guide
- Réponse automatique gmail - Guide
- Sommaire automatique word - Guide
3 réponses
Bonjour j ai trouvé ça https://excel-downloads.com/threads/deplacement-curseur-en-fonction-dun-resultat.200337/?amp=1 sur un forum ça pourrait vous aider je pense il faudrait juste adapté un bout du code a votre cellule si jamais je regarderai pour vous l adapté
Cordialement
Bonjour,
en supposant que tu déclenches la macro avec un bouton
Private Sub CommandButton1_Click()
Set x = Cells.Find([A1], , xlValues, xlWhole, , , False) ' --- recherche la valeur X
If Not x Is Nothing Then
x.Select ' -------------------------------------------------- sélectionne la première valeur trouvée
End If
End Sub
Tu peux également déclencher le code à partir d'une liste de validation, également à partir du changement de valeur en A1 etc ...
Private Sub Worksheet_Change(ByVal Target As Range)
Re,
Allez un petit coup de pouce, valeur cible comme dans ta demande et recherche la valeur dans tout l'onglet
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, [A1]) Is Nothing Then
Set x = Cells.Find([A1], , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Select
End If
End Sub
