Re : Cellule avec formule
bonjour,
essayes comme ceci (en rouge les modifs) :
Sub SuiviCommande()
Dim Cell As Range, VAL
Calculate
For Each Cell In Sheets("SuiviCommande").Range("F6:F" & Sheets("SuiviCommande").Range("F65536").End(xlUp). Row)
VAL= Cell.Offset(0, 6).Value
If VAL = "" And Cell.Offset(0, -2).Value = "Validation Achats" Or Cell.Offset(0, -2).Value = "Traitement Achats" Then
On Error Resume Next
Calculate
Sheets("Commande").Range("D" & Sheets("Commande").Range("D65536").End(xlUp).Row + 1).Value = Cell.Value
Sheets("Commande").Range("B" & Sheets("Commande").Range("B65536").End(xlUp).Row + 1).Value = Cell.Offset(0, -4).Value
End If
Next
Sheets("Commande").Select
End Sub
a+