Discussion :

[khech]

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 :

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

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.

[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

[MicroMatz]

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

Code :

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

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

[Menhir]

Remplace

Code :

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

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

Par

Code :

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

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