Bonjour,

J'utilise cette formule pour copier des données entre 2 fichiers
Mais je souhaiterai lui dire de ne pas copier la valeur si elle est "" ou "0"
pour chacun des lignes...

Suis-je obligé de mettre un IF sur chaque ligne ou il y a un autre moyen plus simple ?

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
 
    Dim NewLig As Long
    With Workbooks(Monfichier).Sheets("2011")
        NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        If NewLig < 20 Then NewLig = 20
        .Range("A" & NewLig).Value = Workbooks("Prov.xlsm").Sheets("Mutual.").Range("F1").Value
        .Range("B" & NewLig).Value = Workbooks("Prov.xlsm").Sheets("Mutual.").Range("C10").Value
        .Range("C" & NewLig).Value = Workbooks("Prov.xlsm").Sheets("Mutual.").Range("B13").Value
        .Range("D" & NewLig).Value = Workbooks("Prov.xlsm").Sheets("Mutual.").Range("B14").Value
        .Range("E" & NewLig).Value = Workbooks("Prov.xlsm").Sheets("Mutual.").Range("D19").Value
        .Range("G" & NewLig).Value = Workbooks("Prov.xlsm").Sheets("Mutual.").Range("E19").Value
        .Range("K" & NewLig).Value = Workbooks("Prov.xlsm").Sheets("Mutual.").Range("F19").Value
        .Range("K" & NewLig).Value = Workbooks("Prov.xlsm").Sheets("Mutual.").Range("G19").Value
 
    End With
D'avance encore merci...