Création affichage dynamique

Bonjour,

Je souhaiterais faire un affichage dynamique à travers une macro.

Je m'explique dans une cellule j'ai une valeur par exemple "6".

Je souhaiterais qu'en cliquant sur le bouton de la macro mon curseur aille directement à la cellule contenant la valeur 6. En sachant que la valeur à rechercher se trouve entre A6 et A15.

Je ne peux malheureusement pas joindre le fichier car il est trop lourd.

J'espère quand même que ma demande est claire.

merci d'avance pour votre aide

Bonjour,

Au vu de votre image, votre tableau est un tableau structuré je pense.

Mettez ce code dans votre feuille. Pour ce faire --> click droite sur le nom de l'onglet, puis choisir "visualiser le code" et collez le code dans la fenêtre

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lig As Byte
If Not Intersect(Target, Range("C1")) Is Nothing Then
    On Error Resume Next
    lig = ListObjects(1).ListColumns(1).DataBodyRange.Find(Target, LookIn:=xlValues, lookat:=xlWhole).Row
    If lig > 0 Then
        Cells(lig, 1).Select
    End If
End If
End Sub

Le code agit sans bouton. Il vous suffit de changer la valeur en C1 pour que le code soit exécuté
Si vous chiffre est ailleurs que dans la cellule C1, changez la référence dans le ligne de code If not....

si ok -->

crdlt

Bonjour, Dan bonjour Elie

Au cas ou .

Sub Macro1()
With Range("A6:A15")
Set c = .Find(Range("D1").Value, LookIn:=xlValues)
If Not c Is Nothing Then
c.Select
End If
End With
End Sub

Merci à tous les deux pour vos réponses !! Je vous souhaite de bonnes fêtes de fin d'années :)