Discussion :

[az7895]

Bonjour,

Je peux copier mes colonnes dans l'ordre que je veux, mais je quand ma colonne a une formule je n'arrive pas à simplement copier la valeur.
Voici mon code :

Code :

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

1
2
3
4
5
Sub copy()
    Sheets("Feuil1").Columns("A:B").copy Sheets("Copy").Columns(1)
    Sheets("Feuil1").Columns("E:E").copy Sheets("Copy").Columns(3)
    Sheets("Feuil1").Columns("F:F").copy Sheets("Copy").Columns(4)
End Sub

Je ne sais pas comment modifier mon code pour que ça copie uniquement les valeurs !

Merci de votre aide,
Cordialement.

[Philippe Tulliez]

Bonjour,
Tu peux utiliser le Copier/Collage Special-Valeur en VBA ou tout simplement

Code :

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

 Sheets("Copy").Columns("A:B").Value = Sheets("Feuil1").Columns("A:B").Value

[az7895]

Merci de ta réponse, oui en effet c'est beaucoup plus simple comme ça !
Le coller avec valeur je connaissais , mais je suis avec des fichiers volumineux donc j'ai tenté d'automatiser un peu, et je ne connais pas vraiment VBA.

Je voulais savoir si c'était possible de faire la même chose mais copier les données non pas sur une autre feuille mais sur un autre classeur?

Je te remercie par avance.

[Philippe Tulliez]

Bonjour,

Je voulais savoir si c'était possible de faire la même chose mais copier les données non pas sur une autre feuille mais sur un autre classeur?

Si les deux classeurs sont ouvert, pas de problèmes. Dans le cas contraire, il faut procéder autrement

[az7895]

Bonjour,

Je ne sais pas comment indiquer dans mon code qu'il ne s'agit plus de feuilles mais de classeurs.
J'ai mis mes deux fichiers, j'aimerai bien copier les colonnes de mon Fichier Data dans mon fichier Fcopy.

Merci par avance !

[Philippe Tulliez]

Bonjour,

Je ne sais pas comment indiquer dans mon code qu'il ne s'agit plus de feuilles mais de classeurs.
J'ai mis mes deux fichiers, j'aimerai bien copier les colonnes de mon Fichier Data dans mon fichier Fcopy.

Il n'y a aucune raison de mettre des fichiers en téléchargement.
D'abord, il est préférable de travailler avec des variables objets, c'est bien plus simple à gérer et à maintenir par la suite.
Ainsi si nous copions des données d'une feuille vers une autre du même classeur

Code :

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

1
2
3
4
5
6
7
8
Sub Test()
 Dim shtSource As Worksheet, shtTarget As Worksheet
 With ThisWorkbook
  Set shtSource = .Worksheets("db")
  Set shtTarget = .Worksheets("Export")
 End With
 shtTarget.Range("A:B").Value = shtSource.Range("A:B").Value
End Sub

Voici maintenant la même chose mais avec des feuilles sur deux classeurs distincts qui doivent attention être tous les deux ouverts

Code :

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

1
2
3
4
5
6
Sub Test()
 Dim shtSource As Worksheet, shtTarget As Worksheet
 Set shtSource = ThisWorkbook.Worksheets("db")
 Set shtTarget = Workbooks("Recap.xlsx").Worksheets("Export")
 shtTarget.Range("A:B").Value = shtSource.Range("A:B").Value
End Sub

Comme tu peux le constater, la ligne de copie est identique dans les deux cas. Thisworkbook représente le classeur où se trouve le code VBA

[az7895]

Whou merci pour ce code !
Désolé de t’embêter encore mais quand j'active ma macro, les données de mon fichier disparaissent mais elles ne se copient pas dans mon autre classeur.
Je ne sais pas ce que j'ai loupé..

Merci de ta patience

Cordialement.

[Philippe Tulliez]

Bonjour,
Encore une fois pas de raison de placer des classeurs à télécharger. Affiche ton code, c'est largement suffisant.

[az7895]

Voilà !

Merci d'avance.

Code :

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

1
2
3
4
5
6
7
Sub copy()
 Dim shtSource As Worksheet, shtTarget As Worksheet
 Set shtSource = ThisWorkbook.Worksheets("Copy")
 Set shtTarget = Workbooks("Test1-Data.xlsx").Worksheets("Data")
 shtTarget.Range("A:B").Value = shtSource.Range("A:B").Value
 shtTarget.Range("C:C").Value = shtSource.Range("C:C").Value
End Sub

[Philippe Tulliez]

Bonjour,
Et bien je trouve bizarre que cela ne fonctionne pas car évidemment avant de publier une procédure je teste toujours sinon, je le signale
Tu n'as aucun message d'erreur ?
Petite remarque, au lieu de copier la colonne A:B et ensuite la C tu peux bien entendu écrire

Code :

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

shtTarget.Range("A:C").Value = shtSource.Range("A:C").Value

Je te conseille d'utiliser le débogage les touches (F8, F9, etc.)

[az7895]

Re,

Non je n'ai aucun message d'erreur, je ne comprends vraiment pas d'où ça vient !

[Philippe Tulliez]

Bonjour,

Non je n'ai aucun message d'erreur, je ne comprends vraiment pas d'où ça vient !

D'après moi et j'en suis même convaincu, tu t'es trompé de Source et de Cible. Tu as donc copié des colonnes vides vers celles qui étaient remplies
Donc si je reprends ton code (sans avoir testé)

Code :

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

1
2
3
4
5
6
7
Sub copy()
 Dim shtSource As Worksheet, shtTarget As Worksheet
 Set shtTarget = ThisWorkbook.Worksheets("Copy")
 Set shtSource = Workbooks("Test1-Data.xlsx").Worksheets("Data")
 shtTarget.Range("A:B").Value = shtSource.Range("A:B").Value
 shtTarget.Range("C:C").Value = shtSource.Range("C:C").Value
End Sub

Moi, j'ai mis le code dans le classeur source et toi tu as mis le code dans le classeur cible
C'est là que tu vas voir l'intérêt supplémentaire de travailler avec des variables objets. Maintenance aisée

[az7895]

Re,

Merci beaucoup, ça m'avance énormément !
Oui tu avais raison, je me suis trompé de fichier source et de fichier cible.
C'est bon tout marche comme il faut maintenant, j'ai juste une question, quand je lance ma macro je trouves ( comme j'ai beaucoup de colonnes) que ça met relativement longtemps, Je voulais savoir si ça pouvait venir de mon pc ou si c'était simplement normal ?

Cordialement.

[Philippe Tulliez]

Bonjour,
Difficile à dire si c'est le PC ou le programme.
Pour ma part, je ne copie pas de colonne entière mais des plages de cellules et normalement c'est instantané (voir ma remarque à ce sujet).
S'il y a des formules dans la plage copiée, il peut avoir une lenteur due au recalcul ou à l'affichage pendant la copie. Il y a des instruction pour annihiler ces actions pendant la copie.
Revois déjà la partie que tu copies (Une plage entière plutôt que colonne par colonne).

[az7895]

Merci pour toutes tes réponses!
Tu m'as beaucoup avancé