bonjour le forum
j'utilise deux macros qui me permettent de récupérer des champs de ligne d'une première feuille et de les trier pour les copier dans 2 autres feuilles: une feuille relance et une feuille livraison
Private Sub CommandButton4_Click()
Dim cell As Range
Application.ScreenUpdating = False
With Sheets("Livraison")
.Range("A4" & ":" & "I" & .Range("G65536").End(xlUp).Row + 1).Clear
End With
For Each cell In Sheets("FEB").Range("E7:E" & Sheets("FEB").Range("E65536").End(xlUp).Row)
If cell.Value = "Validation ACHATS" Or cell.Value = "Traitement ACHATS" Then
If cell.Offset(0, 12) <> "" And cell.Offset(0, 15) = "" Then
cell.Offset(0, -3).Copy Sheets("Livraison").Range("A" & Sheets("Livraison").Range("A65536").End(xlUp).Row + 1)
Private Sub CommandButton5_Click()
Dim cell As Range
Application.ScreenUpdating = False
With Sheets("Relance")
.Range("A4" & ":" & "H" & .Range("G65536").End(xlUp).Row + 1).Clear
End With
For Each cell In Sheets("FEB").Range("E7:E" & Sheets("FEB").Range("E65536").End(xlUp).Row)
If cell.Value = "Validation ACHATS" Or cell.Value = "Traitement ACHATS" Then
If cell.Offset(0, 2) = "Oui" And cell.Offset(0, 8).Value = (Date - 2) Then
cell.Offset(0, -3).Copy Sheets("Relance").Range("A" & Sheets("Relance").Range("A65536").End(xlUp).Row + 1)
en fait je souhaiterias récupérer ces champs dans une seule et unique feuille
une permettrait de copier les valeurs à partir de la ligne A4 comme actuellement, l'autre à partir de la ligne A30 (voir exemple dans feuille relance)
quelqu'un peut t'il me dépanner SVP?
merci