Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème avec Private Sub...

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Christian0258

XLDnaute Accro
Bonjour à tout le forum,
Je vous souhaite le meilleur pour cette nouvelle Année.

Je souhaiterais votre aide pour ce problème de "cohabitation" avec Private Sub...
si je laisse Option Explicit ça plante sur C variable non définie
si j'enlève Option Explicit la macro de JCGL ne fonctionne pas ?

Option Explicit

Private Sub ToggleButton1_Click() 'auteur JCGL
ActiveSheet.Unprotect
Application.ScreenUpdating = 0
If ToggleButton1 = False Then
ToggleButton1.Caption = "Afficher tous les jours"
Call MasqueEssai
Else
ToggleButton1.Caption = "Afficher les jours ouvrés"
Call AfficheEssai
End If
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Private Sub Worksheet_Activate() 'auteur Boisgnontier
ActiveSheet.Unprotect ' ajouter par moi ?
For Each C In [ZonePlan1]
C.Interior.ColorIndex = xlNone
On Error Resume Next
C.Interior.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Interior.ColorIndex
C.Font.ColorIndex = [Couleurs].Find(C.Value, LookAt:=xlWhole).Font.ColorIndex ' ajouter par moi ?
Next C
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' ajouter par moi ?
End Sub
 
Trier par date Trier par votes
Re : Problème avec Private Sub...

Bonjour, Je ne vois pas vraiment où la macro de JC pourrait poser pb, par contre déclares la variable c et vérifies
Code: 
Private Sub Worksheet_Activate() 'auteur Boisgnontier
Dim c As Range
A+
kjin
 
Vote positif 0 Vote négatif
Re : Problème avec Private Sub...

Salut Christian0258 et le forum
Bonne et heureuse année 2011
Utilise les balises de code (# en mode avancé)

Option Explicit : En tête de module, oblige à déclarer les variables utilisées sur tout le module. Ça permet d'éviter les fautes de frappe.

Code: 
Private Sub Worksheet_Activate() 'd'après une macro de Boisgontier
ActiveSheet.Unprotect ' ajouter par moi ?
For Each C In [ZonePlan1]
     C.Interior.ColorIndex = xlNone
     C.Font.ColorIndex = xlNone
     On Error Resume Next
     C.Interior.ColorIndex = [Couleurs].Find(C, LookAt:=xlWhole).Interior.ColorIndex
     C.Font.ColorIndex = [Couleurs].Find(C.Value, LookAt:=xlWhole).Font.ColorIndex ' ajouter par moi ?
Next C
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True ' ajouter par moi ?
End Sub
Attribuer une macro à une personne, alors qu'on l'a modifiée...
Ne pas déclarer ses variables impose à Excel de le faire... et suivant la loi de Murphy, faut pas s'étonner du résultat !
Juste le code, c'est pas la meilleure façon d'avoir ce qu'on veut : on est obligé de comprendre l'algorithme pour dépanner, est si c'est pas le bon...
Vu le code, il faut déclarer C en plage de cellules (Dim C as Range)
À tout hasard, vérifie les autres "variables" :
- ZonePlan1 doit être une plage nommée
- Couleurs doit être une plage nommée
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Problème avec Private Sub...

Re, le forum, kjin,

Merci, kjin, pour ton aide.
BIEN ça ne plante plus.
Mais cette macro ne fait pas le boulot ?

Private Sub Worksheet_Activate() 'auteur Boisgnontier
Dim c As Range
ActiveSheet.Unprotect
For Each c In [ZonePlan1]
c.Interior.ColorIndex = xlNone
On Error Resume Next
c.Interior.ColorIndex = [Couleurs].Find(c, LookAt:=xlWhole).Interior.ColorIndex
c.Font.ColorIndex = [Couleurs].Find(c.Value, LookAt:=xlWhole).Font.ColorIndex
Next c
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

Peux-tu me dire.
Bien à toi,
Christian
 
Vote positif 0 Vote négatif
Re : Problème avec Private Sub...

Salut Christian0258 et le forum
BIEN ça ne plante plus.
Cliquez pour agrandir...
Faux ! Tu as l'instruction "On Error Resume Next" en cas d'erreur, aller à la ligne suivante => Ça efface les erreurs détectées par excel et il ne t'avertit pas. Comme c'est une macro modifiée, je ne peux être sûr de moi, mais ça m'étonnerait fort que Boisgontier l'ai mise à l'intérieur d'une boucle, sans relancer la gestion des erreurs (On error Goto 0)
Mais cette macro ne fait pas le boulot ?
Cliquez pour agrandir...
1 - c'est une question ? Et qu'est-ce qu'elle est supposée faire (Lire moi poste précédent)?
A+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
3 K
Dranreb
  • Question Question
XL 2021 Problème ouverture fichier sur feuille protégée
Réponses
6
Affichages
844
treza88
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
867
dadu35
D
  • Question Question
XL 2021 ActiveWorkbook.Save avant Private Sub Workbook_Open()
3 4 5
Réponses
62
Affichages
4 K
Usine à gaz
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
892
bsalv
B
  • Résolu(e)
XL 2021 touches Ctrl+R pour revenir
Réponses
4
Affichages
644
TooFatBoy
O
  • Question Question
XL 2019 Je veux afficher mes données dans ma Listbox1 avec l'entete de ma Base donnée et fait la recherche sans que cela derange l'entete.
Réponses
6
Affichages
1 K
ChTi160
F
  • Résolu(e)
XL 2021 fermeture du classeur après apple d'un userform d'un autre classeur ouvert
Réponses
2
Affichages
459
farid
F
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
779
loreak
L
A
  • Résolu(e)
XL 2019 Confirmer la modification d'une cellule avant de la protéger en suite
Réponses
10
Affichages
1 K
arnoldbrice19
A
A
  • Question Question
XL 2010 Correction macro supprimant les lignes avec '' 0 '' en début de tableau
Réponses
2
Affichages
573
Acritas
A
O
  • Question Question
XL 2019 protection de feuille par macro
Réponses
3
Affichages
801
Deadpool_CC
U
  • Question Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
754
un internaute
U
  • Question Question
Microsoft 365 Explorateur d'objets vba ouverture intempestive (pour moi)
2 3 4
Réponses
45
Affichages
4 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…