Discussion :

[mrmouche30]

Bonjour à tous,

J'aurai besoin de conseils pour copier 3 colonnes d'une Sheet1 vers une Sheet2, il s'agit des colonnes B, D et F, seulement je voudrais copier la colonne seulement à partir de la ligne 3

J'ai essayé quelque chose du style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
 
Sheets("Sheet1").Range("B3" & Rows.Count).End(xlDown).Row.Copy Sheets("Sheet2").Columns(1)
Sheets("Sheet1").Range("D3" & Rows.Count).End(xlDown).Row.Copy Sheets("Sheet2").Columns(2)
Sheets("Sheet1").Range("F3" & Rows.Count).End(xlDown).Row.Copy Sheets("Sheet2").Columns(3)

Ainsi que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sheets("Belfius").Range("B3").End(xlDown).Row.Copy Sheets("Reconciliation").Columns(1)
Sheets("Belfius").Range("D3").End(xlDown).Row.Copy Sheets("Reconciliation").Columns(2)
Sheets("Belfius").Range("F3").End(xlDown).Row.Copy Sheets("Reconciliation").Columns(3)

Mais ça ne fonctionne pas, je pourrai utiliser une fonction select puis copier le reste mais ça ferait encore moins clean, auriez-vous quelques idées ?

Merci d'avance

[Marc-L]

Bonjour,

un bon code n'ayant rien besoin de sélectionner, juste travailler directement sur les objets (notion incomprise vu le code Row !)
comme pourtant indiqué dans l'aide VBA interne de Range.Copy :

With [Sheet1!A1].CurrentRegion.Rows

.Item("3:" & .Count).Range("B:B,D:D,F:F").Copy [Sheet2!A1]

End With

___________________________________________________________________________________________________________

   :arrow:  Merci de cliquer sur :plusser: en bas à droite de chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[mrmouche30]

Salut Marc,

Ca n'a pas fonctionné,

Premièrement parce que la cellule A1 est une cellule fusionné dans ma "Sheet1",

Deuxièmement, lorsque j'enlève la fusion (ce que je ne suis pas censé faire), ça m'a copié les colonnes sur la "Sheet 2" en cellule A3 au lieu de A1

Je suppose du coup que du coup ça a copié les colonnes B D et F, alors que je veux seulement copier à partir de B3, D3 et F3 (ne pas copier ce qu'il y a sur les 2 premières lignes)

[Marc-L]

Cela fonctionne de mon côté mais effectivement cela peut échouer avec une feuille conçue avec les pieds !
Et ce n'est pas forcément un problème de cellules fusionnées …     Et tu supposes mal …

Tu peux utiliser ta méthode pour trouver le numéro de la dernière ligne
et à partir de la cellule B3 redimensionner la source à copier via la propriété   Resize  
ou encore juste avec un Range entre la cellule de début et celle de fin …

[mrmouche30]

En fait l'idée c'est de ne pas toucher la feuille, c'est supposé être une reconciliation que je fais issu de deux sources différentes,
Je copie les données d'une source dans ma "Sheet 1" et je laisse la feuille telle qu'elle, grâce à ma macro j'ai déjà rajouter une colonne avec formule, supprimer les lignes dont la cellule est à 0 et trier les données en fonction de plusieurs critères, dernière étape, j'aimerai maintenant commencer la reconciliation.

Pour cela j'ai besoin de copier les lignes de mes colonnes dans une autre feuille, le nombre de lignes étant variable d'un jour à l'autre je ne peux pas vraiment l'adapter du style "B3:B415", et je ne souhaite pas non plus faire un truc du style "B3:B65360"

Quant au ton utilisé, sans commentaires....

[Marc-L]

Aucun souci, niveau grand débutant, en suivant l'aide VBA de Range.Copy :

Range({premier cellule}, {dernière cellule}).Copy {DestinationPremièreCellule}

Remplacer les éléments entre accolades par des objets référant aux cellules correspondantes …