Filtrer deux dates et afficher le résultat dans lisbox

Bonjour

je suis novice en VBA

Mon objectif c'est filtrer le tableau à l'ouverture du form et afficher que les autorisations qui sont valable aujourd'hui,

la date du jour sera affiché directement dans les 2 textbox.

mon code affiche une erreur

voir fichier joint

Merci pour votre aide

Un essai à tester. Te convient-il ?

Bye !

Bonsoir,

Je n'ai pas de pb de MFC si je vide le tableau.

Sub SuppressionLigneTableau()
  n = 1
  If [tableau1].Item(n, 1) <> "" Then [tableau1].Rows(n).delete
End Sub

Sub InsèreLigneTableau()
  [tableau1].Rows(1).Insert
End Sub

Sub AjoutFinTableau()
  n = [tableau1].Rows.Count + 1
  [tableau1[nom]].Item(n, 1) = "xxxx"
End Sub

Sub VideTableau()
  [tableau1].delete
End Sub

Boisgontier

gmb a écrit :

Un essai à tester. Te convient-il ?

Bye !

Super merci beaucoup

Boisgontierjacques a écrit :

Bonsoir,

Je n'ai pas de pb de MFC si je vide le tableau.

Sub SuppressionLigneTableau()
  n = 1
  If [tableau1].Item(n, 1) <> "" Then [tableau1].Rows(n).delete
End Sub

Sub InsèreLigneTableau()
  [tableau1].Rows(1).Insert
End Sub

Sub AjoutFinTableau()
  n = [tableau1].Rows.Count + 1
  [tableau1[nom]].Item(n, 1) = "xxxx"
End Sub

Sub VideTableau()
  [tableau1].delete
End Sub

Boisgontier

Merci beaucoup

dindino a écrit :

Boisgontierjacques a écrit :

Bonsoir,

Je n'ai pas de pb de MFC si je vide le tableau.

Sub SuppressionLigneTableau()
  n = 1
  If [tableau1].Item(n, 1) <> "" Then [tableau1].Rows(n).delete
End Sub

Sub InsèreLigneTableau()
  [tableau1].Rows(1).Insert
End Sub

Sub AjoutFinTableau()
  n = [tableau1].Rows.Count + 1
  [tableau1[nom]].Item(n, 1) = "xxxx"
End Sub

Sub VideTableau()
  [tableau1].delete
End Sub

Boisgontier

Merci beaucoup

je viens de regarder mais ça n'a rien à voir avec mon fichier .

pas grave merci