R
rem$
Guest
bonjour a tous
voici un petit pb de macro:
le test s'effectue sur la cellule ligne 4 alors qu'il faudrait qu'il s'execute sur la colone entiere et je ne sais pas par quoi je dois remplacer la valeur de range pour qu'il tienne compte de la valeur de la cellule active...
merci de votre aide
Private Sub validationdate()
Dim frigo As Variant
Dim numero As Variant
If Range("at4").Value < Range("as4").Value Then
Range("au4:av4").Value = "non"
End If
If Range("at4").Value > Range("as4").Value Then
Range("au4:av4").Value = "NON"
frigo = MsgBox("les boîtes ont-elles été bloquées au frigo??", vbYesNo, "demande....")
If frigo = vbYes Then
Range("au4").Value = "OUI"
Range("av4").Value = "NON"
Else
Range("au4").Value = "NON"
question:
numero = Application.InputBox("N° FNC :", Type:=1)
If numero = False Then MsgBox ("N° de FNC svp."): GoTo question
Range("av4").Value = numero
End If
End If
End Sub
voici un petit pb de macro:
le test s'effectue sur la cellule ligne 4 alors qu'il faudrait qu'il s'execute sur la colone entiere et je ne sais pas par quoi je dois remplacer la valeur de range pour qu'il tienne compte de la valeur de la cellule active...
merci de votre aide
Private Sub validationdate()
Dim frigo As Variant
Dim numero As Variant
If Range("at4").Value < Range("as4").Value Then
Range("au4:av4").Value = "non"
End If
If Range("at4").Value > Range("as4").Value Then
Range("au4:av4").Value = "NON"
frigo = MsgBox("les boîtes ont-elles été bloquées au frigo??", vbYesNo, "demande....")
If frigo = vbYes Then
Range("au4").Value = "OUI"
Range("av4").Value = "NON"
Else
Range("au4").Value = "NON"
question:
numero = Application.InputBox("N° FNC :", Type:=1)
If numero = False Then MsgBox ("N° de FNC svp."): GoTo question
Range("av4").Value = numero
End If
End If
End Sub