Bonjour
J'utilise la macro suivante:
Sub SuiviCommande()
Dim Cell As Range
Calculate
For Each Cell In Sheets("SuiviCommande").Range("F6:F" & Sheets("SuiviCommande").Range("F65536").End(xlUp).Row)
If Cell.Offset(0, 6).Value = "" 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
Le problème est que mon cell.offset(0,6) contient toujours une formule et que la macro considère donc que la cellule n'est jamais vide
Comment faire pour éviter cela?
Merci
J'utilise la macro suivante:
Sub SuiviCommande()
Dim Cell As Range
Calculate
For Each Cell In Sheets("SuiviCommande").Range("F6:F" & Sheets("SuiviCommande").Range("F65536").End(xlUp).Row)
If Cell.Offset(0, 6).Value = "" 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
Le problème est que mon cell.offset(0,6) contient toujours une formule et que la macro considère donc que la cellule n'est jamais vide
Comment faire pour éviter cela?
Merci