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

XL 2013 Fonction vba copie coller

Créer une discussion

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

lestoiles1

XLDnaute Occasionnel
Bonjour à tous,

Je ne sais pas qu-est-ce qui cloche avec le code vba copie coller pourtant j'ai fait record macro et ça bug au niveau de range("A8:A108")

Merci

Lestoiles1

Private Sub CommandButton1_Click()
Sheets("Resume").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
ActiveWindow.SmallScroll Down:=-18
Range("A8:A108").Select
Selection.Copy
Sheets("ALL2").Select
Range("A28037").Select
ActiveSheet.Paste
Sheets("Resume").Select
Range("R8:S108").Select
Range("S108").Activate
Application.CutCopyMode = False
Selection.Copy
Sheets("ALL2").Select
Range("B28037").Select
ActiveSheet.Paste
Range("D28037").Select
Application.CutCopyMode = False
Range("E28036").Select
Selection.Copy
Range("E28037").Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("D28037").Select
ActiveCell.FormulaR1C1 = "1/24/2022"
Range("F28036").Select
Selection.Copy
Range("F28037").Select
ActiveSheet.Paste
Range("D28037:F28037").Select
Application.CutCopyMode = False
Selection.Copy
End Sub
 

Pièces jointes

  • Capture.JPG
    80.9 KB · Affichages: 37
Trier par date Trier par votes
Bonjour lestoiles1, le forum,

Puisque c'est la macro d'un CommandButton elle est forcément dans la feuille du bouton.

Et quand on ne précise pas la feuille d'un Range c'est cette feuille qui est la feuille par défaut.

D'où le bug si une autre feuille est sélectionnée.

De toute façon vous êtes sur ce forum depuis plus de 2 ans, vous avez dû apprendre que les Select ou autres Activate sont en général inutiles voire nuisibles donc utilisez :
VB: 
Private Sub CommandButton1_Click()
Dim F1 As Worksheet, F2 As Worksheet
Set F1 = Sheets("Resume")
Set F2 = Sheets("ALL2")
F1.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowFormattingColumns:=True, _
AllowFormattingRows:=True, AllowSorting:=True, AllowFiltering:=True, _
AllowUsingPivotTables:=True
F1.Range("A8:A108").Copy F2.Range("A28037")
F1.Range("R8:S108").Copy F2.Range("B28037")
F2.Range("E28037") = F2.Range("D28037").Formula
F2.Range("D28037") = CDate("24/1/2022")
F2.Range("F28036").Copy F2.Range("F28037")
End Sub
Et depuis le temps vous devriez aussi savoir que quand on présente un code on utilise les balises de code comme ci-dessus.

A+
 
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

  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
455
ph.vanne
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
197
sylvanu
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
377
Phil69970
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
2 K
AtTheOne
K
  • Question Question
XL 2019 Organiser le code VBA
Réponses
9
Affichages
811
Kevin38
K
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
846
MickaeL_D
M
R
  • Question Question
Microsoft 365 Ecraser onglet par copier coller [RESOLU]
Réponses
4
Affichages
502
romubzh35
R
L
  • Question Question
XL 2016 Consolidation de données issues de plusieurs feuilles
Réponses
6
Affichages
648
L_Wa
L
H
  • Question Question
XL 2010 Aide sur un copier coller
Réponses
4
Affichages
435
hutch57
H
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
  • Question Question
XL 2019 Difficulté avec FileDialog
Réponses
11
Affichages
629
patricktoulon
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
612
Staple1600
F
  • Question Question
Microsoft 365 Optimisation code VBA - Succession de copier coller
Réponses
8
Affichages
2 K
flomag
F
M
  • Question Question
Microsoft 365 Joindre une copie de 2 feuilles Excel dans outlook
Réponses
0
Affichages
462
Mika07
M
P
  • Question Question
XL 2016 Découpage Fichier Excel en plusieurs Fichiers selon une clé - VBA
Réponses
1
Affichages
2 K
fanch55
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
1 K
ERIC S
O
  • Question Question
XL 2019 protection de feuille par macro
Réponses
3
Affichages
661
Deadpool_CC
V
  • Question Question
XL 2016 Convertir en tableau
Réponses
6
Affichages
675
cp4
B
  • Question Question
Microsoft 365 Colorer les Lignes coller
Réponses
4
Affichages
832
bd.afaf
B
J
  • Question Question
XL 2019 Borné une extraction par date
2
Réponses
22
Affichages
3 K
jui42
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…