Excel : recupération données entre feuille

astuclic -  
Bonjour à Tous,

Voilà j'ai un petit souci avec excel, mais je pense qu'ici bas il y a forcement une intelligence supprème qui aura la réponse.

Dans une feuille que nous nommerons Note de Frais il y a tout les frais liés à un déplacement structuré de la manière suivante :

Date / Libellé / Nature / PU / Qté / Montant / refacturable
01/01/09 / clients X / Train / 300 / 1 / 300 / oui
02/01/09/ clients y / repas / 150 / 1 / 150 / non
03/01/09/ Tours / péage / 12 / 1 / 12 / oui

Dans une autre feuille récupérer les lignes facturables les unes en dessous des autres et eviter de retrouver une ligne Blanche intercaler

Date / Libellé / Nature / PU / Qté / Montant / refacturable
01/01/09 / clients X / Train / 300 / 1 / 300 / oui
Sans avoir la ligne correspondant au non facturable en intervalle
03/01/09/ Tours / péage / 12 / 1 / 12 / oui

J'ai essayé avec Recherche V mais l'enregistrement se replace sur la ligne ou il a été trouvé.

Je resume, une feuille avec l'ensemble des données saisies, une feuille pour récupérer uniquement les données facturables les unes en dessous des autres. le tout sans utiliser VBA, juste avec des formules

Merci d'avance pour votre aide.
Configuration: Windows XP Internet Explorer 7.0

3 réponses

  1.  hich24
    il suffit de faire un filtre automatique
    1- tu selection la colonne refacturable
    2- menu donnée > filtre > filtre automatique
    3- tu ouvre la petit fleche ver le bas
    4- tu selectionne oui
    5- tu copie / coller
    2
    1. Raymond PENTIER
      Effectivement, sans BVA c'est à peu près la seule manipulation possible ...
      1
      1. astuclic Auteur
        Merci pour vos réponses, cependant pas le biais de VBA comment obtenir le résultat sur la seconde feuille.
        Sachant que je ne suis pas un pro de vba !!!!
        Sinon je vais essayer par le biais du tableau croisé dynamique.

        merci
        1
        1. Casimir85
          Bonjour,

          Je suis tombé par hazard sur ton problème et je te propose donc une solution :

          Si ta feuille 1 s'appelle "Note de Frais et ta seconde feuille s'appelle "Facturables"
          Tu peux utiliser la macro suivante :

          Sub Recopier_Facturable()

          ' Definition des variables
          Dim lNotedeFrais, cNotedeFrais, lFacturable, cFacturable
          Dim colonneFacturable, nbColonnes
          Dim oui

          ' Initialisation des variables
          lFacturable = 2
          cFacturable = 1
          colonneFacturable = 7
          lNotedeFrais = 2
          nbColonnes = 7
          Test = "oui"

          ' Boucle While pour que tant que la colonne Sexe : test la ligne
          While (Sheets("Note de Frais").Cells(lNotedeFrais, 1) <> "")
          If (Sheets("Note de Frais").Cells(lNotedeFrais, colonneFacturable).Value = Test) Then
          For cNotedeFrais = 1 To nbColonnes
          ' Copie de la valeur de la cellule puis du format de la cellule
          Sheets("Facturables").Cells(lFacturable, cFacturable).Value = Sheets("Note de Frais").Cells(lNotedeFrais, cNotedeFrais).Value
          Sheets("Facturables").Cells(lFacturable, cFacturable).NumberFormat = Sheets("Note de Frais").Cells(lNotedeFrais, cNotedeFrais).NumberFormat
          cFacturable = cFacturable + 1
          Next
          lFacturable = lFacturable + 1
          cFacturable = 1
          End If
          lNotedeFrais = lNotedeFrais + 1
          Wend
          End Sub
          0