J'essai de faire apparaitre dans une ListBox le résultat d'un filtre.
Merci de m'aider une nouvelle fois !!
J'ai essayé avec ce bout de code mais bon ...erreur "impossible de définir
la propriété RowsSource"
Private Sub Filtrer_Click()
Dim a As Single
Dim b As Single
a = CDate(Text1)
b = CDate(Text2)
Dim Filtre As Integer
Dim Plage As Range
Liste1.RowSource = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Liste1.ListIndex = -1
Set Plage = Sheets("Feuil1").Range("A1:J" & Liste1.RowSource)
Plage.AutoFilter Field:=1, Criteria1:=">=" & a, Operator:=xlAnd,
Criteria2:="<=" & b
Je fais encore quelques tests et je n'arrive pas à reproduire le comportement que tu décris lors de la suppression de données.
Ceci termine mon intervention sur ce fil.
DAVID
Merci, je viens de trouver mais l'erreur était de moi (pas étonnant) désolé En fait, il fallait, apparemment, pas mettre ceci tout simplement ! With Sheets("BD") .Cells(X, 1).Delete .Cells(X, 2).Delete .etc End With
Juste une petite explication :
Pourquoi nommer With Feuil1 avec le CodeName de la feuille. et non pas par le nom de l'onglet ?
Merci de ton dévouement et de tes multiples interventions qui font de ce forum un incontournable passage obligatoire pour nous novice et désireux d'apprendre.
David
Merci, je viens de trouver mais l'erreur était de moi (pas étonnant) désolé
En fait, il fallait, apparemment, pas mettre ceci tout simplement !
With Sheets("BD")
.Cells(X, 1).Delete
.Cells(X, 2).Delete
.etc
End With
Juste une petite explication :
Pourquoi nommer With Feuil1 avec le CodeName de la feuille. et non pas par
le nom de l'onglet ?
Merci de ton dévouement et de tes multiples interventions qui font de ce
forum un incontournable passage obligatoire pour nous novice et désireux
d'apprendre.
Merci, je viens de trouver mais l'erreur était de moi (pas étonnant) désolé En fait, il fallait, apparemment, pas mettre ceci tout simplement ! With Sheets("BD") .Cells(X, 1).Delete .Cells(X, 2).Delete .etc End With
Juste une petite explication :
Pourquoi nommer With Feuil1 avec le CodeName de la feuille. et non pas par le nom de l'onglet ?
Merci de ton dévouement et de tes multiples interventions qui font de ce forum un incontournable passage obligatoire pour nous novice et désireux d'apprendre.
David
michdenis
Lorsque tu utilises la propriété "Name" (codename), si tu modifies l'onglet de la feuille, tu n'as rien à modifier dans le code.
D'autres raisons plus techniques...lors de la saisie, tu as droit à la liste déroulante proposant les propriétés et méthodes d'un objet "Feuille" lorsque tu utilises la propriété "Name" des objets "Feuille" . Exemple : Feuil1. ->provoque la liste déroulante
Worksheets("Feuil1"). rien ne se passe !
En plus, c'est aussi l'équivalent d'une liaison précoce versus une liaison tardive (je ne vais pas expliquer ça ici...) ce qui rend le code un "tantinet" plus rapide à l'exécution.
"DAVID" a écrit dans le message de groupe de discussion :
Merci, je viens de trouver mais l'erreur était de moi (pas étonnant) désolé En fait, il fallait, apparemment, pas mettre ceci tout simplement ! With Sheets("BD") .Cells(X, 1).Delete .Cells(X, 2).Delete .etc End With
Juste une petite explication :
Pourquoi nommer With Feuil1 avec le CodeName de la feuille. et non pas par le nom de l'onglet ?
Merci de ton dévouement et de tes multiples interventions qui font de ce forum un incontournable passage obligatoire pour nous novice et désireux d'apprendre.
David
Lorsque tu utilises la propriété "Name" (codename), si tu modifies
l'onglet de la feuille, tu n'as rien à modifier dans le code.
D'autres raisons plus techniques...lors de la saisie, tu as droit
à la liste déroulante proposant les propriétés et méthodes
d'un objet "Feuille" lorsque tu utilises la propriété "Name"
des objets "Feuille" .
Exemple :
Feuil1. ->provoque la liste déroulante
Worksheets("Feuil1"). rien ne se passe !
En plus, c'est aussi l'équivalent d'une liaison précoce versus
une liaison tardive (je ne vais pas expliquer ça ici...)
ce qui rend le code un "tantinet" plus rapide à l'exécution.
"DAVID" <direction-ternoise@wanadoo.fr> a écrit dans le message de groupe de discussion :
O4QHN4UmKHA.760@TK2MSFTNGP02.phx.gbl...
Merci, je viens de trouver mais l'erreur était de moi (pas étonnant) désolé
En fait, il fallait, apparemment, pas mettre ceci tout simplement !
With Sheets("BD")
.Cells(X, 1).Delete
.Cells(X, 2).Delete
.etc
End With
Juste une petite explication :
Pourquoi nommer With Feuil1 avec le CodeName de la feuille. et non pas par
le nom de l'onglet ?
Merci de ton dévouement et de tes multiples interventions qui font de ce
forum un incontournable passage obligatoire pour nous novice et désireux
d'apprendre.
Lorsque tu utilises la propriété "Name" (codename), si tu modifies l'onglet de la feuille, tu n'as rien à modifier dans le code.
D'autres raisons plus techniques...lors de la saisie, tu as droit à la liste déroulante proposant les propriétés et méthodes d'un objet "Feuille" lorsque tu utilises la propriété "Name" des objets "Feuille" . Exemple : Feuil1. ->provoque la liste déroulante
Worksheets("Feuil1"). rien ne se passe !
En plus, c'est aussi l'équivalent d'une liaison précoce versus une liaison tardive (je ne vais pas expliquer ça ici...) ce qui rend le code un "tantinet" plus rapide à l'exécution.
"DAVID" a écrit dans le message de groupe de discussion :
Merci, je viens de trouver mais l'erreur était de moi (pas étonnant) désolé En fait, il fallait, apparemment, pas mettre ceci tout simplement ! With Sheets("BD") .Cells(X, 1).Delete .Cells(X, 2).Delete .etc End With
Juste une petite explication :
Pourquoi nommer With Feuil1 avec le CodeName de la feuille. et non pas par le nom de l'onglet ?
Merci de ton dévouement et de tes multiples interventions qui font de ce forum un incontournable passage obligatoire pour nous novice et désireux d'apprendre.
