mariobross
XLDnaute Occasionnel
bonjour le forum , j'ai 2 texbox ,dans la 1ere j'importe une date depuis la feuille de calcul , dans la 2eme j'affiche un texte si la date est dépassé:mon idée est :
'j'importe une date depuis la feuille vers la 1ere texbox
texbox1 = Feuil3.RANGE("G21").Value
'je teste si la date dans la 1ere texbox est inferieure à la date d'aujourdhui
If texbox1 .Value < Now Then
'si oui je met un texte d'info dans la 2eme texbox
texbox2 = "Pas d'abonnement ou abonnement terminé"
End If
sans résultat.....avez vous une solution. merci.
'j'importe une date depuis la feuille vers la 1ere texbox
texbox1 = Feuil3.RANGE("G21").Value
'je teste si la date dans la 1ere texbox est inferieure à la date d'aujourdhui
If texbox1 .Value < Now Then
'si oui je met un texte d'info dans la 2eme texbox
texbox2 = "Pas d'abonnement ou abonnement terminé"
End If
sans résultat.....avez vous une solution. merci.