Cellule avec formule

[jeanphi]

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

 

[SergiO]

Re : Cellule avec formule

Bonjour jeanphi,


Peut-être comme ceci :

If Cell.Offset(0, 6).Value = [COLOR=Red]0[/COLOR]

mais cela dépend de ta formule...

@+

 

[ledzepfred]

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+

 

[jeanphi]

Re : Cellule avec formule

merci bien ca marche!!