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

macro excel

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion MICHAEL
  • 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
M

MICHAEL

XLDnaute Occasionnel
j'ai créer un fichier excel comportant 12 feuilles correspondant aux mois de l'année
J'ai incorporé dans ce fichier une macro
je souhaiterai que celle-ci se termine automatiquement sur la feuille correspondant au mois en cours

merci de votre aide
 
Trier par date Trier par votes
Re : macro excel

Re...

Voilà ta macro, réduite
Code: 
Sub Macro6()
Dim I As Byte
Dim vFeuil() As Variant
vFeuil = Array("JAN", "FEV", "MARS", "AVR", "MAI", "JUIN", "JUIL", "AOUT", "SEPT", "OCT", "NOV", "DEC")
For I = 0 To Month(Now)-1
   Sheets(vFeuil(I)).Range("A51") = Sheets(vFeuil(I)).Range("A52")
   Range("A36").Select
Next I
End Sub
@+Jean-Marie
 
Vote positif 0 Vote négatif
Re : macro excel

Bonjour JeanMarie
désolé, cela ne marche pas chez moi
je t'envoie la totalite de la macro à laquelle j'ai inclu la tienne afin que tu puisse me corriger
cordialement

Sub Macro6()

' Macro6 Macro
' Macro enregistrée le 09/08/2006 par
Dim I As Byte
Dim vFeuil() As Variant
Sheets("jan").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-54
Range("A36").Select
Sheets("fev").Select
ActiveWindow.SmallScroll Down:=42
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-66
Range("A36").Select
Sheets("MARS").Select
ActiveWindow.SmallScroll Down:=42
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-60
Range("A36").Select
Sheets("avr").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-66
Range("A36").Select
Sheets("MAI").Select
ActiveWindow.SmallScroll Down:=30
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-48
Range("A36").Select
Sheets("JUIN").Select
ActiveWindow.SmallScroll Down:=42
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-60
Range("A36").Select
Sheets("JUIL").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-48
Range("A36").Select
Sheets("AOUT").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-54
Range("A36").Select
Sheets("SEPT").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-54
Range("A36").Select
ActiveWindow.SmallScroll Down:=-12
Sheets("OCT").Select
ActiveWindow.SmallScroll Down:=42
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-72
Range("A36").Select
Sheets("NOV").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-72
Range("A36").Select
Sheets("DEC").Select
ActiveWindow.SmallScroll Down:=36
Range("A52").Select
Application.CutCopyMode = False
Selection.Copy
Range("A51").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-66
Range("A36").Select

vFeuil = Array("JAN", "FEV", "MARS", "AVR", "MAI", "JUIN", "JUIL", "AOUT", "SEPT", "OCT", "NOV", "DEC")
For I = 0 To Month(Now) - 1
Sheets(vFeuil(I)).Range("A51") = Sheets(vFeuil(I)).Range("A52")
Range("A36").Select
Next I
End Sub
 
Vote positif 0 Vote négatif
Re : macro excel

Bonjour

A part la sélection de la cellule A36 dans le feuilles autres que JAN, je ne vois pas.
Code: 
Sub Macro6()
Dim I As Byte
Dim vFeuil() As Variant
vFeuil = Array("JAN", "FEV", "MARS", "AVR", "MAI", "JUIN", "JUIL", "AOUT", "SEPT", "OCT", "NOV", "DEC")
For I = 0 To Month(Now) - 1
   Sheets(vFeuil(I)).Select
   Range("A51") = Range("A52")
   Range("A36").Select
Next I
End Sub
Si tu as encore des problèmes, explique tes soucis

@+Jean-Marie
 
Dernière édition:
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

B
  • Question Question
XL 2021 trouver date anniversaire dans calendrier pour recopie
Réponses
12
Affichages
352
dysorthographie
D
  • Question Question
XL 2021 Problème de macro
Réponses
5
Affichages
249
Didierpasdoué
D
  • Résolu(e)
XL 2016 Copie automatique de cellules à un endroit précis
Réponses
7
Affichages
230
AtTheOne
  • Résolu(e)
XL 2021 Code vba pour filtres automatiques sans le nom de l'onglet
Réponses
4
Affichages
200
sylvanu
B
  • Résolu(e)
XL 2019 Sur une feuille protégée effacer les cellules déverrouillées par macro
Réponses
6
Affichages
191
Nain porte quoi
P
  • Résolu(e)
XL 2021 Comment détecter la modification MANUELLE d'une cellule dans une feuille ?
Réponses
3
Affichages
333
PRy
P
B
  • Question Question
XL 2016 tableau suivi (planificateur)
Réponses
0
Affichages
130
berto
B
P
  • Résolu(e)
XL 2021 masquage de ligne selon condition
2
Réponses
17
Affichages
750
sylvanu
S
  • Résolu(e)
Microsoft 365 Calcul intérêt compte courant
Réponses
14
Affichages
465
sylvanu
P
  • Question Question
XL 2021 Macro de découpage suivant une clé
Réponses
14
Affichages
520
job75
B
  • Résolu(e)
XL 2019 Macro pour copier des cellules d'une feuille de barèmes
Réponses
6
Affichages
325
berru76
B
G
  • Question Question
Microsoft 365 Tableau
Réponses
5
Affichages
288
ALS35
A
B
  • Question Question
XL 2016 Macro "Double-clic + Entrée"
2
Réponses
16
Affichages
399
job75
F
  • Question Question
XL 2016 recherche données et collage
Réponses
4
Affichages
229
finarobert
F
F
Procédure de mise à jour et copie de plages de données
Réponses
5
Affichages
171
Cléa
J
  • Résolu(e)
Microsoft 365 Valeur cellule dans un macro
2
Réponses
17
Affichages
689
job75
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
  • 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
526
anthoYS
B
  • Question Question
XL 2016 problèmes de formules et liste déroulantes avec le planning
Réponses
1
Affichages
142
sylvanu
O
  • Question Question
XL 2019 Inscription club sportif
Réponses
11
Affichages
581
Gégé-45550
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…