Macro qui remonte le document à chaque exécution

Bonjour à tous,

J'ai une macro qui se réinitialise mon fichier Excel et qui le fait revenir en haut de la page à chaque exécution de la macro.

Donc si je suis rendu à sélectionner des notes au milieu de mon document, la macro qui valide mon double clic fait remonter le document au début à chaque fois. on est donc obligé de faire redescendre le document à chaque double clic (selection de note).

Voici le document, vous comprendrez mieux en le faisant par vous-même.

Mot de passe : laurent

Et voici le code en question :

Private Sub ComboBox1_Change()

End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim i, ii
If Target.Columns.Count = 1 Then
i = Target.Row
ii = Target.Value
Set Notes = Range("E14:I36") ' plage où les notes existent
    CouleurVerte = vbGreen
    CouleurBlanche = vbWhite
    If Not Application.Intersect(Notes, Target) Is Nothing Then
        Cancel = True
        ActiveSheet.Protect Password:="laurent", UserInterfaceOnly:=True
        With Target
            If .Interior.Color = CouleurBlanche Then
                Range("E" & i & ":I" & i).Interior.Color = CouleurBlanche
                .Interior.Color = CouleurVerte
                Range("J" & i).Formula = "= " & ii & "*" & " D" & i & " /5"
            Else
                .Interior.Color = CouleurBlanche
                Range("J" & i).Value = ""
            End If
        End With
        Range("C6").Select
    End If
    End If
End Sub

C'est un détail j'en suis conscient mais j'aime les choses bien faite

Merci d'avance et bonne journée

bonjour,

si tu veux éviter le retour en C6 enlève cette instruction

Range("C6").Select

Yeeee! Merci ça fonctionne parfaitement!

Bonne journée