Sujet Précédent Sujet Suivant

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.
A voir également:

3 réponses

Réponse 1 / 3
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
Réponse 2 / 3
Raymond PENTIER Messages postés 71870 Date d'inscription   Statut Contributeur Dernière intervention   17 402
 
Effectivement, sans BVA c'est à peu près la seule manipulation possible ...
1
Réponse 3 / 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
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