Sujet Précédent Sujet Suivant

Excel : recupération données entre feuille

Fermé
astuclic Messages postés 4 Date d'inscription mercredi 4 février 2009 Statut Membre Dernière intervention 28 mai 2009 - 27 mai 2009 à 17:38
 Casimir85 - 19 août 2009 à 15:10
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.
A voir également:

3 réponses

Réponse 1 / 3
hich24 Messages postés 1633 Date d'inscription mardi 2 octobre 2007 Statut Membre Dernière intervention 3 novembre 2024 753
27 mai 2009 à 19:35
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
Réponse 2 / 3
Raymond PENTIER Messages postés 58760 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 15 décembre 2024 17 251
27 mai 2009 à 20:07
Effectivement, sans BVA c'est à peu près la seule manipulation possible ...
1
Réponse 3 / 3
astuclic Messages postés 4 Date d'inscription mercredi 4 février 2009 Statut Membre Dernière intervention 28 mai 2009 1
28 mai 2009 à 14:30
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
Casimir85
19 août 2009 à 15:10
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