XL 2016 Msgbox conditionnel

[Gabriel.leroux82]

Bonjour,
Je suis nouveau dans vba, je veux créer un msgboxà l'ouverture du fichier avec une condition
le fichier contient un calendrier, chaque onglet par mois et je veux afficher selon une date donnée un message de paiement,
J'ai crée un dernier onglet dans ce fichier excel un tableau avec les dates en question et une alerte, exemple si date d'aujourd'hui = date donnée(dans le tableau) il affiche "ALERTE", ensuite avec les alertes (logiquement avoir une seulement dans le tableau le msg box s'affiche
donc,
si colonne "B1 à B900" = alerte
affiche "veuillez payer la facture"
sinon "" (IL N'AFFICHE RIEN)
il doit ensuite vérifier toutes les colonnes (B1 à B900)
end if

J'espère que c'est clair 🙂
Merci beaucoup

 

[sylvanu]

Bonjour Gabriel,
Vous auriez un petit fichier test, juste pour éviter de tout se retaper, et bien comprendre.
D'autant que

toutes les colonnes (B1 à B900)

il n'y a qu'une colonne.

 

[sylvanu]

Ceci étant dit, un ex arbitraire en PJ que vous pouvez adapter, avec :

Private Sub Workbook_Open()
Dim Chaine As String, L As Integer
    With Sheets("Alertes")
        For L = 2 To .Range("A65500").End(xlUp).Row
            If .Cells(L, "A") = Date Then
                Chaine = Chaine & .Cells(L, "B") & Chr(10)
            End If
        Next L
        MsgBox Chaine
    End With
End Sub

 

[Gabriel.leroux82]

Merci pour ta réponse, voici le fichier
C'est le dernier onglet qui sert comme référence pour le msgbox, (et non pas tout le document)
merci

 

[sylvanu]

Voilà.

 

[Gabriel.leroux82]

Merci, je vais l'essayer et je te reviens

 

[Gabriel.leroux82]

👍MERCI MERCI, ça fonctionne super bien