Discussion :

[tcfga]

Bonjour,

Je cherche a faire une macro qui copie un tableau sur une feuille (Feuil2) et qui vient la copier dans une autre (Feuil3) grâce a un bouton. Dans ce tableau j'ai des valeurs numériques , mais aussi des textes .

J'ai fait cette macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Archivage()
 
Application.EnableEvents = False
With Worksheets("Feuil2")
 
.Range("C8:F114").Copy Worksheets("Feuil3").Range("A1")
 
End With
Application.EnableEvents = True
 
End Sub

Elle marche pour les textes mais pour les valeurs numériques elle me renvoie #REF!
Je n'arrive pas a comprendre pourquoi .

Tableau source :


Tableau destination :

[Menhir]

Elle marche pour les textes mais pour les valeurs numériques elle me renvoie #REF!
Je n'arrive pas a comprendre pourquoi .

Vraisemblablement parce que tes valeurs numériques sont le résultat de fonctions qui n'ont plus leurs données sources une fois copiées sur l'autre feuille.

Essaye ça :

Code :

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

1
2
3
4
Sub Archivage()
    Worksheets("Feuil2").Range("C8:F114").Copy 
    Worksheets("Feuil3").Range("A1").PasteSpecial(xlPasteValuesAndNumberFormats)
End Sub

[tcfga]

Ok le PasteSpecial fonctionne merci .