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

Action macro sur selection de feuilles

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

KTM

XLDnaute Impliqué
Salut chers Amis du Forum
Je vous présente ma macro suivante qui doit faire ceci:
-Dans les feuilles sélectionnées ; Copier la Plage I13:I47 et la coller en valeur dans D13😀47 et mettre le signe égal (=) devant les valeurs dans D13😀47
- Le problème est que seule la première feuille de la sélection est affectée. Je ne comprends pas pourquoi.
Quelqu'un pourrait-il apporter une correction à mon code ?
Merci



Sub Coopt ()
Sheets(Array("RM", "RMCe", "Rnan", "R",RMm", "Rdp", "RMCSha")).Select
Sheets("RM").Activate
Range("I13:I47").Select
Selection.Copy
Range("D13").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Dim cel As Range
For Each cel In Range("D13😀47")
cel.Formula = "=" & cel
Next cel
End Sub
 
Trier par date Trier par votes
Bonjour,

En utilisant sheets(array...., il ne faut pas activer de feuille (Sheets("RM").Activate) sinon les instructions auront lieu sur cette feuille et non sur l'ensemble.
mais malgré ça, le For Each cel ... ne s'exécute que sur la feuille active et non sur l'ensemble.

Une solution de contournement:

VB: 
Sub Coopt ()
Dim cel As Range, i As Long, T

T=Array("RM", "RMCe", "Rnan", "R",RMm", "Rdp", "RMCSha")  ' attention erreur "R",RMm"
Application.ScreenUpdating = False

For i = LBound(T) To UBound(T)
  With Worksheets(T(i))
  .Range("I13:I47").Copy
  .Range("D13").PasteSpecial Paste:=xlPasteValues
  Application.CutCopyMode = False
  
  For Each cel In .Range("D13:D47")
  cel.Formula = "=" & cel
  Next cel
  End With

Next i
Application.ScreenUpdating = True
End Sub
 
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

  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
271
AtTheOne
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
144
Phil69970
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
344
Nounours4173
N
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
451
micie1509
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
547
ph.vanne
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
541
Phil69970
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
2 K
job75
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
656
robpellan52
R
R
  • Question Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
711
robbynasch
R
O
  • Question Question
XL 2010 aide sur code VBA collationnement de données
Réponses
10
Affichages
796
olivier388
O
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
717
whiteshark
W
  • Résolu(e)
Microsoft 365 Macro fonctionnant avec excel 365 sur windows 11 mais ne fonctionnent pas sur un autre windows 11 avec aussi un excel 365
Réponses
11
Affichages
1 K
mouchtre
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
  • Résolu(e)
XL 2021 Coller "RdV Fait Facturé" de "J" ligne active jusqu'à "J" dernière ligne NON vide
2
Réponses
27
Affichages
1 K
TooFatBoy
A
  • Résolu(e)
XL 2013 Code VBA incompatible avec version Excel
Réponses
2
Affichages
677
Averell1976
A
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
889
Oneida
V
  • Question Question
XL 2016 Donner le nom du fichier à mon tableau mis en forme
Réponses
2
Affichages
489
vivi21
V
  • Question Question
Microsoft 365 Problème VBA insertion ligne au-desus
Réponses
3
Affichages
707
Mr.Adrien
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
J
  • Résolu(e)
XL 2013 méthode pastespecial de la classe range a échoué
Réponses
3
Affichages
1 K
Joujita31
J
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…