Discussion :

[fibule38]

bonsoir,

Je prends gout à votre site et surtout aux réponses.
J'y ai trouvé une macro pour ne pas pouvoir quitter une feuille sans avoir saisi une cellule, mais comment faire pour ce cette macro ne s'exécute dans des onglets portant tous un nom commençant par client (car ce blocage se fait aussi sur d'autre onglet de reporting )
Est il aussi possible de ne pas pouvoir passer à un autre onglet clientxx sans avoir exécuter une macro (qui copie des données dans un autre onglet récapvente) et qui s'effectue en cliquant sur un gros bouton ?

Merci d'avance pour vos judicieuses réponses.

Cordialement

[Philippe Tulliez]

Bonjour,
Puisque tu n'affiches pas la procédure que tu as trouvée, on suppose qu'il s'agit de la procédure événementielle Worksheet_Deactivate et bien à la place de cette procédure, tu utilises la procédure

Exemple 1 pour exécuter une procédure en quittant la feuille dont le nom comment par Client

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 With Sh
  If Left(LCase(Trim(.Name)), 6) = "client" Then
   ' Code de la procédure
   MsgBox "Procédure"
  End If
 End With
End Sub

Exemple 2 On lance une procédure mais à condition que la cellule A1 de la feuille que l'on a quittée soit rouge. Sinon on réactive cette feuille.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
 With Sh
  If Left(LCase(Trim(.Name)), 6) = "client" Then
   If .Range("A1").Interior.Color <> vbRed Then
    MsgBox "La cellule A1 n'est pas rouge"
    .Activate: Exit Sub
   End If
   ' Code de la procédure
   MsgBox "Lancement de la procédure"
   '
   End If
 End With
End Sub

[Invité]

Bonjour,
La barre de défilement qui te permet de naviguer dans la page Excel, tu la fait glisser devant le nom des onglet.

Je suppose qu'il est possible de l verrouiller mais là???

[fibule38]

Bonjour et merci à tous les deux

Bonne journée

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWindow.DisplayWorkbookTabs = False