Provence Vintage
XLDnaute Occasionnel
Bonjour le Forum,
J'ai dans un usf qui reste ouvert un textbox pour saisir date,
Puis, avec un commandButton, j'ouvre un autre USF, et l'objectif est d'utiliser la valeur saisie dans le textbox pour alimenter une listbox sous condition, mais les résultats ne sont pas cohérents...
Voici mon code:
#With Sheets("bdd acheteurs") 'prend en compte l'onglet "bdd acheteur"
For Each cel In .Range("B4:B" & .Range("B65536").End(xlUp).Row) 'boucle sur toute les cellules éditée de la colonne G
On Error GoTo suite 'gestion des erreurs (si la cellule n'est pas convertible en date, passe à la cellule suivante via l'étiquette "suite")
If CDate(cel.Value) >= Date - SaisirDate.TextBox2.Value Then 'condition : si la date de la cellule est inférieure à la date du jour - 7 jours
Me.ListBox1.AddItem cel.Offset(0, 2).Value 'ajoute à la ListBox2 la donnée en colonne B (colonne 0 de la listbox)
Me.ListBox1.Column(1, ListBox1.ListCount - 1) = cel.Offset(0, 5).Value 'ajoute à la ListBox2 la donnée de la colonne D (colonne 1 de la listBox)
Me.ListBox1.Column(2, ListBox1.ListCount - 1) = cel.Offset(0, 6).Value 'ajoute à la ListBox2 la donnée de la colonne F (colonne 2 de la listBox)
Me.ListBox1.Column(3, ListBox1.ListCount - 1) = cel.Row 'Ajoute à la ListBox2 le numéro de ligne de la donnée (Colonne 3 (masquée) de la listbox)
End If 'fin de la condition
suite: 'étiquette
On Error GoTo 0 'annule la gestion des erreurs
Next cel 'prochaine cellule de la boucle
End With #
j'ai éssayé avec Dim mavar; mavar = SaisirDate.TextBox2.Value, et ensuite
If CDate(cel.Value) >= Date - mavar Then
Mais.....
Si quelqu'un à une idée,
Merci
J'ai dans un usf qui reste ouvert un textbox pour saisir date,
Puis, avec un commandButton, j'ouvre un autre USF, et l'objectif est d'utiliser la valeur saisie dans le textbox pour alimenter une listbox sous condition, mais les résultats ne sont pas cohérents...
Voici mon code:
#With Sheets("bdd acheteurs") 'prend en compte l'onglet "bdd acheteur"
For Each cel In .Range("B4:B" & .Range("B65536").End(xlUp).Row) 'boucle sur toute les cellules éditée de la colonne G
On Error GoTo suite 'gestion des erreurs (si la cellule n'est pas convertible en date, passe à la cellule suivante via l'étiquette "suite")
If CDate(cel.Value) >= Date - SaisirDate.TextBox2.Value Then 'condition : si la date de la cellule est inférieure à la date du jour - 7 jours
Me.ListBox1.AddItem cel.Offset(0, 2).Value 'ajoute à la ListBox2 la donnée en colonne B (colonne 0 de la listbox)
Me.ListBox1.Column(1, ListBox1.ListCount - 1) = cel.Offset(0, 5).Value 'ajoute à la ListBox2 la donnée de la colonne D (colonne 1 de la listBox)
Me.ListBox1.Column(2, ListBox1.ListCount - 1) = cel.Offset(0, 6).Value 'ajoute à la ListBox2 la donnée de la colonne F (colonne 2 de la listBox)
Me.ListBox1.Column(3, ListBox1.ListCount - 1) = cel.Row 'Ajoute à la ListBox2 le numéro de ligne de la donnée (Colonne 3 (masquée) de la listbox)
End If 'fin de la condition
suite: 'étiquette
On Error GoTo 0 'annule la gestion des erreurs
Next cel 'prochaine cellule de la boucle
End With #
j'ai éssayé avec Dim mavar; mavar = SaisirDate.TextBox2.Value, et ensuite
If CDate(cel.Value) >= Date - mavar Then
Mais.....
Si quelqu'un à une idée,
Merci