Problème avec un filtre automatique

[DIAD]

Bonjour,

Dans une petite base de données après avoir appliquer un filtre je veux récupérer la première valeur qui est sur la deuxième ligne visible de cette base de données pour la copier avec une macro et la coller sur une autre feuille.


Si quelqu’un à une idée je le remercie d’avance.

 

[pierrejean]

Re : Problème avec un filtre automatique

bonjour DIAD

et bienvenue sur XLD

Des idées on n'en manque pas

pour nous permettre de les tester un petit fichier exemple serait le bienvenu
(sans données confidentielles , 48 k max , zippé de preference )

 

[BOISGONTIER]

Re : Problème avec un filtre automatique

Bonjour,

=INDEX(A2:A1000;EQUIV(1;(SOUS.TOTAL(3;INDIRECT("a"&LIGNE(A2:A1000))));0))
valider avec Maj+ctrl+entrée

JB
Formation Excel VBA JB

 

[DIAD]

Re : Problème avec un filtre automatique

Bonjour,

Je me suis mal expliqué en réalité je veux récupérer la première valeur de la colonne B et l’indiquer dans la case J1, ensuite j’aimerai copier le contenu qui apparaît dans les colonnes B E F vers la feuille n°2.

Regarde la pièce jointe Fichier de test.zip

 

[BOISGONTIER]

Re : Problème avec un filtre automatique

Bonjour,

Voir PJ

JB

 

[JCGL]

Re : Problème avec un filtre automatique

Bonjour à tous,

La formule de JB fonctionne très bien et même dans ton fichier MAIS tu as oublié de la valider par Ctrl + Maj + Entrée

A+

 

[DIAD]

Re : Problème avec un filtre automatique

Super je vais pouvoir continuer, un Grand merci à JB et JCGL

 

[DIAD]

Re : Problème avec un filtre automatique

Bonjour JB,

Est-il possible avec cette formule, si par exemple sur le mois de janvier il y à 5 lignes de les sélectionner et les copier sur une autre feuille du classeur?

Merci d'avance

 

[BOISGONTIER]

Re : Problème avec un filtre automatique

Dans ce cas, utiliser le filtre élaboré

JB

 

[DIAD]

Re : Problème avec un filtre automatique

Bonjour,

Je ne comprend pas, j'ai appliqué un filtre élaboré, mais lorsque je lance la macro qui va copie les information vers le fichier d'impression le programme ne trie pas mes informations par mois?

quelqu'un peut-il m'aider?

 

[Cousinhub]

Re : Problème avec un filtre automatique

Bonsoir,
pour effectuer un filtre élaboré, il te faut obligatoirement au moins 2 cellules dans la zone de critères...
Donc, en I1 de la feuille "BD", tu mets "MOIS", et tu mets ta liste de validation en I2
Ensuite, tu modifies ton code comme ceci :

    Sheets("BD").Range("B1:G15").AdvancedFilter Action:= _
        xlFilterCopy, CriteriaRange:=Sheets("BD")[COLOR="Red"].Range("I1:I2")[/COLOR], _
        CopyToRange:=Sheets("Mois").Range("A1:F1"), Unique:=False
    Columns("C:C").EntireColumn.AutoFit

 

[DIAD]

Re : Problème avec un filtre automatique

Un Grand Merci à tous


tous fonctionne super merci😉