Excel : recupération données entre feuille

astuclic Messages postés 4 Statut Membre -  
 Casimir85 -
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 Messages postés 1686 Statut Membre 753
     
    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
  2. Raymond PENTIER Messages postés 58225 Date d'inscription   Statut Contributeur Dernière intervention   17 488
     
    Effectivement, sans BVA c'est à peu près la seule manipulation possible ...
    1
  3. astuclic Messages postés 4 Statut Membre 1
     
    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