XL 2013 Copie-collage d'une colonne effectué à moitié

Ananas94 · 18 Mars 2020

Bonjour,

J'ai un problème avec Excel : je souhaite copier une colonne qui a un nombre variable de lignes et la coller sur une autre feuille.
J'ai effectué ce code :

feuille_source = "Sauvegarde_suivi_mensuel_pilote"
feuille_cible = "Data_tableau_de_bord_P"
colonne_source = ("F8:F" & Range("F" & Rows.Count).End(xlUp).Row)
colonne_cible = "D11"
S_M_P_5 = Copie(feuille_source, feuille_cible, colonne_source, colonne_cible)

Ma fonction copie est la suivante :

Sheets(feuille_source).Range(colonne_source).Copy
Sheets(feuille_cible).Range(colonne_cible).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Tout fonctionnait parfaitement lorsque soudain, la colonne se copie/colle à moitié sans explication. Auriez-vous une idée ?

Je vous remercie vivement par avance,
Excellente journée,

Anna

Staple1600 · 18 Mars 2020

Re,

Anna
Il y a une dernière réponse dans ton autre discussion.
Tu ne l'as point vue?
EDITION: Bonsoir jmfmarques

jmfmarques · 18 Mars 2020

Bonjour
Quelle est la feuille active lorsque tu exécutes ta première macro ?
Car si elle n'est pas la feuille "Sauvegarde_suivi_mensuel_pilote" , la plage copiée sera celle d'une autre feuille (celle active).

Staple1600 · 18 Mars 2020

Re

Ananas94
Pour cette question, ton code ainsi modifié fonctionne sur mon PC

VB:

Sub test()
Dim fS As Worksheet, fC As Worksheet, P$
Set fS = Sheets("Sauvegarde_suivi_mensuel_pilote")
Set fC = Sheets("Data_tableau_de_bord_P")
P = fS.Range("F8:F" & fS.Cells(Rows.Count, "F").End(xlUp).Row).Address
copie fS, fC, P, "D11"
End Sub

Private Sub copie(feuille_source As Worksheet, feuille_cible As Worksheet, Rng_source$, col_cible$)
feuille_source.Range(Rng_source).Copy
feuille_cible.Range(col_cible).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub

Ananas94 · 19 Mars 2020

Bonjour,
Je viens de tester votre algorithme, il fonctionne parfaitement, je vous remercie mille fois !! vous me sauvez la vie

Merci beaucoup

Excellente journée,

Anna

Staple1600 · 19 Mars 2020

Re

Ananas94 à dit:
vous me sauvez la vie

Et pourtant je ne suis ni un gel hydroalcoolique (bien que j'ai de l'alcool en dedans de moi assez régulièrement) et je ne suis pas un masque non plus.

PS: Et non je ne porte pas de masque dans certaines soirées libidineuses, non plus!
Je ne fréquente jamais ce genre d'endroits.

Ananas94 · 23 Mars 2020

ahahha

XL 2013 Copie-collage d'une colonne effectué à moitié

Ananas94

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

jmfmarques

XLDnaute Accro

Staple1600

XLDnaute Barbatruc

Ananas94

XLDnaute Junior

Staple1600

XLDnaute Barbatruc

Ananas94

XLDnaute Junior

Discussions similaires