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

copier-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
M

manulemalin13000

XLDnaute Occasionnel
Bonjour a tous,

J'ai un petit soucis de codage VBA que je ne sais pas faire..
Dans la feuille jointe, en ligne 43 de la sheet 1, j aimerais faire un copier/coller automatique de la ligne 43 de la colonne A à I Seulement depuis la Sheet1 vers les sheet 2 ET 3 mais pour ces deux dernières pages j aimerai que le coller se fasse à la place de ce qui est écrit en ligne 43 et de la colonne A à I seulement !!

Je n'arrive pas a faire cela
Est ce quelqu'un pourrait m aider ?

merci
 

Pièces jointes

Trier par date Trier par votes
Re : copier-coller

Bonjour manulemalin13000, Brigitte,
une proposition avec ce que j'ai compris:
Code: 
[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]With[/COLOR] Sheets("Sheet1")
    .Range(Cells(43, 1), Cells(43, 9)).Copy Sheets("Sheet2").Cells(43, 1)
    .Range(Cells(43, 1), Cells(43, 9)).Copy Sheets("Sheet3").Cells(43, 1)
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Maintenant si il faut trouver la dernière ligne à copier :
Code: 
[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]With[/COLOR] Sheets("Sheet1")
    Derlig = .Cells(Rows.Count, "A").End(xlUp).Row
    Derlig2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    Derlig3 = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row
    .Range(Cells(Derlig, 1), Cells(Derlig, 9)).Copy Sheets("Sheet2").Cells(Derlig2, 1)
    .Range(Cells(Derlig, 1), Cells(Derlig, 9)).Copy Sheets("Sheet3").Cells(Derlig3, 1)
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Re : copier-coller

Re
Je test toujours mes codes...
Tu a peut être une Option Explicite ?
Essai ceci (code légèrement modifié):
Code: 
[COLOR=blue]Sub[/COLOR] test2()
[COLOR=blue]Dim[/COLOR] Derlig [COLOR=blue]As Long[/COLOR], Derlig2 [COLOR=blue]As Long[/COLOR], Derlig3 [COLOR=blue]As Long[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Sheet1")
    Derlig = .Cells(Rows.Count, "A").End(xlUp).Row
    Derlig2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    Derlig3 = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row
    [COLOR=blue]With[/COLOR] .Range(Cells(Derlig, 1), Cells(Derlig, 9))
        .Copy Sheets("Sheet2").Cells(Derlig2, 1)
        .Copy Sheets("Sheet3").Cells(Derlig3, 1)
    [COLOR=blue]End With[/COLOR]
[COLOR=blue]End With[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Cordialement
 
Vote positif 0 Vote négatif
Re : copier-coller

Re
Désolé mais en dehors du fait que je peux poster sur le forum mais pas éditer mes messages, une des abérations de mon système est que je peux aller sur Ci joint.Fr mais pas .com 😱
Donc...
Cordialement
 
Vote positif 0 Vote négatif
Re : copier-coller

Re
Vu l'utilisation, Il manquait deux points (en rouge)
J'ai aussi ajouter le blocage écran (Application.ScreenUpdating) pour éviter les clignotements.
Code: 
[COLOR=blue]Sub[/COLOR] lastligne()
Application.ScreenUpdating = [COLOR=blue]False[/COLOR]
[COLOR=blue]Dim[/COLOR] Derlig [COLOR=blue]As Long[/COLOR], Derlig2 [COLOR=blue]As Long[/COLOR], Derlig3 [COLOR=blue]As Long[/COLOR]
[COLOR=blue]With[/COLOR] Sheets("Raw")
    Derlig = .Cells(Rows.Count, "A").End(xlUp).Row
    Derlig2 = Sheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
    Derlig3 = Sheets("Sheet3").Cells(Rows.Count, "A").End(xlUp).Row
    [COLOR=blue]With[/COLOR] .Range([SIZE=4][COLOR=red][B].[/B][/COLOR][/SIZE]Cells(Derlig, 1), [SIZE=4][COLOR=red][B].[/B][/COLOR][/SIZE]Cells(Derlig, 9))
        .Copy Sheets("Sheet2").Cells(Derlig2, 1)
        .Copy Sheets("Sheet3").Cells(Derlig3, 1)
    [COLOR=blue]End With[/COLOR]
[COLOR=blue]End With[/COLOR]
Application.Run "doublons"
Application.ScreenUpdating = [COLOR=blue]True[/COLOR]
[COLOR=blue]End Sub[/COLOR]
Pour le reste, si j'ai le temps je regarderai ce W.E, mais sans certitudes
Cordialement
 
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

G
  • Question Question
XL 2016 filtrer, copier et coller les données avec la macro
Réponses
4
Affichages
316
job75
F
  • Question Question
XL 2016 [VBA] Coller du texte sans formatage
Réponses
8
Affichages
191
F22Raptor
F
A
  • Question Question
Déplacer données en vba
Réponses
3
Affichages
560
akm
A
  • Résolu(e)
XL 2019 copier des valeurs de la verticale à l'horizontale. Possible d'un coup ?
2
Réponses
20
Affichages
475
gosselien
  • Question Question
XL 2019 Copier et coller automatiquement une nouvelle donnée par un bouton, ListView décallée à la sur la page (Multipage) et vibration du Userform
2
Réponses
16
Affichages
951
TooFatBoy
G
  • Question Question
XL 2010 formule a copier sur differente cellules
Réponses
3
Affichages
169
fanfan38
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
194
sylvanu
  • Question Question
XL 2021 Copier coller qui ajoute une référence absolu Toute seule
2
Réponses
24
Affichages
1 K
TooFatBoy
C
  • Résolu(e)
XL 2019 User Form qui renvoi dans un tableau avec celulle fusionnée
2
Réponses
16
Affichages
345
Piment
P
  • Résolu(e)
XL 2019 Enregistrement au format ".txt" AVEC et SANS Guillemets
2
Réponses
15
Affichages
912
Titof06
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
305
Bodin44
B
R
  • Question Question
XL 2021 copier sur toute la colonne
Réponses
3
Affichages
103
regis6460
R
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
121
Eric 888
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
643
safranien
S
E
  • Résolu(e)
Microsoft 365 TS Copie ligne selon condition
Réponses
6
Affichages
332
eric72
E
J
  • Question Question
Microsoft 365 Naviguer dans un tableau pour copier des données dans un modèle et copier l'un derrière l'autre
Réponses
11
Affichages
542
AtTheOne
P
  • Question Question
Microsoft 365 VBA copier-coller selon conditions
Réponses
4
Affichages
320
vgendron
N
  • Question Question
XL 2010 fichier généré par IA ne fonctionne pas ( RESOLU )
2
Réponses
16
Affichages
886
n_turf
N
D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
326
dadaze
D
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
870
piga25
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…