re "rem$"
je pense avoir saisis autre chose mais le msgBox demande une réponse à chaque ligne donc tiens moi au courant voici le code Modifié
Private Sub validationdate()
Dim frigo As Variant
Dim numero As Variant
Dim DerLgn As Integer, lgn As Integer
DerLgn = Range("AT65536").End(xlUp).Row
For lgn = 4 To DerLgn
If Range("at" & lgn).Value < Range("as" & lgn).Value Then
Range("au" & lgn & ":" & "av" & lgn).Value = "non"
Else
If Range("at" & lgn).Value > Range("as" & lgn).Value Then
Range("au" & lgn & ":" & "av" & lgn).Value = "NON"
End If
frigo = MsgBox("les boîtes ont-elles été bloquées au frigo??", vbYesNo, "demande....")
If frigo = vbYes Then
Range("au" & lgn).Value = "OUI"
Range("av" & lgn).Value = "NON"
Else
Range("au" & lgn).Value = "NON"
question:
numero = Application.InputBox("N° FNC :", Type:=1)
If numero = False Then MsgBox ("N° de FNC svp."): GoTo question
Range("av" & lgn).Value = numero
End If
End If
Next
End Sub
A+++
Jean Marie