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