Re : Bloquer l'ordre des onglets dans classeur
Bonjour à tous,
Je suis d'accord sur le principe d'utiliser Les CodeName des feuilles si l'ordre des feuilles est un facteur possible d'erreur.
Il est aussi possible d'utiliser une macro évènementielle qui rétablit l'ordre des feuilles dès que la sélection change dans l'une quelconque des feuilles du classeur.
Macro à placer dans le module ThisWorkBook :
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim ws As Worksheet, i As Byte, j As Byte
For i = 1 To Sheets.Count
If Sheets(i).CodeName <> "Feuil" & i Then
For j = 1 To Sheets.Count
If Sheets(j).CodeName = "Feuil" & i Then
Sheets(j).Move before:=Sheets(i)
Exit For
End If
Next j
End If
Next i
End Sub