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

Code bugué, histoire de copier/coller

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

divad

Guest
Bonjour,

je me creuse la tête sur un code qui ne fonctionne pas, et je ne comprends pas pourquoi.
La solution est, j'imagine, simple puisque je suis débutant.

Pour information, je copie des cellules depuis l'onglet "Añadir TM". Par la suite, je me rends dans l'onglet "RRHH" pour insérer une ligne à un tableau, puis coller les informations copiées du premier onglet.
Jusque là, tout va bien.
Mais par la suite, je veux copier une cellule, toujours dans l'onglet RRHH, et la copier plusieurs fois, dans cette même feuille.
Et c'est là que j'ai une erreur, de temps d'execution dépassé.
C'est la premiere des 4 dernieres lignes qui m'est surligné.
A noter que ces 4 lignes viennent d'un copier coller de l'enregistreur de macro.

Code: 
 'Copia de los datos de la nueva persona
    Sheets("Añadir TM").Select
    Range("e6:g6").Select
    Selection.Copy
    
    'Hoja activa : RRHH
    Sheets("RRHH").Select
    
    'Selección de la primera linea vacia
       celrrhh = 5
        While Not Sheets("RRHH").Range("a" & celrrhh & "").Value = ""
            celrrhh = celrrhh + 1
        Wend
          
    'Insersión de una linea y pega de los datos
    ActiveSheet.Rows(celrrhh & ":" & celrrhh).Select
    Selection.Insert Shift:=xlDown
      
    'copiar el AT en las otras columnas
    [COLOR="Red"][B]Range("C83").Select[/B][/COLOR]    
    Selection.Copy
    Range("D88:J88").Select
    ActiveSheet.Paste
    
End Sub

Pensez-vous pouvoir m'aider?

Merci d'avance!

D
 
Dernière modification par un modérateur:
Trier par date Trier par votes
Re : Code bugué, histoire de copier/coller

Merci pour ta réponse.

J'insère une ligne à la suite d'un premier tableau, pas tout en bas du dernier tableau de ma feuille. Donc ton code n'est pas adapté à mes besoins pour cela.

Mais je pense que seules mes 4 dernières lignes posent problème, je ne crois pas qu'il faille toucher au reste (?)

merci encore
 
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

A mon avis, un retour à la ligne est passé à l'as :

'copiar el AT en las otras columnas
Range("C83").Select
Selection.Copy 'Et oui cela doit aller mieux
Range("D88:J88").Select
ActiveSheet.Paste
 
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Ah tiens, mon copier/coller n'a pas fonctionné correctement... Bizarre.
Je rectifie mon post; le code est bien disposé en réalité.

Merci
 
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Oui ça ne me surprend pas qu'il ne soit pas optimisé 🙂
Je tente de faire un fichier excel pour faciliter la chose.

Je vous copie de nouveau lo code, un peu mieux documenté:

Code: 
    'Copie des donnees depuis l'onglet Añadir TM
    Sheets("Añadir TM").Select
    Range("e6:g6").Select
    Selection.Copy
    
    'Hoja activa : RRHH
    Sheets("RRHH").Select
    
    'Selection de la premiere ligne vide de mon tableau
    celrrhh = 5
        While Not Sheets("RRHH").Range("a" & celrrhh & "").Value = ""
            celrrhh = celrrhh + 1
        Wend
          
    'Insertion ligne et copie des donnees de Añadir TM
    ActiveSheet.Rows(celrrhh & ":" & celrrhh).Select
    Selection.Insert Shift:=xlDown


    'Copie de C83 partout entre D88 et J88 (erreur dans la première ligne)
   Range("C83").Select
   Selection.Copy
   Range("D88:J88").Select
   ActiveSheet.Paste

Le dernier bloc de 4 lignes n'a finalement rien a voir avec ce qui se passe avant.

(
Ha, et je me rend compte que mes lignes de code
Code: 
    'Insertion ligne et copie des donnees de Añadir TM
    ActiveSheet.Rows(celrrhh & ":" & celrrhh).Select
    Selection.Insert Shift:=xlDown
ne m'insèrent que 3 cellules et pas une ligne entière...

)

Merci!

D
 
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Voilà, j'ai préparé un fichier Excel qui vous montre exactement la même chose que mon fichier original.

La première partie du code fonctionne à peu près, mais ça bugue surtout à la fin.

Merci 🙂
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Héhé 🙂 J'espére que le fichier t'aidera à mieux comprendre 😉
C'est juste que j'ai d'autres données situées en dessous de ce premier tableau 😉
Edit:
ben non, je veux juste copier donnees1, donnees2 et donnees3, je veux les insérer au premier tableau en fait.
Ou alors j'ai pas compris la question 🙂

Edit2: Ha ouais nan, j'avais pas compris la question 😀
Je veux juste reprendre donnees3 et la copier dans les cellules adjacantes en fait, 5 ou 10 fois par exemple
 
Dernière modification par un modérateur:
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Ca tourne, c'est un mobile.
Bon , j'ai déjà transféré le code dans un module, c'est plus terre à terre.
Et là plus d'erreur.
Mais, c'est vrai que c'est obscure comme fonctionnement.
Mettre ses idées en place avant de commencer une application, un minimum.
Sinon, l'on passe du temps à jouer aux devinettes.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

il y a une imprécision dans mon code.
C'est que c'est la cellule 18 qui doit etre copiée, pas la 83... désolé.
Mais le fonctionnement reste le meme.

Je regarde ton code, merci

Edit: une histoire de module? Je ne sais pas ce qu'est un module en fait... mais en effet ça fonctionne :/
 
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

bonjour a tous

A tester:
Code: 
Sub copie()
x = Sheets("RRHH").Range("A1").End(xlDown).Row + 1
Sheets("RRHH").Rows(x).Insert
Range("E6:G6").Copy Destination:=Sheets("RRHH").Range("A" & x)
Sheets("RRHH").Range("D88:J88") = Range("C83")
End Sub
 
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Salut divad, le Fil (z'êtesnombreuxavouloiraiderdivad)🙂

j'ai bien peur de dire une bêtise mais si tu remplace

Code: 
Range("C83").Select
   Selection.Copy
   Range("D88:J88").Select
   ActiveSheet.Paste
par ceci

Code: 
Range("C83").Copy Destination:=Range("D88:J88")
Chez moi comme cela ça fonctionne

EDITION: Salut Jean Marcel🙂, PierreJean 🙂

Bonne Journée
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Merci de vos réponses.

Les deux codes me copient mes données dans soucis.
Juste que dans ton code, Jean-Marcel, il n'y a pas de nouvelle ligne ajoutée. Le code de pierrejean me convient mieux car je dois ajouter ces données au premier tableau.

La suite, elle est simple.
Si les données sont collées sur la ligne 20, par exemple. Je veux simplement que la cellule C20 soit répliquée en D20, E20... jusqu'à L20.
C'était surtout cette partie qui ne fonctionnait pas chez moi, en faisant un copier/coller de l'enregisteur de macros.

Merci, et désolé de ne pas avoir été clair au départ 😉

D
 
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Merci dull, et merci à tous car en effet vous êtes nombreux à m'aider!

Pour ma part, ça ne plante plus mais ça ne me copie rien non plus 😛

Ce n'est pas une histoire de module, comme expliqué plus haut? Je ne connais pas la différence entre placer un code dans un module et placer un code directement dans la feuille.
 
Vote positif 0 Vote négatif
Re : Code bugué, histoire de copier/coller

Je constate une anomalie par rapport a ton commentaire
Ici tu selectionnes l'onglet RRHH
Sheets("RRHH").Select

'Selection de la premiere ligne vide de mon tableau
CelRRHH = 5
While Not Sheets("RRHH").Range("a" & CelRRHH & "").Value = ""
CelRRHH = CelRRHH + 1
Wend

'Insertion ligne et copie des donnees de Añadir TM
ActiveSheet.Rows(CelRRHH & ":" & CelRRHH).Select
Selection.Insert Shift:=xlDown

Ici, il manque: worksheets("Añadir TM").select
Par contre il n'y a que la ligne 6 à copier dans cet onglet?
Range("C83").Select deviendrait Range("E6").Select
Selection.Copy
Range("D88:J88").Select
ActiveSheet.Paste

Toujours de la devinette.
Sinon décris nous avec des mots simples ou avec une feuille avant et une feuille après , ce que tu veux faire.
 
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

X
  • Question Question
XL 2016 Copier à partir de la dernière ligne renseignée.
Réponses
8
Affichages
865
Xender
X
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
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
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
A
  • Résolu(e)
XL 2013 Utilisation de plusieurs conditions
Réponses
7
Affichages
1 K
AnjyD
A
F
  • Question Question
Microsoft 365 Optimisation code VBA - Succession de copier coller
Réponses
8
Affichages
3 K
flomag
F
A
  • Question Question
Microsoft 365 boucle macro pour importer des données
2
Réponses
16
Affichages
2 K
Arnaud Legay
A
B
  • Résolu(e)
Microsoft 365 Copier coller en VBA des colonnes non adjacentes
Réponses
8
Affichages
2 K
Bizarre
B
F
  • Résolu(e)
XL 2016 Copier coller VBA
Réponses
2
Affichages
2 K
FeeZ
F
  • Résolu(e)
XL 2019 alléger code VBA (supprimer activate / select / copy / activate / select / paste)
Réponses
4
Affichages
2 K
Eric 888
O
  • Question Question
XL 2016 Problème de copier coller VBA
Réponses
4
Affichages
2 K
cp4
A
  • Question Question
Microsoft 365 Copier le contenu d'une feuille dans une autre par une macro
Réponses
2
Affichages
1 K
AlexAGEMS
A
B
  • Résolu(e)
XL 2016 Copier-coller une cellule, en rajoutant un terme dans la nouvelle cellule
Réponses
2
Affichages
1 K
BPM
B
M
  • Question Question
XL 2019 Macro copier /coller une ligne dans un tableau (du menu insertion/tableau)
Réponses
9
Affichages
2 K
micsel
M
C
  • Résolu(e)
XL 2016 copier coller de plusieurs feuilles selon condition
Réponses
2
Affichages
1 K
ced91300
C
E
  • Question Question
XL 2016 COPIER COLLER de valeurs d'une feuille à une autre depuis une valeur d'une cellule sans bouton
Réponses
4
Affichages
2 K
Hasco
N
  • Résolu(e)
Microsoft 365 Macro, copier coller sans écraser la ligne selectionnée
Réponses
5
Affichages
1 K
Staple1600
S
  • Résolu(e)
Microsoft 365 VBA Copier / Coller Valeur sur une autre feuille, dernière ligne vide
2
Réponses
21
Affichages
17 K
job75
C
  • Question Question
XL 2016 Code VBA copier une valeur sur une plage de données dont les cellules de début et fin varient
Réponses
2
Affichages
4 K
CD38
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…