XL 2019 Modifier une macro pour la feuille active

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion berru76
  • 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
B

berru76

XLDnaute Occasionnel
Bonjour
au lieu de faire la même macro pour chaque feuille je voudrais faire une macro qui ne prendrai que la feuille active
j'aimerai un modèle car il y a 5 macros par feuille et 50 feuille
Exemple cette macro
Merci
Sub RazscoresF96()
'
' RazscoresF96 Macro
'

'
Range("AI4:AI51,AM4:AM51,AQ4:AQ51,AU4:AU51,AY4:AY51,BC4:BC51,BG4:BG51,BK4:BK51" _
).Select
Range("BK4").Activate
Selection.ClearContents
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Range("A3").Select
End Sub
 
Trier par date Trier par votes
Bonjour
au lieu de faire la même macro pour chaque feuille je voudrais faire une macro qui ne prendrai que la feuille active
Cliquez pour agrandir...
Je ne comprends pas la question, dès lors que la non spécification d'une feuille a pour effet que les instructions de la macro concernent précisément la feuille active.
Il n'est par contre pas improbable que ton besoin, autre, ait mal été exposé et ne peux que t'inviter, le cas échéant, à l'exposer à nouveau de manière précise et détaillée.
 
Vote positif 0 Vote négatif
Bonjour le fil, berru76, kingfadhel, jmfmarques

Mon interprétation de la question
Une macro paramétrée
(avec deux exemples d'utilisation)
(A tester bien évidemment sur une copie du fichier original)
VB: 
Sub test_1()
Raz_Scores Feuil1 'ici on traite la feuille qui a pour codename: Feuil1
Raz_Scores Sheets("Feuil2") 'ici on traite la feuille nommée Feuil2
End Sub
Sub test_2() 'ici on traite toutes les feuilles du classeur actif
Dim ws As Worksheet
For Each ws In Worksheets
Raz_Scores ws
Next
End Sub
Private Sub Raz_Scores(Feuille As Worksheet)
Dim i&
For i = 35 To 63 Step 4: Feuille.Cells(4, i).Resize(48) = "": Next
End Sub
 
Vote positif 0 Vote négatif
Bonjour

en final sur les 6 macros 4 fonctionnent directement sur la la feuille active vu que c'est les mêmes cellules
Sur les 2 qui restent
sur une : problème mineur imprime 1 page vide
sur l' autre un classement avec tri mais chaque feuille avec un nombre de joueurs différents
peut on ajouter : que les cellules actives pour la feuille a imprimer/pour supprimer la feuille blanche
peut on ajouter : que les cellules actives pour la feuille avec tri/car si 40 joueurs résultats faux cela prend en compte les cellules vides
ou doit on faire une macro pour chaque feuille
Merci a vous

la 1/

Sub Imprimerlesresultats()
'
' Imprimerlesresultats Macro
'

'
ActiveSheet.Unprotect
Range("BS2:BV99").Select
Selection.PrintOut Copies:=1, Collate:=True
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 47
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 38
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 34
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 31
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 37
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 35
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 33
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 28
ActiveWindow.ScrollRow = 27
ActiveWindow.ScrollRow = 20
ActiveWindow.ScrollRow = 17
ActiveWindow.ScrollRow = 8
ActiveWindow.ScrollRow = 5
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
Range("A3").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub

La 2 feuille 96 joueurs /

Sub Triclassement()
'
' Triclassement Macro
'

'
ActiveSheet.Unprotect
Range("AB3:AD99").Select
Selection.Copy
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 27
ActiveWindow.ScrollColumn = 28
ActiveWindow.ScrollColumn = 30
ActiveWindow.ScrollColumn = 32
ActiveWindow.ScrollColumn = 33
ActiveWindow.ScrollColumn = 36
ActiveWindow.ScrollColumn = 37
ActiveWindow.ScrollColumn = 39
ActiveWindow.ScrollColumn = 40
ActiveWindow.ScrollColumn = 41
ActiveWindow.ScrollColumn = 42
ActiveWindow.ScrollColumn = 43
ActiveWindow.ScrollColumn = 44
ActiveWindow.ScrollColumn = 45
ActiveWindow.ScrollColumn = 46
ActiveWindow.ScrollColumn = 48
ActiveWindow.ScrollColumn = 50
ActiveWindow.ScrollColumn = 54
ActiveWindow.ScrollColumn = 55
ActiveWindow.ScrollColumn = 57
ActiveWindow.ScrollColumn = 58
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 60
ActiveWindow.ScrollColumn = 61
ActiveWindow.ScrollColumn = 62
ActiveWindow.ScrollColumn = 63
ActiveWindow.ScrollColumn = 64
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 66
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 68
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 71
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 68
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 66
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 64
ActiveWindow.ScrollColumn = 63
ActiveWindow.ScrollColumn = 62
ActiveWindow.ScrollColumn = 61
ActiveWindow.ScrollColumn = 60
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 58
ActiveWindow.ScrollColumn = 57
Range("BO3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("96").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("96").Sort.SortFields.Add2 Key:=Range("BO4:BO99"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("96").Sort.SortFields.Add2 Key:=Range("BP4:BP99"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("96").Sort
.SetRange Range("BO3:BQ99")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A3").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _
:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _
AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
End Sub
 
Vote positif 0 Vote négatif
Testé me donne
sub fonction non défini dans les deux cas sur macro raz scores
oublier de préciser pour cela m'a donné l'occasion de voir que même cellule même suppression sur toute les feuilles
2 autres macro masquer ou afficher des cellules fonctionnent sur toute les feuilles actives de 96 a 40
ne me reste plus que les 2 macros du message 5 a améliorer pour éviter 46 macros supplémentaires
Merci
 
Vote positif 0 Vote négatif
Re

Bah teste simplement sur un fichier de test créé pour ce test
(ce que j'ai fait)
Donc copie tout ce code dans un classeur vierge
VB: 
Sub MaisOuiCaMarche()
Sheets.Add(, Sheets(Sheets.Count)).Name = "TEST"
Sheets("TEST").Range("AI1:BK177") = "abc"
Sheets("TEST").Range("AI1").Select
MsgBox "Lancer le test d'effacement?", vbQuestion + vbOKOnly
Raz_Scores Worksheets("TEST")
End Sub
Private Sub Raz_Scores(Feuille As Worksheet)
Dim i&
For i = 35 To 63 Step 4: Feuille.Cells(4, i).Resize(48) = "": Next
End Sub
On est d'accord?
Cela fonctionne, non! 😉
 
Vote positif 0 Vote négatif
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

Syracoti
  • Résolu(e)
XL 2016 Changer de feuille dans une macro
2
Réponses
28
Affichages
3 K
Staple1600
Staple1600
Ferbank
  • Question Question
XL 2019 modifier une macro
Réponses
2
Affichages
1 K
Ferbank
Ferbank
P
  • Question Question
Microsoft 365 Sélectionner une cellule hors du champ affiché de la feuille active sans qu'elle s'affiche
Réponses
4
Affichages
758
Deadpool_CC
Deadpool_CC
P
  • Résolu(e)
Microsoft 365 Sélectionner une cellule hors champ visible de la feuille active
Réponses
10
Affichages
859
TooFatBoy
TooFatBoy
F
  • Question Question
Microsoft 365 Macro pour chercher un code client dans une autre feuille
Réponses
2
Affichages
690
Hasco
Hasco
S
  • Question Question
Microsoft 365 Sélectionner la même cellule que la cellule active dans une autre feuille
Réponses
2
Affichages
1 K
ShrekL
S
A
  • Question Question
XL 2010 adapter une macro sur la feuille active
Réponses
11
Affichages
907
soan
S
S
  • Résolu(e)
Microsoft 365 Bug de macro pour effacer une ligne
Réponses
4
Affichages
1 K
ShrekL
S
A
  • Question Question
XL 2010 Créer une feuille excel pour colorier des mots précis
Réponses
9
Affichages
826
soan
S
B
  • Résolu(e)
XL 2019 Modifier une macro aller a la feuille pour éviter erreur 9 si la feuille demandé n' existe pas
Réponses
10
Affichages
1 K
berru76
B
D
  • Question Question
XL 2013 Créer une Macro pour mettre en surbrillance toute la Ligne/Colonne
Réponses
12
Affichages
2 K
MACx
M
A
  • Question Question
Microsoft 365 Problème, ma macro change la plage de cellule dans une autre feuille
Réponses
6
Affichages
2 K
akira21
A
N
  • Question Question
Autres Code macro verrouillage / déverrouillage feuille et classeur
Réponses
1
Affichages
1 K
Nonomix
N
B
  • Résolu(e)
XL 2016 Sur une macro avec code de protection de la feuille comment autoriser la case "modifier les objets
Réponses
2
Affichages
1 K
berru76
B
B
  • Résolu(e)
XL 2013 Concours / améliorer une macro pour qu'une seule feuille reste visible et masque les autres feuilles du dossier pour revenir a un concours initial
Réponses
4
Affichages
561
berru76
B
ymanot
  • Question Question
macro pour copier une ligne d'une feuille a lautre selon un critere défini
Réponses
4
Affichages
1 K
ymanot
ymanot
donpopo
  • Question Question
En fonction de la feuille active sélectionnée, activer une autre feuille liée
Réponses
7
Affichages
2 K
phlaurent55
phlaurent55
P
  • Question Question
Demande d'aide pour renommer une feuille créer par une macro
Réponses
9
Affichages
4 K
Polus Cacahus
P
M
  • Question Question
Macro pour appliquer DEUX formules sur les lignes actives d'une feuille
Réponses
2
Affichages
662
MARSEILLE13150
M
F
  • Question Question
XL 2013 Perte des liens macro après plusieurs copies de la feuille
Réponses
0
Affichages
824
fred2705
F
Retour