Vous trouverez en commentaire l'écriture VBA proposée dans la vidéo afin de la copier. #excel #fenêtre #alerte #date
Пікірлер: 8
@sefaciliterlavieavecexcel50082 жыл бұрын
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:="
@serviceinfo30607 ай бұрын
THANX BRO
@user-my2jr9mq2z6 ай бұрын
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 :)
@sefaciliterlavieavecexcel50085 ай бұрын
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.
@am09462 ай бұрын
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
@sefaciliterlavieavecexcel5008Ай бұрын
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
@SergeBedouetАй бұрын
Bonjour Où se trouve : "l'écriture VBA" à laquelle vous faites référence pour que je puisse la copier ? Merci.
@sefaciliterlavieavecexcel5008Ай бұрын
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:="