Copie coller valeur VBA

Version imprimable

Bonjour à tous,
j'ai ma macro qui copie les lignes de feuil1 vers feuil2 si la condition est respectée.
Au lieu de copier que les valeurs, elle copie aussi les formules alors que je ne veux copier que les valeurs.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Sub copie()
 
  Dim Lig     As Long
  Dim Col     As String
  Dim NbrLig  As Long
  Dim NumLig  As Long
 
  Sheets("feuil2").Activate ' feuille de destination
 
  Col = "Z"                 ' colonne données non vides à tester'
  NumLig = 7          
  With Sheets("feuil1")     ' feuille source'
  NbrLig = .Cells(65536, Col).End(xlUp).Row
  For Lig = 7 To NbrLig             'n° de la 1ere ligne de données'
 
    If .Cells(Lig, Col).Value = "DECES" Then
        .Cells(Lig, Col).EntireRow.Copy Destination:=Worksheets("feuil2").Cells(NumLig, 1)
        NumLig = NumLig + 1
    End If
  Next
  End With
 
End Sub

Merci d'avance.

15/11/2015, 22h50
Philippe Tulliez

Bonjour,
Utilise la méthode AdvancedFilter (Filtre avancé). C'est la méthode la plus rapide pour exporter suivant condition et l'exportation se fait par valeur
A lire Les filtres avancés ou élaborés dans Excel

Bonjour,
Voici comment j'aurais procédé pour copier une plage donnée :

Code:

1
2
3
4
Dim Lig_i as Long, Lig_f as Long, Col_i as Long, Col_f as Long
Dim MonTableau as Variant
MonTableau = Worksheets("feuil1").Range(Cells(Lig_i, Col_i), Cells(Lig_f, Col_f))
Worksheets("feuil2").Range(Cells(Lig_i, Col_i), Cells(Lig_f, Col_f)) = MonTableau

17/11/2015, 09h36
Menhir
Remplace

Code:

.Cells(Lig, Col).EntireRow.Copy Destination:=Worksheets("feuil2").Cells(NumLig, 1)

Par
Code:

1 2 .Cells(Lig, Col).EntireRow.Copy Worksheets("feuil2").Cells(NumLig, 1).PasteSpecial(xlPasteValues)