Discussion :

[hdisnice]

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...

[mercatog]

Si tes données sont numériques.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim NewLig As Long
Dim Sh As Worksheet
 
Set Sh = Workbooks("Prov.xlsm").Sheets("Mutual.")
With Workbooks(Monfichier).Sheets("2011")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
    If NewLig < 20 Then NewLig = 20
    .Range("A" & NewLig).Value = Sh.Range("F1").Value
    .Range("B" & NewLig).Value = IIf(Val(Sh.Range("C10").Value) <> 0, Sh.Range("C10").Value, "")
    .Range("C" & NewLig).Value = IIf(Val(Sh.Range("B13").Value) <> 0, Sh.Range("B13").Value, "")
    '....
End With
Set Sh = Nothing

[hdisnice]

Super!

Merci beaucoup.