Modification du code pour ne pas afficher les formules

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:

---

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.

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

Code:

---

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

---

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.

Bonjour,

Citation:

---

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

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 !

Bonjour,

Citation:

---

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:

---

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:

---

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

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.

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

Voilà !

Merci d'avance.

Code:

---

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

---

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:

---

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

---

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

Re,

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

Bonjour,

Citation:

---

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:

---

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

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.

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).

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