Ne pas appliquer formule si vide ou pas de date
s
Bonjour,
J'ai fais un petit code afin d'appliquer une formule. Seulement, je n'arrive pas à lui dire de ne pas l'appliquer si la colonne G est vide ou si la colonne O ne contient pas de date ou qu'elle est vide. Voici le code et le fichier est ci-joint.
Sub detection()
Dim LastLig As Long
With Sheets("Feuil2")
LastLig = .Cells(.Rows.Count, "A").End(xlUp).Row
With .Range("R2:R" & LastLig)
.FormulaR1C1 = "=IF(RC[-1]>reference!R1C[-5],0,IF(RC[-3]<reference!R1C[-5]+14,0,1))"
End With
End With
End Subf
Bonjour scarfy25,
Si tu utilises un bouton de commande pour effectuer la détection, tu n’as pas besoin de formule.
Les évaluations peuvent être réalisées par la procédure.
A+
s
J'étais parti avec une formule car pas encore le niveau pour réalisé un code comme le tiens. ça marche parfaitement, merci !