• Initiateur de la discussion Initiateur de la discussion UJAP
  • 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 !

UJAP

XLDnaute Occasionnel
Re-salut,

J'essaye de comprendre le vba avec des codes simples,

J'ai voulu créer un code qui me permet de copier certaines colonnes vers un autre onglet :

Et j'ai une erreur au niveau du ActiveSheet.Paste Et je comprends pas !! Pouvez-vous m'expliquer,

Voici le code :

Sub Macro7()
'
' Macro7 Macro
' Macro enregistrée le 30/12/2008 par
'

'
Range("A4:A6,C4😀6,K4:K6,M4:R6").Select
Range("M4").Activate
Selection.Copy
Sheets("Feuil2").Select
Range("A4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
 
Re : Modification code

bonjour

il y a un problème pour copier plusieurs zones.
essaye ceci pour une zone entière :
Code:
Sub test()
    Range("A4:R6").Copy
    Sheets("Feuil2").Range("A4").PasteSpecial Paste:=xlPasteAll
    Application.CutCopyMode = False
End Sub
à plus
 
Re : Modification code

Je viens de créer ce code suite à vos réponses et il fonctionne, juste une question :

Sub test()
Range("A4:A6,C4😀6,K4:K6,M4:R6").Copy
Sheets("FICHIER GESTION").Range("A4").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
End Sub

Que veut dire : PasteSpecial Paste:=xlPasteAll ?

Merci
 
Dernière édition:
Re : Modification code

re

et bien le thisworkbook c'est le classeur et si tu regardes en haut tu verras que tu peux choisir des évènements (open, close, ...)

idem pour les feuillles

dond le mieux dans tes modules tu mets tes macros et dans le thisworkbook et les feuilles tu mets les codes évènementielles
 
- 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éponses
10
Affichages
798
Réponses
17
Affichages
1 K
  • Question Question
Microsoft 365 Code VBA
Réponses
10
Affichages
1 K
Retour