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.