Centrer une cellule dans l'ecran

Bonsoir

Dans mon fichier quand j'appelle une cellule exemple billet de 5 euros

est il possible que la cellule apparaisse au centre de l’écran ,plutôt due de scroller pour aller la chercher

Merci pour votre aide

Bonjour,

Votre macro modifiée

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim nom$, sh As Shape    
    Application.ScreenUpdating = False
    If Not Application.Intersect(Target, Range("A5,B5,c5,D5")) Is Nothing Then
        If Target.Count > 1 Then Exit Sub
        If Sheets("Cadeaux").Shapes.Count = 0 Then Exit Sub
        Cancel = True
        nom = Target.Name.Name
        With Sheets("Cadeaux")
            .Activate
            For Each sh In .Shapes
            Next sh
                If sh.Name Like "Image " & nom Then
                    sh.Visible = True
                    .Shapes.Range(Array("Image " & nom)).Select
                    Selection.ShapeRange.Left = .Range("B2").Left + 30
                Else
                    sh.Visible = False
                End If
        End With
    End If
End Sub

Chaque image est positionnée sur la cellule B2 de la feuille "Cadeaux".

Cdlt

Bonjour Arturo83

Merci pour ton aide

J'ai fait un essai j'ai un beug sur cette ligne

If sh.Name Like "Image " & nom Then

Bonjour,

le "Next Sh" est mal placé, il devrait être à la suite du bloc des "If", juste avant le "End With".

@ bientôt

LouReeD

Ok, j'ai déplacé malencontreusement le Next Sh , il faut le ramener avant le End With.

Ps: Trop tard, LouReed est passé par là.

Merci à tous les 2

Affaire résolu

Bon WE