Nombre de jours

[aziz]

Bonjour au forum, j'ai besoin de votre aide
je souhaite ignorer les cases non remplie et que la formule reprenne les cases ou il y a une date

merci

 

[zeltron24]

Re : Nombre de jours

Bonjour aziz
Essaie avec cette macro

Sub test()
Dim texte As String
Dim DateValid As Date
Dim ligne As Integer

ligne = 2
texte = ""
    Do While Feuil1.Cells(ligne, 3).Text <> ""
        DateValid = CDate(Feuil1.Cells(ligne, 3).Value)

        texte = texte & "La " & Feuil1.Cells(ligne, 1).Value & " est livré dans " & Int(DateValid - Now()) & " jours" & Chr(13)
        ligne = ligne + 1
        
      If Feuil1.Cells(ligne, 3).Text = "" Then
        ligne = ligne + 1
        End If
      
        
    Loop
    MsgBox texte
End Sub

 

[JCGL]

Re : Nombre de jours

Bonjour à tous,

Peux-tu essayer avec :

Sub test()
    Dim texte As String
    Dim DateValid As Date
    Dim ligne As Integer


    ligne = 2
    texte = ""
    Do While Feuil1.Cells(ligne, 1).Text <> ""
        If Feuil1.Cells(ligne, 3) <> "" Then
            DateValid = CDate(Feuil1.Cells(ligne, 3).Value)
            If Int(DateValid - Now()) > 0 Then
                texte = texte & "La " & Feuil1.Cells(ligne, 1).Value & " est livrée dans " & Int(DateValid - Now()) & " jours" & Chr(13)
            Else
                texte = texte & "La " & Feuil1.Cells(ligne, 1).Value & " a été livrée il y a " & Int(Now() - DateValid) & " jours" & Chr(13)
            End If
        End If
        ligne = ligne + 1
    Loop
    MsgBox texte
End Sub

A+ à tous

Edition : Oups, pas vu Zeltron... Salut !

 

[zeltron24]

Re : Nombre de jours

Bonjour JCGL

Encore mieux que moi...... Bonne journée

 

[aziz]

Re : Nombre de jours

Super, merci beaucoup zeltron24 et JCGL
ça fonctionne. j'ai une question, est ce possible de mettre en rouge dans la msgbox les produits déjà livrés ?
merci

 

[JCGL]

Re : Nombre de jours

Bonjour à tous,

C'est possible mais très lourd à mettre en oeuvre...

A+ à tous

 

[zeltron24]

Re : Nombre de jours

Re,

Peut être ceci...

 

[aziz]

Re : Nombre de jours

merci à vous deux
bonne journée

 

[JCGL]

Re : Nombre de jours

Bonjour à tous,

Deux MsgBox pour différencier les "attendues" des "réalisées"

A+ à tous

 

[Modeste geedee]

Re : Nombre de jours

Bonsour®

Super, merci beaucoup zeltron24 et JCGL
ça fonctionne. j'ai une question, est ce possible de mettre en rouge dans la msgbox les produits déjà livrés ?
merci

Non 🙁
mais comme à fait JCGL :

Sub test()
Dim texte As String
Dim DateValid As Date
Dim ligne As Integer

ligne = 2
texte = ""
    Do While Feuil1.Cells(ligne, 1).Text <> ""
        DateValid = CDate(Feuil1.Cells(ligne, 3).Value)
        If DateValid > 0 Then
        texte = texte & Feuil1.Cells(ligne, 1).Value & Chr(9) & IIf(DateValid < Now, " Dispo depuis ", " Livrable dans ") & Abs(Int(DateValid - Int(Now()))) & " jours" & Chr(13)
        End If
        ligne = ligne + 1
    Loop
    MsgBox texte
End Sub

 

[JCGL]

Re : Nombre de jours

Bonjour à tous,

Je suis en train de me "Jobiser"... Coucou Gérard. 😀


Avec mise en couleur des cellules et accord de "jour"

A+ à tous

 

[aziz]

Re : Nombre de jours

Bonsoir JCGL,
j'essaye d'appliquer dans ce nouveau fichier et j'ai une erreur 424 pourquoi ?
merci à toi
Bonne soirée

 

[Modeste geedee]

Re : Nombre de jours

Bonsour®
parce que l'objet Feuil1 n'existe plus !

à la place :
il y a un objet Feuil4 dont le nom est "Feuil1"
🙄

 

[aziz]

Re : Nombre de jours

Oh, mille merci effectivement
par contre quel modif dans la formule, pour ne pas tenir compte des cellule vide dans la 1ere colonne (produit).
merci

 

[JCGL]

Re : Nombre de jours

Bonjour à tous,

Merci Geedee pour le SAV

Aziz : Mon fichier du #11 est nettement plus abouti...

A+ à tous