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

Application d'une macro sur toutes les pages de mon classeur

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion NANARO
  • Date de début Date de début

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
N

NANARO

Guest
Bonjour,
J'ai réussi (avec l'aide decertains d'entre vous) a realiser une macro basique sous Excel.
Elle a marché pour une feuille.
J'ai essayé de la copier dans les autres feuilles et , bizarrement, ca marche pas

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Row < 67 And Target.Row > 4 Then
Select Case Int((Target.Row - 4) / 7)

Case 0
Target.Interior.ColorIndex = 3
Case 1
Target.Interior.ColorIndex = 6
Case 2
Target.Interior.ColorIndex = 4
Case 3
Target.Interior.ColorIndex = 18
Case 4
Target.Interior.ColorIndex = 5
Case 5
Target.Interior.ColorIndex = 9
Case 6
Target.Interior.ColorIndex = 32
Case 7
Target.Interior.ColorIndex = 8
Case 8
Target.Interior.ColorIndex = 7
Case 9
Target.Interior.ColorIndex = 0


End Select
Cancel = True
End If
End Sub


Voila la ligne de code, l'¿idée est de l'appliquer dans 9 des 10 pages de mon classeur
 
Trier par date Trier par votes
Re : Application d'une macro sur toutes les pages de mon classeur

Bonsoir




Mets ce code dans ThisWorkBook

et toutes les feuilles du classeur seront concernées

Code: 
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
If ActiveSheet.Index = 1 Then Exit Sub
If Target.Row < 67 And Target.Row > 4 Then
Select Case Int((Target.Row - 4) / 7)

Case 0
Target.Interior.ColorIndex = 3
Case 1
Target.Interior.ColorIndex = 6
Case 2
Target.Interior.ColorIndex = 4
Case 3
Target.Interior.ColorIndex = 18
Case 4
Target.Interior.ColorIndex = 5
Case 5
Target.Interior.ColorIndex = 9
Case 6
Target.Interior.ColorIndex = 32
Case 7
Target.Interior.ColorIndex = 8
Case 8
Target.Interior.ColorIndex = 7
Case 9
Target.Interior.ColorIndex = 0


End Select
Cancel = True
End If
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Application d'une macro sur toutes les pages de mon classeur

Merci, mais j'ai deja essayé.
Deux choses, la premiere je souhaite que la premiere feuille ne soit pas incluse dans cette ligne de code, deuxieme chose, la macro refuse de s'appliquer, ni excel, ni VBA ne me la reconnaisse comme une macro
 
Vote positif 0 Vote négatif
Re : Application d'une macro sur toutes les pages de mon classeur

Re

Tu es sur ?
Tu as remarqué la différence ?

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Et le code doit être dans ThisWorkbook (pas dans les feuilles, ni dans un module)

et bien sur tu dois effacer le code :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
présent dans chaque feuille.


J'ai modifié le code de mon précédent message.

(et cela fonctionne )
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Application d'une macro sur toutes les pages de mon classeur

Oui, alors maintenant, comment faire pour que ce soit detecter comme une macro et non pas comme... rien du tout!
Je n'arrive aps a executer la macro!!
Et lorsque j y arriverai, j'aimerai que cette macro ne soit aps appliquer sur la premiere feuille
 
Vote positif 0 Vote négatif
Re : Application d'une macro sur toutes les pages de mon classeur

Re


Je répète ce que je dis: le code fonctionne (je l'ai testé)

Et tu as toutes les indications dans mes précédents messages.

Il suffit de les appliquer à la lettre.

EDITION: pour t'en convaincre, regardes cette pièce jointe
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Application d'une macro sur toutes les pages de mon classeur

Bon ca y est ca marche, merci!!
Désolé, je ne recevais qu'une partie de tes messages et mon PC refusait betement d'applique lrs macros
Petit probleme cependant, comment je fais pour que cette maccro ne s'applique pas sur la premiere page?
 
Vote positif 0 Vote négatif
Re : Application d'une macro sur toutes les pages de mon classeur

Re


C'est déjà le cas !!

Elle ne s'applique pas sur la première page.


Tu as essayé ma pièce jointe ??

Avec le code tel quel, la feuille d'index 1 n'est pas concerné par le code.
 
Vote positif 0 Vote négatif
Re : Application d'une macro sur toutes les pages de mon classeur

Ok, merci,
Dans ta ligne de code tu n'avais pas mis
If ActiveSheet.Index = 1 Then Exit Sub
Mais je l'ai retrouvé dans ton exemple.
Merci beaucoup
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

M
  • Résolu(e)
Microsoft 365 Erreur inexplicable
Réponses
3
Affichages
230
Marie L
M
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
617
un internaute
U
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
  • Suggestion Suggestion
Date et heure fonction férié pour faire suite a la fonction paques avec l'ago de meuss méthode butcher
Réponses
2
Affichages
328
patricktoulon
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
873
piga25
  • Question Question
XL 2016 annulation ou désactivation de macro
2
Réponses
27
Affichages
1 K
job75
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
534
NONO14
N
U
  • Question Question
Autres [RÉSOLU] Faire afficher ligne sur tout le classeur par double clic et la faire maquer à l’enregistrement
Réponses
11
Affichages
1 K
un internaute
U
  • Question Question
XL 2019 [VB] Organisation et gestion du ménage et de l'entretien global (à améliorer)... Comment procéder ?
Réponses
13
Affichages
523
anthoYS
U
  • Question Question
Autres [RÉSOLU] Pour faire afficher colonne F par double clic dans tout le classeur
Réponses
3
Affichages
622
vgendron
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
2 K
Gestionnaire_rh
G
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
GClaire
G
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
889
candido57
C
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
734
kiki29
  • 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
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
550
sylvanu
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
820
KRUG WOO
K
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
1 K
bérylion
B
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…