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

copier coller et effacer sous VBA

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

le plessis

Guest
Re,
mon nouveau petit pbl :
Je désire copier les données de mon bon de commande dans deux fichiers et les effacer pour retrouver un bon de commande vierge. ci dessous mon code
Sub envoicommande()
'
' envoicommande
ActiveSheet.UsedRange.Rows("3:" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("demande outillage").Select
Range("a5").Select
ActiveSheet.Paste
ActiveSheet.UsedRange.Rows("3:" & ActiveSheet.UsedRange.Rows.Count).Select
Selection.Copy
Worksheets("EQ 1").Select
Range("a5").Select
ActiveSheet.Paste
Worksheets("ordre commande").Select
ActiveSheet.UsedRange.Rows("3:" &ActiveSheet.UsedRange.Rows.Count).Select
Selection.ClearContents
Range("a5").Select

End Sub
msg erreur exec "9" indice en dehors de la plage
si qql a une idée
 
Trier par date Trier par votes
Re : copier coller et effacer sous VBA

Bonjour,

quelle ligne bogue ??? sinon essaye peut être comme ceci :
Code: 
With Rows("3:" & ActiveSheet.UsedRange.Rows.Count)
    .Copy
    Worksheets("demande outillage").Paste Range("A5")
    .Copy
    Worksheets("EQ 1").Paste Range("A5")
    .ClearContents
End With
bonne soirée
@+
 
Vote positif 0 Vote négatif
Re : copier coller et effacer sous VBA

Bsr,
c'est cette ligne qui bugue :
Worksheets("ordre commande").Select
ActiveSheet.UsedRange.Rows("3:" &ActiveSheet.UsedRange.Rows.Count).Select
Selection.ClearContents
Range("a5").Select
je vais essayé ton code.
D'avance merci pour ton aide
le plessis
 
Vote positif 0 Vote négatif
Re : copier coller et effacer sous VBA

Je viens d'essayer ; cela bug mais je crois savoir pourquoi.
Merci de l infos.
A+😉
 

Pièces jointes

Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : copier coller et effacer sous VBA

Re
voilà le code que j'ai fgais, faute de mieux :

Range("A5").CurrentRegion.Select
Selection.Copy
Sheets("Demande outillage").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("EQ 1").Select
Range("A5").Select
ActiveSheet.Paste
Sheets("ordre commande ").Select
Range("A5").CurrentRegion.Select
Selection.ClearContents
Range("A5").Select
Cela marche ; la commande "currentregion" était pour mon cas ce qui fallait.
Mais je garde ton code pour autre chose en attente.
Merci encore 😉
le plessis
 
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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
430
sylvanu
B
  • Question Question
XL 2016 VBA - Ajout de consignes dans le corps d'un mail
Réponses
3
Affichages
504
kiki29
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
2 K
fanch55
G
  • Résolu(e)
XL 2013 copier coller valeur d'une colonne dynamique
Réponses
13
Affichages
1 K
gwenn49
G
M
  • Question Question
Microsoft 365 Copier / coller avec mise en forme VBA
Réponses
0
Affichages
946
marie3107
M
P
  • Question Question
XL 2016 Affecter à un bouton plusieurs possibilité
Réponses
3
Affichages
639
Eric KERGRESSE
E
B
  • Question Question
Microsoft 365 reproduire la mise en forme d'un tableau avec VBA
Réponses
11
Affichages
2 K
BER6543
B
R
  • Question Question
Microsoft 365 Ecraser onglet par copier coller [RESOLU]
Réponses
4
Affichages
646
romubzh35
R
B
  • Question Question
Microsoft 365 Erreur code VBA Excell à partir de la 5ème boucle avec ActiveSheet.Paste
Réponses
1
Affichages
595
Staple1600
M
  • Question Question
XL 2013 Envoyer un mail automatique avec le contenu de la bonne ligne
Réponses
2
Affichages
1 K
Oneida
H
  • Question Question
XL 2010 Aide sur un copier coller
Réponses
4
Affichages
577
hutch57
H
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
1 K
MickaeL_D
M
EXCEL :: VBA :: Barre de progression via un graphique cylindrique, cubique, aquarium, donuts et shape
Réponses
0
Affichages
760
oguruma
C
  • Question Question
XL 2019 1004 sur un ActiveSheet.Paste
Réponses
5
Affichages
663
Cheyenne_2021
C
E
  • Question Question
XL 2019 Copier tout un tableau d'une feuille et le coller sur une autre feuille.
Réponses
1
Affichages
765
Staple1600
B
  • Résolu(e)
XL 2016 macro avec boucle
2
Réponses
16
Affichages
2 K
benbella1991
B
L
  • Résolu(e)
XL 2016 VBA : Copier des valeurs entre deux fichiers
Réponses
4
Affichages
988
Leché
L
A
  • Question Question
Microsoft 365 Cpier/coller en VBA
Réponses
7
Affichages
817
A-F
A
F
  • Question Question
Microsoft 365 désactiver les filtres de plusieurs onglets et incrémenter les lignes
2
Réponses
17
Affichages
2 K
TooFatBoy
B
  • Question Question
Microsoft 365 Copier/coller d'un tableau sur un autre classeur
Réponses
8
Affichages
1 K
chris
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…