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

Aide macro

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

desatan

XLDnaute Occasionnel
Bonjour,

Je viens de créer une macro en passant par enregistrer.
Je sais qu'il y a moyen de l'écrire de façon plus simple et plus petite mais je ne sais pas le faire.
Quelqu'un peut m'aider ?
Je vous copie-colle ma macro actuelle. Dans cette macro, je fais du copier-collage spécial valeur de la feuille2 à la feuille1
Merci par avance

Sub JANVIER()
'
' JANVIER Macro
'

'
Sheets("Feuil2").Select
ActiveWindow.SmallScroll Down:=-21
Range("D2:I2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("D2:I2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
Range("D6:I25").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("D6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Feuil2").Select
Range("D27:I53").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Feuil1").Select
Range("D27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
End Sub
 
Trier par date Trier par votes
Re : Aide macro

Bonjour

Pour simplifier la procédure, il faut supprimer le couple "select selection"
Sheets("Feuil1").Select
Range("D6").Select
Selection.Paste

Sheets("Feuil1").Range("D6").Paste.....

ActiveWindow.SmallScroll Down:=-21 cette ligne est à supprimer, elle correspond au déplacement du curseur.

Auparavant il faut faire une copie du fichier et tester au fur et à mesure des suppressions

JP
 
Vote positif 0 Vote négatif
Re : Aide macro

Bonjour,

tout comme JP14 (que je salue😀) ou
Code: 
 Sheets("Feuil1").Range("D2:I2").Value = Sheets("Feuil2").Range("D2:I2").Value

Où PlageDestination.Value = PlageSource.Value

A+
 
Vote positif 0 Vote négatif
Re : Aide macro

Bonjour

Salut Hasco

La procédure simplifiée

Code: 
Sub JANVIER()
'
' JANVIER Macro
'

'
Sheets("Feuil2").Range("D2:I2").Copy
Sheets("Feuil1").Range("D2:I2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuil2").Range("D6:I25").Copy
Sheets("Feuil1").Range("D6").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Feuil2").Range("D27:I53").Copy
Sheets("Feuil1").Range("D27").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A2").Select
End Sub

JP
 
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

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
220
Magic_Doctor
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
459
juju91
J
F
Fdaga
Réponses
2
Affichages
136
dysorthographie
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
343
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
792
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
F
Fdaga
Réponses
0
Affichages
191
Fdaga
F
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
597
sylvanu
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
191
eastwick
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
539
cdric78
C
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
697
micie1509
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
400
MICHIS
M
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
432
MOLY_
M
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
V
  • Question Question
XL 2016 transformer en boucle une macro créer avec l'enregistreur automatique
Réponses
3
Affichages
242
vazvaz
V
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
803
robpellan52
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…