Excel alerte

Donc voila la nouvelle macro qui doit remplacer la précédente :

Private Sub Workbook_Open()

On Error Resume Next

mes = "ALERTE pour :" & Chr(10) & Chr(10)
Sheets("Feuil1").Select
der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9
For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der

If Cells(n, 4).Value <> "" Then mes = mes & Cells(n, 3) & " * " & Cells(n, 9) & " * " & Cells(n, 4) Else GoTo suite

If Cells(n, 14).Value <> "N/A" Then mes = mes & " * Sous douane"

If Cells(n, 13).Value <> "N/A" Then mes = mes & " * Livrer le " & Cells(n, 13).Value & " Transit = " & (Cells(n, 13).Value - Cells(n, 12).Value + 3)

mes = mes & Chr(10)
suite:
Next
MsgBox (mes)
End Sub

En espérant que ça aille

Voila le mieux que je puisse faire :

Private Sub Workbook_Open()

On Error Resume Next

mes = "ALERTE pour :" & Chr(10) & Chr(10) & "SUPPLIER ORDER ABW LIVRAISON TRANSIT" & Chr(10) & Chr(10)
Sheets("Feuil1").Select
der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9
For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der
nom = Cells(n, 3)
ord = Cells(n, 9)
abw = Cells(n, 4)
If Cells(n, 4).Value <> "" Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") Else GoTo suite

If Cells(n, 14).Value <> "N/A" And Cells(n, 13) = "N/A" Then mes = mes & "Sous douane"

If Cells(n, 13).Value <> "N/A" Then mes = mes & "le " & Cells(n, 13).Value & " " & (Cells(n, 13).Value - Cells(n, 12).Value + 3)

mes = mes & Chr(10)
suite:
Next
MsgBox (mes)
End Sub

Je ne peux pas plus
Les données sont "alignées" par le remplacement des caracteres manquants par rapport à 15 caracteres par des espaces mais alignement ne peut pas être parfait car dans les noms de départ des mots de même nombre de caractères n'ont pas la même longueur (un i est moins large qu'un m par exemple)
Quant à la fenetre d'alerte elle s'agrandit automatiquement en fonction du nombre de lignes
mais ATTENTION une messagebox est limitée à un millier de caractères donc si tu beaucoup de lignes il y en a qui ne seront pas affichées
Si tu as beaucoup de données ce n'est pas par Messagebox qu'il faut proceder, il faut faire recopier les données que tu veux dans une 2nde feuille dans un tableau et que l'alerte se contente à afficher cette feuille à l'ouverture du classeur
Mais là je te laisse faire le boulot !

La macro a été faite pour la feuille 1

cf la 4eme ligne : Sheets("Feuil1").Select
qui selectionne la feuille nommée "Feuil1"
Si tu veux qu'elle s'applique à une autre feuille (si les données sont dans un tableau identique) il faut changer le nom dans la parenthese sur la 4eme ligne

??
la feuille 2 doit comporter un tableau strictement identique à celui de la feuille 1(nombre de colonnes et titres etc) puisque la recuperation des données est fondée sur ces colonnes

Adapte la macro en conséquence ! C'est comme ça qu'on apprend

le principe de base sont des tests de condition :

IF la condition qu'on veut THEN ce qu'on veut si la condition est bonne
ou
IF 1ere condition AND 2eme condition THEN

Par exemple : If Cells(n, 14).Value <> "N/A" and if cells((n,13).value then mes="Sous douane"
signifie SI la valeur decellule ligne n colonne 14 est differente de "N//A" ET la valeur de la cellule ligne n colonne 13 est aussi differente de "N/A" ALORS la variable mes est égale à elle même à laquelle on ajoute le texte "Sous douane"

Pour faire la différence entre aujourd'hui et la date d'une colonne le code est
dif = Date - cells(n,14).value
dif est le nom que tu donnes à la variable (tu peux mettre autre chose)
Date est la date du jour
Cells (n,14).value est la date contenue dans la cellule ligne n colonne 14

Ensuite tu peux tester avec une condition si la difference convient , ici tu veux ne retenir que les livraisons depuis 7 jours donc inferieures à 8 jours donc tu codes :
IF dif <8 THEN ..........

Bon courage

Re

Déja ta ligne ne peut pas marcher :
If Cells(n, 14).Value <> "N/A" And if Cells(n, 13).Value Then mes = mes & "Sous douane"
ce devrait être plutot :
If Cells(n, 14).Value <> "N/A" And Cells(n, 13).Value="N/A" Then mes = mes & "Sous douane"

Cette ligne prend en compte les Sous douane si c'est ta condition première elle doit venir en 1er et sinon on va à la fin sans executer le reste par un ELSE GOTO ....

donc la macro seraiit plutôt :

Private Sub Workbook_Open()

On Error Resume Next

mes = "ALERTE pour :" & Chr(10) & Chr(10) & "SUPPLIER ORDER ABW LIVRAISON TRANSIT" & Chr(10) & Chr(10)
Sheets("Feuil3").Select
der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9
For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der
nom = Cells(n, 3)
ord = Cells(n, 9)
abw = Cells(n, 4)

If Cells(n, 14).Value <> "N/A" <gras>And Cells(n, 13).Value="N/A" Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") & " Sous douane" Else GoTo suite

dif = Date - Cells(n, 14).Value

If dif < 8 Then mes = mes & "le " & Cells(n, 13).Value & " " & (Cells(n, 13).Value - Cells(n, 12).Value + 3)

mes = mes & Chr(10)
suite:
Next
MsgBox (mes)
End Sub

Ben vi !!
<gras> n'existe pas dans la macro ! (Ca ne t'as pas paru bizarre !)
c'est un bug du site car j'avais mis en gras la phrase (<gras> est la balise HTML pour mettre en gras mais elle ne devrait pas apparaitre )

la bonne ligne est donc :
If Cells(n, 14).Value <> "N/A" And Cells(n, 13).Value="N/A" Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") & " Sous douane" Else GoTo suite

Essaye cette macro

Private Sub Workbook_Open()
On Error Resume Next
mes = "ALERTE pour sous douane :" & Chr(10) & Chr(10) & "SUPPLIER ORDER ABW DATE LIVRAISON et TRANSIT" & Chr(10) & Chr(10)
Sheets("Feuil3").Select
der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9
For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der
nom = Cells(n, 3)
ord = Cells(n, 9)
abw = Cells(n, 4)
dif = Date - Cells(n, 13).Value
If Cells(n, 14).Value <> "N/A" And Cells(n, 13).Value <> "N/A" And dif < 8 and dif >=0 Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") & Cells(n, 13).Value & " " & (Cells(n, 13).Value - Cells(n, 12).Value + 3) & " jours" Else: GoTo suite
mes = mes & Chr(10)
suite:
Next
MsgBox (mes)
End Sub

Les conditions sont réunies sur la même ligne et sont :
- il n'y a pas N/A en col 14 : cells(n,14) <>"N/A") donc il ya date ATA PAYS
- il n'y a pas N/A en col 13 : cells(n,13) <>"N/A") donc il y a date ATA SITE
- la diffference entre la date d'aujourd'hui et la date de livraison est inferieure à 8 et superieure ou egale à 0 : dif < 8 and dif >=0 donc on ne retient que les lignes avec une date de livraison dans les 7 derniers jours

Est ce enfin correspondant à ce que tu recherches ?

Dans ce cas se sera plutôt cette macro :
On "elimine" d'abord ceux qui ont N/A en ATA PAYS avec goto suite
On ajoute les noms et N° au message à afficher
Puis si date en ATA SITE qui est compris dans les 7 derniers jours on ajoute la date et le nbre de jours de transit

Private Sub Workbook_Open()

On Error Resume Next
mes = "ALERTE pour sous douane :" & Chr(10) & Chr(10) & "SUPPLIER ORDER ABW DATE LIVRAISON et TRANSIT" & Chr(10) & Chr(10)
Sheets("Feuil3").Select
der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9
For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der
nom = Cells(n, 3)
ord = Cells(n, 9)
abw = Cells(n, 4)
dif = Date - Cells(n, 13).Value
If Cells(n, 14).Value = "N/A" Then GoTo suite ' si N/A en col 14 on passe au suivant
mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") ' ajoute nom, oder et abW au message
If Cells(n, 13).Value <> "N/A" And dif < 8 And dif >= 0 Then mes = mes & " " & Cells(n, 13).Value & " " & (Cells(n, 13).Value - Cells(n, 12).Value + 3) & " jours" ' si col 13 remplie et date inferieure à aujourddhui entre 0 et 7 jours , ajoute date livraison et jours transit
mes = mes & Chr(10)
suite:
Next
MsgBox (mes)
End Sub

Tu veux afficher 2 boites de messages l'une apres l'autre si je comprends bien

La 1ere affiche les sous douane livrés
le ELse goto suite est inutile (ce qui est à effectuer peut tout être mis dans le IF) et la macro devient :

On Error Resume Next
mes = "ALERTE pour sous douane :" & Chr(10) & Chr(10) & "SUPPLIER ORDER ABW DATE LIVRAISON et TRANSIT" & Chr(10) & Chr(10)
Sheets("Feuil3").Select
der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9
For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der
nom = Cells(n, 3)
ord = Cells(n, 9)
abw = Cells(n, 4)
dif = Date - Cells(n, 13).Value
If Cells(n, 14).Value <> "N/A" And Cells(n, 13).Value <> "N/A" And dif < 8 and dif >=0 Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") & Cells(n, 13).Value & " " & (Cells(n, 13).Value - Cells(n, 12).Value + 3) & " jours" & Chr(10)
Next
MsgBox (mes)

La 2nde affiche les sous douane non livrés
donc puisque pas de date de livraison pas besoin de calculer dif et le transit et la macro devient:

mes = "ALERTE pour :" & Chr(10) & Chr(10) & "SUPPLIER ORDER ABW " & Chr(10) & Chr(10)
Sheets("Feuil3").Select
der = Range("L9").End(xlDown).Row 'recherche derniere cellule remplie à partir de L9
For n = 10 To der 'boucle depuis la ligne 10 jusqu'à la ligne der
nom = Cells(n, 3)
ord = Cells(n, 9)
abw = Cells(n, 4)

If Cells(n, 14).Value <> "N/A" And Cells(n, 13).Value="N/A" Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") & Chr(10)

Next
MsgBox (mes


C'est çà où je me trompe sur ce que tu veux ?

bonsoir

La macro fonctionne, si des données ont ignorées c'est soit qu'il y en a trop pour la box soit que les critères de tri ne sont pas bons

Quelles données manquent ?

Si ce sont les dernieres dans le tableau c'est problablement un probleme de taille limite du nombre de caracteres dans la box comme je te l'expliquais dans un précédent message et là rien à faire sauf à tout changer et ne plus récapituler les infos dans une box mais dans une autre feuille excel (où là tu ne seras pas limité)

Si au contraire ce sont des données dans tout le tableau qui manquent alorsc'est que le critères de tri de la macro ne sont pas les bons ou pas complets (pourtant ils ont été établis en fonction de tes renseignements et choix mais un élément a pu être oublié)

Dans l'attente de savoir

Je ne comprends rien !

Dans la macro il faut déjà augmenter les valeurs pour les espaces :
If Cells(n, 14).Value <> "N/A" And Cells(n, 13).Value <> "N/A" And dif < 8 and dif >=0 Then mes = mes & nom & String(15 - Len(nom), " ") & ord & String(15 - Len(ord), " ") & abw & String(20 - Len(abw), " ") & Cells(n, 13).Value & " " & (Cells(n, 13).Value - Cells(n, 12).Value + 3) & " jours" & Chr(10)
change ce chiffre 15 en 25 dans les 2 lignes de la macro où il y a l'expression ((15-Len(nom) pour le cas des livrés et des non livrés

Par contre si tu as trop de noms à afficher par rapport à la taille de la box fenetre, là il n'y a rien à faire car Ecel limite la box en caractères comme je t'ai déjà dit . Si c'est le cas il faut abandonner l'idée de vouloir faire une alerte par fenetre et proceder autrement c'est à dire reprendre completement la macro pour faire afficher les noms que tu veux non plus dans une box mais sur une feuille excel (dans un tableau meme si tu veux) car là tu ne seras pas limité

Tu m'envoie le fichier mais sans macro !!
De plus il n'y a pas dans le fichier les noms que tu citais dans un précédent message
Que veux tu qu'on fasse ?
Passes en message privé si tu veux, je n'avais pas vu que m'en avais envoyé un avant