ca ne marche pas chez moi quand je valide entrée après ca ne marche pas
@sefaciliterlavieavecexcel50088 күн бұрын
Bonjour, Est ce que vous pouvez me donner votre série de chiffres ? Tous les combien vous voulez les séparer ?
@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:="<=" & CSng(Date) If Application.Subtotal(103, .Columns("B")) > 1 Then For Each Cel In .Range("A2:B" & Nblg1).SpecialCells(xlCellTypeVisible) Msg1 = Msg1 & vbCr & Cel & "" & Cel.Offset(0, 2) Next Cel End If .Range("A2:B" & Nblg1).AutoFilter End With If Len(Msg1) > 0 Then MsgBox "ATTENTION, date d'alerte concernant le(s) convention(s) de :" & Msg1, vbCritical End If End Sub Merci pour votre intérêt. Bonne journée
@sefaciliterlavieavecexcel5008Ай бұрын
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:="<=" & CSng(Date) - CSng(-30) If Application.Subtotal(103, .Columns("B")) > 1 Then For Each Cel In .Range("A2:B" & Nblg1).SpecialCells(xlCellTypeVisible) Msg1 = Msg1 & vbCr & Cel & "" & Cel.Offset(0, 2) Next Cel End If .Range("A2:B" & Nblg1).AutoFilter End With If Len(Msg1) > 0 Then MsgBox "ATTENTION, date d'alerte concernant le(s) convention(s) de :" & Msg1, vbCritical End If End Sub
@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
@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.
@deliskander7172 Жыл бұрын
Thank you very much
@ben14fr Жыл бұрын
Bonjour, Après l'enregistrement de la macro "Report", je vous recommande d'éditer le code VBA et de rajouter au début de la macro la ligne : Application.ScreenUpdating = False (cela permet de supprimer l'effet de changement rapide entre les onglets)
@sefaciliterlavieavecexcel5008 Жыл бұрын
Bonjour, merci pour votre proposition d'amélioration et votre partage sur le forum 👍
@Fred-mz4ns Жыл бұрын
Merciiii. Je vais essayer… Ça va me servir !!
@Fred-mz4ns Жыл бұрын
Merci pour ce partage ! J’ai une question : est ce qu’il est possible de limiter les modifications. Par exemple : je souhaite uniquement qu’on ne puisse pas colorier une case d’une certaine couleur tout en autorisant les autres modifications.
@sefaciliterlavieavecexcel5008 Жыл бұрын
En appliquant une mise en forme conditionnelle aux cellules concernées, vous pourrez modifier les autres paramètres du format des cellules (il faudra cocher "Format de cellule" dans l'item "Protection de la feuille") . Seule la couleur des cellules ne pourra être changée Tuto à suivre sur la vidéo : kzfaq.info/get/bejne/oJ2Focqnt7K7mXk.html
@sefaciliterlavieavecexcel5008 Жыл бұрын
Merci pour votre intérêt !
@jeannemarie38 Жыл бұрын
Top 😉
@jeannemarie38 Жыл бұрын
Très intuitif, bien expliqué, facile à appliquer ! Merci !
@NyChrisMorelleManan Жыл бұрын
Je le trouve très top
@sefaciliterlavieavecexcel5008 Жыл бұрын
Merci ! 😊
@Fred-mz4ns Жыл бұрын
Une sacrée formule ! Merci pour ces explications !
@sefaciliterlavieavecexcel5008 Жыл бұрын
Merci beaucoup !
@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:="<=" & CSng(Date) If Application.Subtotal(103, .Columns("B")) > 1 Then For Each Cel In .Range("A2:B" & Nblg1).SpecialCells(xlCellTypeVisible) Msg1 = Msg1 & vbCr & Cel & "" & Cel.Offset(0, 2) Next Cel End If .Range("A2:B" & Nblg1).AutoFilter End With If Len(Msg1) > 0 Then MsgBox "ATTENTION, date d'alerte concernant le(s) convention(s) de :" & Msg1, vbCritical End If End Sub
@serviceinfo30607 ай бұрын
THANX BRO
@jeannemarie382 жыл бұрын
Est ce que vous auriez une idée pour un menu Excel qui permette de naviguer facilement dans les différents onglets ? Merci
@sefaciliterlavieavecexcel50082 жыл бұрын
Oui bien sûr. Je vous proposerai une vidéo tutorielle d'ici quelques jours