Positionnement automatique du curseur d'après une donnée Fermé

Question

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

Hey_Tikal_Informatique · Answer

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

Mike-31 · Answer

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)

Mike-31 · Answer

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

Positionnement automatique du curseur d'après une donnée

3 réponses

Discussions similaires