macro pour modif

[CAFRINE]

Bonsoir à tous
une macro de catrice !
------------------------------------------------
Sub TranspoArchives()
Application.ScreenUpdating = False
For Each X In Range(Range("B3"), Range("B65536").End(xlUp))
If X.Offset(0, 10) <= 0 Then
X.Offset(0, -1).Resize(1, 14).Copy
Sheets("Archives").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
X.Resize(1, 13).ClearContents
End If
Next
Application.ScreenUpdating = True
End Sub
-------------------------------------------------
peut-on la modifier de sorte que les formules des cellules d'origines ne soient pas supprimées...
Merci beaucoup
Cafrine

 

[Spitnolan08]

Re : macro pour modif

Bonsoir,

En faisant ceci si bien compris :

 Sub TranspoArchives()
Application.ScreenUpdating = False
For Each X In Range(Range("B3"), Range("B65536").End(xlUp))
    If X.Offset(0, 10) <= 0 Then
        X.Offset(0, -1).Resize(1, 14).Copy
        Sheets("Archives").Range("A65536").End(xlUp).Offse  t(1, 0).PasteSpecial Paste:=xlPasteFormulas
    End If
Next
Application.ScreenUpdating = True
End Sub

Cordialement

 

[CAFRINE]

Re : macro pour modif

rebonsoir
Merci beaucoup Spitnolan08
ça fonctionne bien
et désolée pour le 2è fil, je pensais que le 1er
n'avait pas fonctionné.
Encore merci
Cafrine