Bonjour, tout d'abord, super vidéo très bien expliquée et détaillée je dois vous avouer !!! Je souhaiterai savoir et vous demander dans le cadre d'une mise en place d'un fichier de contrôle de denrées périssables sur Excel dans le cadre de mon travail dans le commerce, si c'est possible et comment faire si c'est le cas pour mettre en place le message d'alerte pop up sur plusieurs onglets d'un même fichier Excel ? Merci d'avance pour votre retour et de votre réponse. Cordialement.
Bonjour, et bien tout d'abord merci pour votre message, ça fait plaisir !!! J'ai fait un test pour appliquer le message d'alerte sur un 2nd onglet. Il faut copier la 1ère VBA (à partir de 'Code du bloc relatif...) et la coller juste avant End Sub, et modifier ensuite les paramètres de l'onglet (nom) et du message (2ème message). Je suis en train de préparer une vidéo que je posterai en fin d'après-midi avec les étapes à réaliser, ça sera plus clair je pense. Voici le code VBA (dans cet exemple, le 2nd onglet se nomme "Denrées") : Private Sub Workbook_Open() 'Définir les constantes pour la colonne "ÉCHÉANCE" Dim Nblg1 As Long Dim Msg1 As String 'Code du bloc relatif à la vérification dans les cellules de la colonne (B, ÉCHÉANCE, 2) Application.ScreenUpdating = False With Sheets("Conventions") Nblg1 = .Range("B" & Rows.Count).End(xlUp).Row .Range("A1:B" & Nblg1).AutoFilter field:=2, Criteria1:=" 1 Then For Each Cel In .Range("A2:B" & Nblg1).SpecialCells(xlCellTypeVisible) Msg2 = Msg2 & vbCr & Cel & "" & Cel.Offset(0, 2) Next Cel End If .Range("A2:B" & Nblg1).AutoFilter End With If Len(Msg2) > 0 Then MsgBox "ATTENTION, date d'alerte concernant le(s) denrée(s) de :" & Msg2, vbCritical End If End Sub
Merci infiniment pour votre réponse et de la rapidité de votre retour !!! Je vous remercie très sincèrement pour avoir pris le temps de répondre à ma demande et d'avoir en plus posté une nouvelle vidéo pour que je puisse mettre en application de la meilleure des manières mon projet professionnel. Je vais essayer de parametrer la VBA et de faire le nécessaire dans les prochains jours je reviens vers vous si je rencontre d'éventuels problèmes. Encore merci et félicitations pour votre professionnalisme et votre aide 👍👍👍👏👏👏👌👌👌
@@julienfirmin5091 Je vous en prie et vous remercie moi aussi sincèrement pour votre message. C'est avec plaisir que je fais ces petites vidéos pour aider au mieux les personnes qui le souhaitent. N'hésitez surtout pas à revenir vers moi si ça ne fonctionne pas ou si ce n'est pas vraiment ce que vous attendiez ; je pourrai réfléchir à d'autres solutions 😉
Re bonjour et excusez mon retard pour mon retour suite à la demande pour comment faire pour planifier plusieurs échéances à venir concernant des dates de péremption sur Excel avec la fenêtre pop-up et bien tout fonctionne parfaitement et à merveille je vous remercie encore infiniment pour votre travail et votre professionnalisme car grâce à vous vous m'avez grandement facilité la tâche dans le cadre de mon travail !!! Vous êtes au top !!!
Bonjour, Merci beaucoup pour votre message 😃 et de m'avoir fait un retour sur l'application du code VBA 👍 Je suis très contente que l'écriture ait fonctionné et surtout que cela puisse vous aider dans votre quotidien. Bonne continuation à vous 😉
Private Sub Workbook_Open() 'Définir les constantes pour la colonne "ÉCHÉANCE" Dim Nblg1 As Long Dim Msg1 As String 'Code du bloc relatif à la vérification dans les cellules de la colonne (B, ÉCHÉANCE, 2) Application.ScreenUpdating = False With Sheets("Conventions") Nblg1 = .Range("B" & Rows.Count).End(xlUp).Row .Range("A1:B" & Nblg1).AutoFilter field:=2, Criteria1:="
merci pour ce code ! est-il possible de prendre la date d'échéance et de lancer l'alerte par anticipation sur -15 jours ou -30 ? sans forcément refaire une colonne ? merci de votre réponse et bonne journée
Bonjour, J'ai fait un test en ajoutant dans la VBA à la suite de CSng (Date) - CSng (-15) Le nombre correspondant au nombre de jours avant la date échéance. Ca semble fonctionner avec ma base test. Merci pour votre retour
Bonjour, Je me permets de commenter votre vidéo, Alors tout d'abord, merci pour ces explications de qualité. J'ai utilisé votre VBA pour un tableau excel de contrôle périodique de VGP (pour contrôle électrique, contrôle incendie, contrôle machines ...). 1/Est-ce qu'il fallait mettre la ligne dans une macro ? 2/ Vous ne présenté pas le débogage ou le lancement du code il me semble. Il faut faire un débogage ou juste lancer le code ? 3/ Est-ce que c'est une fenêtre qui s'ouvre dès l'ouverture du fichier excel ? Ou bien il faut la lancer manuellement ? (Perso j'ai fait un raccourci Ctrcl+a MAIS je souhaiterais que cette alerte s'ouvre dès que j'ouvre le fichier) Pouvez-vous m'aider svp ? Je vous remercie :)
Bonjour, Je vous remercie pour votre message. Je vais essayer d'apporter une réponse à vos 3 interrogations. 1/ vidéo à 0:45 : lorsque vous double-cliquez sur "ThisWorkbook", la zone de texte grise à droite, devient blanche. C'est ici que vous collez directement le texte de la macro (je ne sais pas si j'ai répondu à votre question par rapport à la ligne dans la macro). 2/ vidéo à 1:47 : il vous suffit de cliquer sur la croix en haute à droite (la plus haute) pour fermer la fenêtre de la macro et revenir sur votre tableau Excel. Ensuite, vous devez enregistrer votre fichier sous le format "Classeur Excel (prenant en charge les macros)". Fermer ensuite votre fichier. 3/ à la 1ère ouverture, un bandeau jaune apparait "AVERTISSEMENT DE SÉCURITÉ Les macros ont été désactivées". Cliquer sur "Activer le contenu" et enregistrer à nouveau votre fichier. Dès l'ouverture du fichier, la Macro se lancera toute seule et la fenêtre pop up apparaitra avec le message d'alerte. En faisant ensuite "OK" , vous arriverez sur votre tableau Excel. N'hésitez pas à me dire si les explications vous ont permis de finaliser votre fichier comme vous le souhaitiez et/ou si vous avez besoin de précisions complémentaires.
Bonjour, elle est dans la partie "commentaires" , le 1er commençant par "Private Sub Workbook..." Je l'ai remise ci-dessous : Private Sub Workbook_Open() 'Définir les constantes pour la colonne "ÉCHÉANCE" Dim Nblg1 As Long Dim Msg1 As String 'Code du bloc relatif à la vérification dans les cellules de la colonne (B, ÉCHÉANCE, 2) Application.ScreenUpdating = False With Sheets("Conventions") Nblg1 = .Range("B" & Rows.Count).End(xlUp).Row .Range("A1:B" & Nblg1).AutoFilter field:=2, Criteria1:="
Bonjour, tout d'abord, super vidéo très bien expliquée et détaillée je dois vous avouer !!! Je souhaiterai savoir et vous demander dans le cadre d'une mise en place d'un fichier de contrôle de denrées périssables sur Excel dans le cadre de mon travail dans le commerce, si c'est possible et comment faire si c'est le cas pour mettre en place le message d'alerte pop up sur plusieurs onglets d'un même fichier Excel ? Merci d'avance pour votre retour et de votre réponse. Cordialement.
Bonjour, et bien tout d'abord merci pour votre message, ça fait plaisir !!!
J'ai fait un test pour appliquer le message d'alerte sur un 2nd onglet. Il faut copier la 1ère VBA (à partir de 'Code du bloc relatif...) et la coller juste avant End Sub, et modifier ensuite les paramètres de l'onglet (nom) et du message (2ème message). Je suis en train de préparer une vidéo que je posterai en fin d'après-midi avec les étapes à réaliser, ça sera plus clair je pense.
Voici le code VBA (dans cet exemple, le 2nd onglet se nomme "Denrées") :
Private Sub Workbook_Open()
'Définir les constantes pour la colonne "ÉCHÉANCE"
Dim Nblg1 As Long
Dim Msg1 As String
'Code du bloc relatif à la vérification dans les cellules de la colonne (B, ÉCHÉANCE, 2)
Application.ScreenUpdating = False
With Sheets("Conventions")
Nblg1 = .Range("B" & Rows.Count).End(xlUp).Row
.Range("A1:B" & Nblg1).AutoFilter field:=2, Criteria1:=" 1 Then
For Each Cel In .Range("A2:B" & Nblg1).SpecialCells(xlCellTypeVisible)
Msg2 = Msg2 & vbCr & Cel & "" & Cel.Offset(0, 2)
Next Cel
End If
.Range("A2:B" & Nblg1).AutoFilter
End With
If Len(Msg2) > 0 Then
MsgBox "ATTENTION, date d'alerte concernant le(s) denrée(s) de :" & Msg2, vbCritical
End If
End Sub
Merci infiniment pour votre réponse et de la rapidité de votre retour !!! Je vous remercie très sincèrement pour avoir pris le temps de répondre à ma demande et d'avoir en plus posté une nouvelle vidéo pour que je puisse mettre en application de la meilleure des manières mon projet professionnel. Je vais essayer de parametrer la VBA et de faire le nécessaire dans les prochains jours je reviens vers vous si je rencontre d'éventuels problèmes. Encore merci et félicitations pour votre professionnalisme et votre aide 👍👍👍👏👏👏👌👌👌
@@julienfirmin5091 Je vous en prie et vous remercie moi aussi sincèrement pour votre message. C'est avec plaisir que je fais ces petites vidéos pour aider au mieux les personnes qui le souhaitent. N'hésitez surtout pas à revenir vers moi si ça ne fonctionne pas ou si ce n'est pas vraiment ce que vous attendiez ; je pourrai réfléchir à d'autres solutions 😉
Re bonjour et excusez mon retard pour mon retour suite à la demande pour comment faire pour planifier plusieurs échéances à venir concernant des dates de péremption sur Excel avec la fenêtre pop-up et bien tout fonctionne parfaitement et à merveille je vous remercie encore infiniment pour votre travail et votre professionnalisme car grâce à vous vous m'avez grandement facilité la tâche dans le cadre de mon travail !!! Vous êtes au top !!!
Bonjour,
Merci beaucoup pour votre message 😃 et de m'avoir fait un retour sur l'application du code VBA 👍
Je suis très contente que l'écriture ait fonctionné et surtout que cela puisse vous aider dans votre quotidien.
Bonne continuation à vous 😉
Private Sub Workbook_Open()
'Définir les constantes pour la colonne "ÉCHÉANCE"
Dim Nblg1 As Long
Dim Msg1 As String
'Code du bloc relatif à la vérification dans les cellules de la colonne (B, ÉCHÉANCE, 2)
Application.ScreenUpdating = False
With Sheets("Conventions")
Nblg1 = .Range("B" & Rows.Count).End(xlUp).Row
.Range("A1:B" & Nblg1).AutoFilter field:=2, Criteria1:="
THANX BRO
merci pour ce code ! est-il possible de prendre la date d'échéance et de lancer l'alerte par anticipation sur -15 jours ou -30 ? sans forcément refaire une colonne ? merci de votre réponse et bonne journée
Bonjour,
J'ai fait un test en ajoutant dans la VBA à la suite de CSng (Date) - CSng (-15)
Le nombre correspondant au nombre de jours avant la date échéance.
Ca semble fonctionner avec ma base test. Merci pour votre retour
Bonjour,
Je me permets de commenter votre vidéo,
Alors tout d'abord, merci pour ces explications de qualité. J'ai utilisé votre VBA pour un tableau excel de contrôle périodique de VGP (pour contrôle électrique, contrôle incendie, contrôle machines ...).
1/Est-ce qu'il fallait mettre la ligne dans une macro ?
2/ Vous ne présenté pas le débogage ou le lancement du code il me semble. Il faut faire un débogage ou juste lancer le code ?
3/ Est-ce que c'est une fenêtre qui s'ouvre dès l'ouverture du fichier excel ? Ou bien il faut la lancer manuellement ? (Perso j'ai fait un raccourci Ctrcl+a MAIS je souhaiterais que cette alerte s'ouvre dès que j'ouvre le fichier) Pouvez-vous m'aider svp ?
Je vous remercie :)
Bonjour,
Je vous remercie pour votre message. Je vais essayer d'apporter une réponse à vos 3 interrogations.
1/ vidéo à 0:45 : lorsque vous double-cliquez sur "ThisWorkbook", la zone de texte grise à droite, devient blanche. C'est ici que vous collez directement le texte de la macro (je ne sais pas si j'ai répondu à votre question par rapport à la ligne dans la macro).
2/ vidéo à 1:47 : il vous suffit de cliquer sur la croix en haute à droite (la plus haute) pour fermer la fenêtre de la macro et revenir sur votre tableau Excel. Ensuite, vous devez enregistrer votre fichier sous le format "Classeur Excel (prenant en charge les macros)". Fermer ensuite votre fichier.
3/ à la 1ère ouverture, un bandeau jaune apparait "AVERTISSEMENT DE SÉCURITÉ Les macros ont été désactivées". Cliquer sur "Activer le contenu" et enregistrer à nouveau votre fichier.
Dès l'ouverture du fichier, la Macro se lancera toute seule et la fenêtre pop up apparaitra avec le message d'alerte. En faisant ensuite "OK" , vous arriverez sur votre tableau Excel.
N'hésitez pas à me dire si les explications vous ont permis de finaliser votre fichier comme vous le souhaitiez et/ou si vous avez besoin de précisions complémentaires.
Bonjour
Où se trouve : "l'écriture VBA" à laquelle vous faites référence pour que je puisse la copier ? Merci.
Bonjour, elle est dans la partie "commentaires" , le 1er commençant par "Private Sub Workbook..." Je l'ai remise ci-dessous :
Private Sub Workbook_Open()
'Définir les constantes pour la colonne "ÉCHÉANCE"
Dim Nblg1 As Long
Dim Msg1 As String
'Code du bloc relatif à la vérification dans les cellules de la colonne (B, ÉCHÉANCE, 2)
Application.ScreenUpdating = False
With Sheets("Conventions")
Nblg1 = .Range("B" & Rows.Count).End(xlUp).Row
.Range("A1:B" & Nblg1).AutoFilter field:=2, Criteria1:="