[XL-2002] Copie valeurs d'une feuille

[Mirak87]

Bonjour,

je ne parviens pa à appliquer la copie valeur suggéré en debut de discussion!

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim dercel As Range
 
With Sheets(3)
        Set dercel = .Cells(.Rows.Count, 1).End(xlUp)
        With .Range("A1", dercel).Offset(0, 1)
            .Formula = "=VLOOKUP(A1, $I$1:$J$3,2)"
            'astuce collage spécial
            .Value = .Value
        End With
End With
 
Set dercel = Nothing
 
End Sub

Pourriez-vous svp me suggérer un code qui copierai toute une feuille sans les formules sur une autre feuille du classeur??

[Sclarckone]

Bonjour,

Si c'est parce que la formule plante, c'est probablement parce que ton Excel est en français.

Dans ce cas il faut remplacer VLOOKUP par son équivalent français (qui doit être RECHERCHEV).


Pour copier seulement les valeurs et pas les formules d'une cellule (il faut que la cellule de destination soit activée):

Code :

ActiveCell.PasteSpecial Paste:=xlPasteValues

Mais je ne suis pas sûr d'avoir compris ton problème...il faudrait que tu sois plus explicite.

[Mirak87]

Merci pour ta réponse
En fait jessaye de trouver un code pour copier toute les valeurs d'une feuille (sans formules) sur une nouvelle feuille.
J'ai essayé d'adapter le code precédent en vain!!
Et mon excel est bien en anglais.