Discussion :

[IHO17]

Bonjour à tous,

J'ai developpé un petit outil qui permet aux utilisateurs de selectionner la feuille qui correspond à leur profil (par pays, métier, etc. Les utilisateurs doivent cocher des checkbox et selon leurs choix, des feuilles apparaissent ou disparaissent.

Mon problème est que parfois les utilisateurs effacent par mauvaises habitudes les onglets qui ne les regardent pas.

Je cherche à leur interdire la suppression de ces feuilles sans arreter la macro. En effet, j'ai essayé de protéger la structure de mon classeur, celà a fait bloquer ma macro.

J'ai cherché un moyen pour griser la commande supprimer mais honnetement je sais pas faire ....


Pouvez-vous m'aider svp?

Cdt
Iho

[joe.levrai]

Bonjour,

ceci peut-être ?
https://www.developpez.net/forums/d7...ion-d-feuille/

[IHO17]

Bonsoir Joe et le Forum,

J'ai essayé d'appliquer cette solution mais elle bloque ma macro, à savoir quand l'utilisateur coche sur la checkbox et qu'il appuit sur le bouton pour faire apparaitre la feuille adéquate et bien rien ne se passe.... :/

Y a il une solution?

Merci pour votre réflexion.

CDT

[jeanmidudu]

Bonjour,

Cela me semble étrange. Pourrait-on avoir le code de la macro "bloquée"?

Cdt,

[IHO17]

Oui bien sur! et Merci pour votre réactivité!

Voilà le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Private Sub Btn_Template_Click()
 
Dim Wks As Worksheet
Dim cbx As CheckBox
 
Application.DisplayAlerts = False
Application.ScreenUpdating = False
 
 
If cbx_FRA = True Then
wks_FRA.Visible = xlSheetVisible
Sheets("Comments_ACTUAL_FRA").Select
Else
wks_FRA.Visible = xlSheetVeryHidden
End If
 
If cbx_ITA = True Then
wks_ITA.Visible = xlSheetVisible
Sheets("Comments_ACTUAL_ITA").Select
Else
wks_ITA.Visible = xlSheetVeryHidden
End If
 
If cbx_GBR = True Then
wks_GBR.Visible = xlSheetVisible
Sheets("Comments_ACTUAL_GBR").Select
Else
wks_GBR.Visible = xlSheetVeryHidden
End If
 
If cbx_DEU = True Then
wks_DEU.Visible = xlSheetVisible
Sheets("Comments_ACTUAL_DEU").Select
Else
wks_DEU.Visible = xlSheetVeryHidden
End If
 
If cbx_NLD = True Then
wks_NLD.Visible = xlSheetVisible
Sheets("Comments_ACTUAL_NLD").Select
Else
wks_NLD.Visible = xlSheetVeryHidden
End If
 
Application.DisplayAlerts = True
End Sub

[parmi]

Bonjour,

Remet ton ScreenUpdating à True à la fin.
Ça pourrait peut-être aider...