excel alerte Fermé

Question

Bonsoir, 
Bonjour ,
est ce qu'il ya une possibilté de faire une alerte sur un fichier excel ,pour me permettre de changé le permis de mes chauffeurs a chaque fin de validité.
Salutations


Configuration: Windows 7 / Internet Explorer 9.0

via55 · Answer

Bonsoir,

Bien sûr

Tu veux quoi exactement ?
Un rappel combien de temps avant l'échéance ?

Rappel par simple relevé des noms des chauffeurs concernés dans une cellule en haut du tableau par exemple (ce qui peut se faire par formules)

ou rappel par un message dans une fenetre (demande de passer par du codage en VBA) ?

Comment est constitué ton tableau ? en quelles colonnes sont les noms et les dates ? 

Si tu peux mettre un exemple allégé et anonymé sur cjoint.com et indiquer ensuite le lien fourni ce serait mieux

Cdlmnt

CUTUITIOJ · Answer

VIA55; 
Petit problème sur mon nouveau tableau j'ai inserer la macro ça marche à moitié puis-la couleur de la case change mais l'alerte ne s'affiche pas  comme dans le tabeau que tu m'a fais.
Pouvez-vous me donner les demarches à faire pour bien appliquer cette Macro.
Salutations

CUTUITIOJ · Answer

Via55, 
je n'est vraiment pas reussi a la faire je t'est donc joint le fichier en question. 
je voudrai que le numero du vehicule et le d'affectation de la personne sort a chaque alerte . 
http://cjoint.com/?3CcxQtdVJtF

CUTUITIOJ · Answer

VIA55,  
c'est bon merci beaucoup pour votre service j'aimerai rester en contact avec toi comment faire pour te joindre en cas de besoin

CUTUITIOJ · Answer

Bonjour VIA55,  
est que en utilisant le même tabeau on peut faire un racourci sur le bureau pour me permettre si je clic sur le racourci ça me donne le rapport automatquement.  
Salutation

CUTUITIOJ · Answer

VIA55, 
la valeur de mon der =11 
donc la formule s'arrete la la colonne 11 j'aimerai que la formule part jusqu'a la fin de la colonne d'excel. 
Salutations

CUTUITIOJ · Answer

VIA55,
la valeur de mon der s'affiche comme suite
der=Range("D7").End(xldown).Row=11 donc je veus que le Row aille jusqu'a la dernière de la colonne D7

CUTUITIOJ · Answer

VIA55,
ok veuillez trouver le fichier en attache
http://cjoint.com/?3CeolMIv6ox 
Salutation

CUTUITIOJ · Answer

Via55,
je suis désolé ci-joint le tableau
http://cjoint.com/?3Cep2A4eDaw

CUTUITIOJ · Answer

VIA55,
ça marche à marveille vous êtes magnique Merci beaucoup.
j'aimerai savoir comment securisé et la macro et ma MFC
salutations

CUTUITIOJ · Answer

merci

CUTUITIOJ · Answer

VIA55, 
je veus ajouter une autre colonne N avec les valeurs de la colonne G7 en utilisant le même tableau dont va utiliser la macro pour faire resortir la date d'écheance des visites techniques sur le tableau en plus de ce qui a été fait pour les permis. 
Je suis à votre dispositions pour plus d'informations. 
Salutations

CUTUITIOJ · Answer

5/5 ça marche très bien merci beaucoup,
Via55 vous allez m'apprendre à faire des macros?
Salutations
Lamine

CUTUITIOJ · Answer

VIA55,  
maintenant j'ai fais un raccourci du fichier sur mon ECRAN ,es ce possible de faire en sorte que le fichier s'ouvre automatiquement à chaque une semaine.  
Salutations

CUTUITIOJ · Answer

Merci.

CUTUITIOJ · Answer

VIA55,
j'ai un fichier EXCEL dont je veus appliquer l'alerte comme la foi precedente,mais dans ce cas j'ai mis dans la feuille2 la manière dont l'alerte doit se presenter.
En plus je veus qu'il est possibilité que cette alerte soit envoyer comme mon rapport à mon superieur.le fichier même se trouve dans la feuille1.
j'ai mis un exemple du fichier ci dessous.
je suis à votre disposition plus d'information.
Salutations

http://cjoint.com/?3Cns3PO9kBB

CUTUITIOJ · Answer

VIA55,
j'essai d'appliquer la formule mais ça marque toujours "erreur de compilation End Sub attendu"
et met private sub workbook_open() en jaune.
Pouvez m'assister ou mettre un exemple dans le fichier.

CUTUITIOJ · Answer

VIA55,
ça marche mais l'alerte ne s'affiche pas comme le tableau de la feuille2

CUTUITIOJ · Answer

via55,
exactement

CUTUITIOJ · Answer

via55,
dans ce cas la macro ce declenche en tenant en compte lacolonne D.
je vous expliquer.
j'ennregistre dans le tableau si j'ai l'elemment de la colonne D qui est le numéro de la LTA et les autres donnés en suivent.
donc je voudrai que l'element declencheur de l'alerte soit les numeros de la colonne D.

CUTUITIOJ · Answer

via55;
pour toute les lignes ou se trouve un n°dans la colonne D

CUTUITIOJ · Answer

via55,
c'est exactement ça ,donc j'aimerai que si c'est livré que le sous douane s'efface.
en outre es ce on peut faire en sorte que l'alerte soit un tableau avec les libellés.

CUTUITIOJ · Answer

via55,
Excellent,juste aligner les donner sous leur libellés et mettre un clisseur pour me permettre de defiler en cas ou il aura plus de donner.

CUTUITIOJ · Answer

VIA55,
la même formule peut s'appliquer sur une 2e feuille dont l'alerte va prendre en charge en utilisant le même tableau que tu vien de faire pour la macro alerte

CUTUITIOJ · Answer

VIA55,
je l'ai fait mais la feuille 2 ne sort pas comme alerte à l'ouverture du classeur

CUTUITIOJ · Answer

VIA55,
Merci beaucoup ça marche je suis très content,
je n'ai toujours pas contact

CUTUITIOJ · Answer

Bonjour VIA55, 
j'ai finalement obter pour l'alerte avec la MACRO ,Mais la formule s'arrête a la ligne 21 du tableau je veus celà prenne tout le tableau en compte.
donc j'aimerai modifier l'alerte qui doit prend en charge que ce qui sont seulement sous douane et recenment livrer c'est à dire livrer il ya 7jours.
Sincère Salutation

CUTUITIOJ · Answer

VIA55, Voir ci dessous la formule que j'ai utilisé celà ne prend pas en compte seulement les "sous douane ". or je veut ça prenne que les "sous douane" et les livrés au cour d'une semaine en cour mentionnant la date comme dans la fourmule . Le "transit " reste la même mais sera en fonction de ce que l'alerte mentionnera c'est à dire transit "sous douane' et "livré" voir ci dessous 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, 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 if Cells(n, 13).Value Then mes = mes & "Sous douane" 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

CUTUITIOJ · Answer

VIA55, ça met la ligne ci dessous en rouge dans la macro et quant s'execute la macro s'affiche Erreur de compilation Erreur syntaxe 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

CUTUITIOJ · Answer

VIA55, 
Je n'ai pas eu votre réaction par rapport à mon message

la Macro est bonne. mais une dernière chose àprès sous douane l'alerte doit affiche la date de la livraison si c'est livré.
et je veus que cette date là arrête de s'affiché après 7jour avec tout le contenu de la ligne.
Quat au transit l'alerte n'arrive pas à le faire sortir.
Salutation

CUTUITIOJ · Answer

VIA55,
c'est exactement ça,il faut juste ajouter à cela la macro "sous douane" ci dessous.pour que les deux  sort dans l'alerte
Voir ci dessous si la macro est correct. et je pense qu'il manque une code pour que ça marche en semble
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

CUTUITIOJ · Answer

VIA55, tu m"a beaucoup aider j"ai reussi à le faire voir ci dessous la macro je voulais un petit detaille ça bloque à la fin . 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) 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" 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) Next MsgBox (mes) End Sub

CUTUITIOJ · Answer

VIA55,
Problème regler à 100/100 je suis vraiment satisfait.
je vous rémerci pour le temps que tu tes donnés pour faire ça .
Salutations

CUTUITIOJ · Answer

VIA55,
Es ce que on faire de cette alerte un tableau avec des lignes et des colonnes.
permettant de ranger un peut les données.
Salutations

CUTUITIOJ · Answer

VIA55,
petit problème la macro saute des donées quelle doit prendre .
alors je voudrai quelle prend toute les données de mon tableau qui sont concerner par la macro.

mon tableau est la même mais avec plusiuers ligne de donées.
slp pouvez vous m'aider

CUTUITIOJ · Answer

Via55, 
c"est surement un problème de caractère par ce que ça prend que c'est genre de nonm: Seven bridge et allens diesel. 
puuvez augmenter le caractère car j'ai des noms plus petit comme "tac pargiue"et poiuges" et des noms plus grand comme" anglu colt asgensu"

CUTUITIOJ · Answer

VIA55,
Voir ci-joint le fichier a voir si sa peut faire ou si je doit abondonner l'idée.
veuillez suprimer ce fichier àprès avoir fait une correction pour m'envoyer.
https://www.cjoint.com/?3CsoxjiqlUi

Excel alerte

37 réponses