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

XL 2013 vba copie/colle

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

vinciHorus

XLDnaute Junior
bonjour

j'ai un code qui copie une ligne d'un tableau A et le colle dans un tableau B

Le probleme est que lorsque j'ajoute une nouvelle ligne dans A et que je veux la copie dans B, elle supprime l'ancienne sauvegarde or je voudrais qu'elle se copie à la suite

mon code

Sub rempli()



With Worksheets("Connexion ")

Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Cells(.Rows.Count, "B").End(xlUp)
Worksheets("Saisie").Range("C" & ActiveCell.Row).Copy .Cells(.Rows.Count, "C").End(xlUp)
Worksheets("Saisie").Range("D" & ActiveCell.Row).Copy .Cells(.Rows.Count, "D").End(xlUp)


Worksheets("Saisie").Range("P" & ActiveCell.Row).Copy .Cells(.Rows.Count, "F").End(xlUp)
Worksheets("Saisie").Range("Q" & ActiveCell.Row).Copy .Cells(.Rows.Count, "G").End(xlUp)
Worksheets("Saisie").Range("R" & ActiveCell.Row).Copy .Cells(.Rows.Count, "H").End(xlUp)

Worksheets("Saisie").Range("M" & ActiveCell.Row).Copy .Cells(.Rows.Count, "I").End(xlUp)
Worksheets("Saisie").Range("N" & ActiveCell.Row).Copy .Cells(.Rows.Count, "J").End(xlUp)

End With


End Sub
 
Solution
ben tu a un peu oublié l'offset(1)
mais il faut le faire en 2 etape
déterminer le end(xlup).offset(1) et coller
VB: 
dim nextrow&

With Worksheets("Connexion ")

nextrow= .Cells(.Rows.Count, "B").End(xlUp).offset(1).row

Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Cells(nextrow, "B")

Worksheets("Saisie").Range("C" & ActiveCell.Row).Copy .Cells(nextrow, "C")

Worksheets("Saisie").Range("D" & ActiveCell.Row).Copy .Cells(nextrow, "D")





Worksheets("Saisie").Range("P" & ActiveCell.Row).Copy .Cells(nextrow, "F")

Worksheets("Saisie").Range("Q" & ActiveCell.Row).Copy .Cells(nextrow, "G")

Worksheets("Saisie").Range("R" & ActiveCell.Row).Copy .Cells(nextrow, "H"))



Worksheets("Saisie").Range("M" & ActiveCell.Row).Copy...
Trier par date Trier par votes
Bonjour @vinciHorus , le Forum

J'essaierais plutôt comme ceci ...

VB: 
With Worksheets("Connexion")
Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Range("B" & .Range("B5000").End(xlUp).Row + 1)
End With

Bonne journée
@+Thierry
 
Vote positif 0 Vote négatif
Bonjour
si ......).End(xlUp) est la dernière ligne remplie, quelle pourrait bien être la suivante, où écrire, donc ?
tu ne crois pas qu'elle serait (sait-on jamais 😎) celle décalée (offset) d'une ligne vers le bas ?
 
Vote positif 0 Vote négatif
ben tu a un peu oublié l'offset(1)
mais il faut le faire en 2 etape
déterminer le end(xlup).offset(1) et coller
VB: 
dim nextrow&

With Worksheets("Connexion ")

nextrow= .Cells(.Rows.Count, "B").End(xlUp).offset(1).row

Worksheets("Saisie").Range("F" & ActiveCell.Row).Copy .Cells(nextrow, "B")

Worksheets("Saisie").Range("C" & ActiveCell.Row).Copy .Cells(nextrow, "C")

Worksheets("Saisie").Range("D" & ActiveCell.Row).Copy .Cells(nextrow, "D")





Worksheets("Saisie").Range("P" & ActiveCell.Row).Copy .Cells(nextrow, "F")

Worksheets("Saisie").Range("Q" & ActiveCell.Row).Copy .Cells(nextrow, "G")

Worksheets("Saisie").Range("R" & ActiveCell.Row).Copy .Cells(nextrow, "H"))



Worksheets("Saisie").Range("M" & ActiveCell.Row).Copy .Cells(nextrow, "I")

Worksheets("Saisie").Range("N" & ActiveCell.Row).Copy .Cells(nextrow, "J")



End With
 
Vote positif 0 Vote négatif
Solution
est ce que je peux avoir un esquisse
Cliquez pour agrandir...
Beaucoup mieux qu'une "esquisse" -->> carrément l'exposé de la méthode + 2 exemples --->> ouvre donc s'il te plait (elle est faite pour cela) ton aide interne VBA à la rubrique
Range.Offset, propriété
et reviens, si toujours en difficulté, en nous montrant le code au moins tenté après cette saine et indispensable lecture. 😉
​
 
Vote positif 0 Vote négatif
🙂

si je demande de l'aide c'est que j'ai déjà regardé

merci
 
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

D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
115
dadaze
D
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
271
AtTheOne
C
  • Résolu(e)
Autres Copier des données vers une nouvelle feuille excel VBA
2
Réponses
25
Affichages
900
Carolinebd
C
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
143
job75
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
134
sylvanu
U
  • Question Question
Autres [RÉSOLU] Compléter la macro mais comment et où?
Réponses
2
Affichages
240
un internaute
U
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
315
Piment
P
U
  • Question Question
Autres [RÉSOLU] Compléter macro pour Suppr cellules
Réponses
7
Affichages
108
un internaute
U
M
  • Question Question
XL 2019 La méthode select de la classe range a échoué
Réponses
4
Affichages
140
job75
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
407
Webperegrino
W
T
  • Question Question
XL 2013 Impression, choix de feuilles et nombre de copie
Réponses
11
Affichages
489
AtTheOne
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
110
patricktoulon
D
  • Question Question
Microsoft 365 VBA copier cellule, conserver la copie tout en effaçant contenu
2 3
Réponses
33
Affichages
1 K
fanch55
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
233
escudo
E
P
  • Résolu(e)
XL 2013 EXCEL VBA
Réponses
2
Affichages
413
pangasoul
P
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
177
kiki29
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
214
safranien
S
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
156
Pierreavecunp
P
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
858
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…