Extraire des données

[Caninge]

Bonsoir à tous,

J'ai cherché dans les exemples et je n'ai rien trouvé !

Voici mon problème :

Comment extraire dans un tableau des lignes et colonnes selon le mois choisi .

Dit comme ça cela ne veut pas dire grand-chose .

Je vous donne un fichier exemple et vous remercie en même temps.

A plus.

 

[jp14]

Re : Extraire des données

Bonsoir

Ci joint un fichier avec une macro évènementielle.
Elle se déclenche au changement du mois.

A tester

JP

 

[jmd2]

Re : Extraire des données

Hello

je te propose de filtrer

menu données/filtre auto

mais au préalable, tu insère une colonne C C4=MOIS(B4) formule à tirer vers le bas

et tu filtre selon cette colonne.

 

[BOISGONTIER]

Re : Extraire des données

Bonsoir,


Avec le filtre élaboré:

En M2: =ET(MOIS(Feuil1!B3)=MOIS(Feuil2!D3);ANNEE(Feuil1!B3)=ANNEE(Feuil2!D3))

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$D$3" And Target.Count = 1 Then
        Sheets("Feuil1").Range("B2:L1000").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("M1:M2"), CopyToRange:=Range("D4:N4"), Unique:=False
  End If
End Sub

JB
Formation Excel VBA JB

 

[Monique]

Re : Extraire des données

Bonjour,

Par formule Index Equiv

 

[Caninge]

Re : Extraire des données

bonsoir,

Je reviens de la répétition de la musique,
je regarde vos solutions demain soir.

Merci

A plus

 

[Caninge]

Re : Extraire des données

Bonjour Monique, BoisGontier,jmd2,jp14,

J'ai regardé toutes les solutions que vous m'avez proposé.

J'ai préféré prendre la solution de Monique sans macro.

Je suis arrivé à mettre toutes les formules du premier coup.

Merci à tous.

Excusez-moi pour le retard.

Caninge

 

[BOISGONTIER]

Re : Extraire des données

Bonjour,

Avec une seule formule (2 noms de champ)

Sélectionner D5:M19
=SI(ESTNUM(INDEX(Dates;PETITE.VALEUR(SI((MOIS($D$3)=MOIS(Dates))*(ANNEE($D$3)=ANNEE(Dates))>0;LIGNE(Dates)-2);LIGNE(INDIRECT("1:"&LIGNES(Dates))))));
INDEX(INDEX(BD;;COLONNE(1:10));PETITE.VALEUR(SI((MOIS($D$3)=MOIS(Dates))*(ANNEE($D$3)=ANNEE(Dates))>0;LIGNE(Dates)-2);LIGNE(INDIRECT("1:"&LIGNES(Dates)))));"")
Valider avec Maj+ctrl+entrée

JB

 

[Monique]

Re : Extraire des données

Bonjour,

De plus court à hypercourt

 

[Caninge]

Re : Extraire des données

Bonjour

Oh excusez-moi je n'avais pas vu les 2 autres réponses.

Merci

A plus.

 

[MOLAB]

Re : Extraire des données

Bonsoir
j'ai presque la même demande à vous faire
je suis obliger de faire une facture (exemple feuille 2) à partir du plaining (feuille 1) par société tous les mois
donc j'aimerais bien que vous m'aidez a trouver une soulutions qui me facilite cette tache
dans la facture j'ai besoin de la date, le nom du passager lieu de départ et lieu d'arriver et le tarif
comment faire appartir du planning pour établir la facture??