pb de plage de celllule

[rem$]

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

 

[rem$]

re

petite precision: le test doit s'efectuer sur les colonnes des cellules nommées cad colonne AT, AS, AU et AV

merci d'avance

 

[CHti160]

Salut"rem$"
en pièce jointe une avancée du problème
si j'ai bien compris
A+++
Jean Marie

 

[CHti160]

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

 

[rem$]

bonjour a tous, Jean-marie

comme d'habitude...... quand je vois la solution je me dis toujours "mais pourquoi je n'y ai pas pensé....."
bien sur que ca marche et o poil!!!!!!!!!!!!!!!!!
resultat attendu est le bon (2eme solution)
car en fait je n'arrivais pas a recupérer la cellule de la ligne sur laquelle je travaillais

grace a ca tu as en plus reglé un deuxieme pb presque euivalent alors


un double merci.....................lollll

@ bientôt
Rem$

 

[CHti160]

re moi
ça me fait pareil quand je vois la solution je me dis c'est évident mais entre lire le code et le créer y'a des heures de différences lool
content du résultat car c'est pas toujours évident de comprendre l'extrait d'une procèdure
A+++
Jean Marie