rudy dehaudt
XLDnaute Occasionnel
bonjour a tous,
sur le liens cijoints j ai déposer un fichier qui a pour bût de répertorié mes bon de commande
j ai essayer de placer une case a cocher qui m averti a l ouverture du classeur si un avoir a dépasser la date limite
le code ci dessous fonctionne impect sur un autre fichier mais je n arrive pas a l adapter ( l indice n appartient pas a la sélection )
merci d avance de votre aide
A+
Private Sub Workbook_open()
Dim d As Date
d = Date
For n = Sheets("Suivi de BL et FACTURE").Range("N65536").End(xlUp).Row To 2 Step -1'date maxi de l avoir
If d > Sheets("Suivi de BL et FACTURE").Range("N" & n) Then
If Sheets("Suivi de BL et FACTURE").Range("A" & P) = FAUX Then'case a cocher et fournisseur
a = Sheets("Suivi de BL et FACTURE").Range("H" & P)'montant de l voir et le fournisseur
r = d - Sheets("Suivi de BL et FACTURE").Range("N" & P).Value
MsgBox ("Retard du fournisseur " & Sheets("Suivi de BL et FACTURE").Range("N" & P) & " au montant de " & a & "€ étant du pour le " & Sheets("Suivi de BL et FACTURE").Range("B" & n).Value & " n'a pas été payé et est en retard de " & r & " jours")
End If
End If
Next n
End Sub
Cijoint.fr - Service gratuit de dépôt de fichiers
sur le liens cijoints j ai déposer un fichier qui a pour bût de répertorié mes bon de commande
j ai essayer de placer une case a cocher qui m averti a l ouverture du classeur si un avoir a dépasser la date limite
le code ci dessous fonctionne impect sur un autre fichier mais je n arrive pas a l adapter ( l indice n appartient pas a la sélection )
merci d avance de votre aide
A+
Private Sub Workbook_open()
Dim d As Date
d = Date
For n = Sheets("Suivi de BL et FACTURE").Range("N65536").End(xlUp).Row To 2 Step -1'date maxi de l avoir
If d > Sheets("Suivi de BL et FACTURE").Range("N" & n) Then
If Sheets("Suivi de BL et FACTURE").Range("A" & P) = FAUX Then'case a cocher et fournisseur
a = Sheets("Suivi de BL et FACTURE").Range("H" & P)'montant de l voir et le fournisseur
r = d - Sheets("Suivi de BL et FACTURE").Range("N" & P).Value
MsgBox ("Retard du fournisseur " & Sheets("Suivi de BL et FACTURE").Range("N" & P) & " au montant de " & a & "€ étant du pour le " & Sheets("Suivi de BL et FACTURE").Range("B" & n).Value & " n'a pas été payé et est en retard de " & r & " jours")
End If
End If
Next n
End Sub
Cijoint.fr - Service gratuit de dépôt de fichiers