XL 2016 Gestion de L'erreur #valeur!

TooFatBoy à dit:

Bonjour,

J'avoue ne pas avoir compris grand chose, mais pour ne plus voir l'erreur, tu peux utiliser
=SIERREUR(STXT(A3;TROUVE("/";A3)-2;10);"")

Sinon, je te propose ça :

VB:

Private Sub Workbook_Open()
'
Dim w1 As Worksheet 'FEUILLE A CHOISIR
Dim D As Date
Dim P As Long, i As Long
Dim c As Range

'    Application.DisplayFullScreen = True
'    On Error Resume Next ' A CORRIGER CE PROBLÈME

    Set w1 = Sheets("feuil1") 'Feuille qui contient les alertes
    D = Date

    For Each c In Range("Tableau1[Colonne2]")
        If c.Value <> "" Then
            P = D - CDate(c.Value)
            If P > -15 And P <= 1 Then 'ESPACE TEMP
                i = i + 1
                MsgBox c.Offset(0, -1).Value & "  -  " & i, vbCritical, "IMPORTANT | Avant la fin du projet, vérifier si approbation à obtenir !"
            End If
        End If
    Next c

End Sub

Cliquez pour agrandir...

Gilles Carl à dit:

Bonjour Toofatboy,

Merci, c'est tout a fait cela.
pour ce qui est du msgbox je voulais dire : au lieu d'avoir plusieurs message pour chaque ligne trouvée
cela serait 1 message qui regrouperais toutes les lignes trouvée.
j'imagine que si il y aurais 20 lignes de trouvées cela serait assez pénible et long d'avoir 20 messages les
un après les autres, loll.

Cliquez pour agrandir...

Option Explicit

Private Sub Workbook_Open()
   Application.DisplayFullScreen = True   ' Plein écran éphémère
   On Error Resume Next   ' A CORRIGER CE PROBLÈME

   Dim w1 As Worksheet   'FEUILLE A CHOISIR
   Dim D As Date, i As Long, P As Long, texte As String

   Set w1 = Sheets("feuil1")   'Feuille qui contient les alertes
   D = Date

   For i = 3 To w1.Range("B" & Rows.Count).End(xlUp).Row   ' faire toute la colonne B
      P = D - w1.Range("B" & i)   ' colonne B Ligne 3
      If P > -15 And P <= 1 Then  'ESPACE TEMP
      texte = texte & vbLf & w1.Range("a" & i) 'collecte lignes concernées
      End If
   Next
   MsgBox texte, vbCritical, "IMPORTANT | AVANT LA FIN DU PROJET VÉRIFIÉ SI APPROBATION A OBTENIR!"
End Sub

Gilles Carl à dit:

pour ce qui est du msgbox je voulais dire : au lieu d'avoir plusieurs message pour chaque ligne trouvée
cela serait 1 message qui regrouperais toutes les lignes trouvée.

Cliquez pour agrandir...

TooFatBoy à dit:

Oui, j'avais fini par comprendre en relisant les questions sur le forum et dans le classeur.


Mais à mon avis, qu'il y ait 15 messages ou un seul, ce sera quasiment aussi chiant pour l'utilisateur qui du coup ne le lira pas... et même si tu tombes sur un énergumène qui lit quand même le message, il n'arrivera jamais à mémoriser la liste des noms, qui est donc totalement inutile !
C'est pourquoi, plutôt que d'essayer de développer un truc qui ne servira à rien, j'ai préféré mettre une simple MFC pour attirer l'œil de l'utilisateur. 😉

Cliquez pour agrandir...

cp4 à dit:

Bonjour @TooFatBoy 😉 , je partage ton avis.
J'ai essayé de répondre à sa demande. En effet, une MFC est plus indiquée ou une autre feuille.

Cliquez pour agrandir...

TooFatBoy à dit:

Oui, j'avais fini par comprendre en relisant les questions sur le forum et dans le classeur.


Mais à mon avis, qu'il y ait 15 messages ou un seul, ce sera quasiment aussi chiant pour l'utilisateur qui du coup ne le lira pas... et même si tu tombes sur un énergumène qui lit quand même le message, il n'arrivera jamais à mémoriser la liste des noms, qui est donc totalement inutile !
C'est pourquoi, plutôt que d'essayer de développer un truc qui ne servira à rien, j'ai préféré mettre une simple MFC pour attirer l'œil de l'utilisateur. 😉

Cliquez pour agrandir...

Gilles Carl à dit:

Bonjour, TooFatBoy et cp4

Vous avez entièrement raison et je l'apprécie.
cela fonctionne bien et
merci a vous deux et bonne journée.

Cliquez pour agrandir...

cp4 à dit:

@Gilles Carl : Merci de pointer message 2 de @TooFatBoy répondant à ta question initiale avec flèche haut ou flèche bas dans le petit cadre à droite du message). ça sera ta contribution pour facilité à d'autres membres en recherche de solution.

Cliquez pour agrandir...