Contenu récent par DELHOMME

Bonjour au fil, Au final, pour réaliser ce filtre, j'ai concentré dans une seule cellule toutes les formules entrant comme conditions dans la plage des critères. L'avantage est de concentrer toutes les conditions dans une simple fonction logique ET. J'ai réalisé ensuite une macro très simple...

Hello à tous les deux, J'ai testé le code de Jean-marie avec la modif (CriteriaRange)... rien dans le résultat. Il y a la piste - pas de formule dans les cellules de la plage des critères - je vais tester tout ça ! Merci à vous.

hum... très judicieux ta remarque. j'ai testé la macro avec un seul critère (qui ne contient pas de formule) et effectivement ça marche. La piste - "pas de formule dans les cellules de la plage de critère avec de la VBA sur un filtre avancé" semble être la bonne... Je vais voir comment adapter...

je joins le fichier... c'est peut-être mieux pour suivre !

OK - pour le résultat - je dois avoir 70 lignes (réponses) - je viens de le faire en manuel et pour l'enregistrement de la macro J'ai refais mon filtre ("ExtraireFiltreNew") avec l'enregistreur de macro. J'ai cleané les scroll. Il se trouve dans le module 2 (ci-dessous) Sub ExtraireFiltreNew() '...

"peut etre une évolution de la version 365" - aie ! si c'est ça, ça promet pour la compatibilité "j'imagine que ton code vient de l'enregistreur de macro.." - non, je l'ai ecrit mais bon je ne suis pas un expert, il n'est peut-être pas bon "est ce que tu as bien repris les plages avec ou sans...

Hello, Merci à toi pour ton retour. je n'ai pas le problème en manuel (le résultat est bien copié dans l'onglet "essais")... l'action "xlFilterCopy" fait bien son taff. En passant par VBA, j'avoue que je ne sais pas car je n'ai rien du tout (l'objet de mon message...)

Bonjour, Je souhaite réaliser en vba un filtre avancé (élaboré) en VBA multi-critères - à partir d'un tableau de données (onglet "Source") - à partir d'une plage de critères ("A02:AQ24") que je trouverais dans chaque onglet crée (S41, S42...etc.. correspondant à une extraction hebdomadaire) -...

Bonjour, Merci pour votre retour. J'ai mis en place le code mais j'ai malheureusement une erreur de compilation (sub ou fonction non définie) pointée sur la mise en place de ce nouveau code. Quelques pistes pour que je puisse identifier le problème ? Merci. Bien à vous.

Pour être vraiment sûr d'avoir compris... 1) "chargé" pour vous, veut dire "écrit" pour moi tel que je l'ai présenté dans la fin de mon code ? 'On écrit dans la listBox Me.ListBox1.AddItem Cells(x, 1) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Cells(x, 2)...

Dranreb : Oui merci pour cette correction. J'avais bien résolu cette conversion aussi - cf : mon code d'écriture ci-dessous. Private Sub btnAjout_Click() Sheets("SourceSignalement").Activate 'on va sur la feuille "SourceSignalement" Range("A1").Select 'on se positionne sur la cellule A1...

Bonjour, Dranreb : Ah oui, c'est marrant et je suis très content qu'il puisse vous servir de base de données. Merci pour votre retour concernant le format de mes dates - je vais vérifier mais le fichier a évolué et j'ai établi un code permettant d'imposer un format de date : Private Sub...

Bonjour, Dans un userform, et à partir d'un filtrage que je fais à travers une combobox, je récupère les données filtrées automatiquement dans une listbox (5 colonnes : date / Intervenant / Code d'intervention / Eléments d'intervention / Commentaire). Tout ceci marche. Je souhaite maintenant...

Bonjour xUpsilon et Dranreb, Merci pour vos retours constructifs et pédagogiques. Effectivement, il ne faut pas renseigner de propriété RowSource. Le code initial était bon mais ce renseignement bloqué tout. Merci encore pour vos contributions. Bien à vous, Titoo

Bonjour, Toujours rien... J'ai essayé aussi avec ce code : Private Sub UserForm_Initialize() Me.cboVannemasquée.SetFocus Dim J As Long With Sheets("Source") For J = 2 To .Range("C" & Rows.Count).End(xlUp).Row If .Range("I" & J) = "M" Then Me.cboVannemasquée.AddItem...