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
Ceci étant dit, un ex arbitraire en PJ que vous pouvez adapter, avec :
VB:
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