Discussion :

[tchantches007]

Bonjour et merci d'avance.
Soit un tableau

a . b . c
1 . 2 . 2
0 . 3 . 3
1 . 4 . 4

J'aimerai pouvoir créer un nouveau tableau, basé sur le premier, mais ne reprenant QUE les lignes où la valeur de la colonne a est 1:

a . b . c
1 . 2 . 2
1 . 4 . 4

Je sais que la fonction DECALER existe, mais j'avoue ne pas comprendre sa syntaxe.

Encore merci d'avance.

[EngueEngue]

Par macro...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub toto()
With Sheets("lenomdetafeuille")
ligne = 1 'ligne ou commence ton tableau, où sont affichés les a b c
colonne = 2 'colonne contenant le A
derncol = .Cells(ligne, Columns.Count).End(xlToLeft).Column
.Range(.Cells(ligne, colonne), .Cells(ligne, derncol)).Copy Sheets("Lenomdelafeuilleoutuveuxtontabl").Range("A1")
k = 2
For i = ligne + 1 To .Cells(Rows.Count, colonne).End(xlUp).Row
If .Cells(i, colonne) = 1 Then
.Range(.Cells(i, colonne), .Cells(i, derncol)).Copy Sheets("Lenomdelafeuilleoutuveuxtontabl").Cells(k, 1)
k = k + 1
End If
Next i
End With
End Sub

[tchantches007]

Bien, merci pour ta réponse , mais je cherche plutôt une formule que du code ...
Pas de solution qui me conviendrait ?

[Philippe Tulliez]

Bonjour,
Si tu souhaites le faire avec des formules. SOMMEPROD répondra à ton attente et si tu veux faire une exportation l'outil filtre avancé est une solution.

[tchantches007]

Bonjour,
Si tu souhaites le faire avec des formules. SOMMEPROD répondra à ton attente et si tu veux faire une exportation l'outil filtre avancé est une solution.

Là, avec SOMMEPROD je ne vois pas ?
Pourrais-tu me donner la formule qui correspondrait à mon attente ?

NB: Je ne peux pas toucher au tableau de base.

[Philippe Tulliez]

Bonjour,
J'avais mal lu la question.
On peut en effet résoudre ce problème avec notamment la formule DECALER mais pas seulement.
Voici une solution mais il y en a d'autres qui nécessite une colonne (que l'on cachera par la suite) qui servira de calcul.
Imaginons que la plage contenant les données décrites plus haut soit sur une feuille nommées [Tableau] en plage A1:C4 (bien entendu, il pourrait y avoir plus de ligne. et le deuxième tableau qui servira à la consultation sélective se trouvera sur une feuille nommée [Consultation] en plage A1:C5 mais là également on pourra avoir plusieurs lignes.
Les deux tableaux seront nommés (voir plus bas)
La référence cherchée (1 ou 0 pour notre exemple) sera en cellule F1 et sera nommée Ref_Cherchée

Les plages nommées
dbList_Ref..........'=Tableau!$A$2:$A$4
dbList...................'=Tableau!$A$2:$C$4
dbConsult..........'=Consultation!$A$2:$B$11
Ref_Cherchée...'=Consultation!$F$1

Organisation
La plage A1 se trouvant au-dessus du tableau dbConsult contiendra la valeur 0
La colonne A peut être cachée

Les formules (toutes sur la feuille [Consultation])
En cellule A3 et suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(LIGNE()-LIGNE(dbConsult)<=NB.SI(dbList_Ref;Ref_Cherchée);EQUIV(Ref_Cherchée;DECALER(Tableau!$A$2;A2;0;LIGNES(dbList));0)+A2;0)

En cellule B3 et suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI($A3;INDEX(dbList;$A3;2);"")

En cellule C3 et suivantes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI($A3;INDEX(dbList;$A3;3);"")

[BARMAKI]

Salut tchantches007

Vraimenent je n'arripa pas a comprendre pourquoi tu ne veux pas utiliser le filtre ?? plus simple et plus pratique biensur

Cordialement

[tchantches007]

Tout d'abord:
Merci Barmaki pour ton intervention, MAIS : j'ai en réalité à compiler divers tableau provenant de diverses feuilles auxquelles je ne peut toucher et donc pas possible d'effectuer un filtrage. Comme je dois effectuer ces opérations régulièrement, je cherche une automation des opérations.

@ M. Tulliez :
Merci pour cette réponse, mais il y a un bug, j'ai une référence circulaire dans la formule à mettre dans la feuille consultation, la première ...
Comme je l'ai dit, je n'arrive pas à maitriser la syntaxe de cette "F***e" formule DECALER ... Donc, Help

Je précise Office/Excel 2010 sous windows 7

[Philippe Tulliez]

Bonjour,
Je fais toujours un test avant de publier mes réponses et je n'ai pas eu d'erreur mais en écrivant ces lignes, je me suis rendu compte que dans mon explication et en retranscrivant je me suis trompé d'une ligne ce n'est pas A2, B2 et C2 mais A3, B3 et C3.
Je corrige immédiatement (en rouge) dans mon intervention.

[tchantches007]

Bonjour et merci encore pour votre aide précieuse.
Il me reste un bug.
Effectivement cela fonctionne mieux, mais pas complètement. en effet, j'ai étendu le nombre de ligne et voici ce que j'obtient:

1	a	a
2	b	b
4	d	d
6	f	f
8	h	h
9	i	i
10	j	j
11	k	k
#N/A	#N/A	#N/A
#N/A	#N/A	#N/A
0		
0		

Or, les lignes

4  d  d
6  f  f
8  h  h

ne devraient pas être visible puisque la valeur recherchée ne correspond pas et celles qui sont entre devraient elles l'être (visible).
d'autre part, la valeur #NA, due sans doute à la fin du tableau de base me gênent ...
De plus, la dernière ligne est systématiquement "#NA".

Désolé d'abuser de votre temps ...
Je joint mon fichier test pour "servir et valoir ce que de droit"
JF

[Philippe Tulliez]

Bonjour,
Deux erreurs dans ton classeur
1) Dans la formule DECALER tu fais référence à A2 et c'est A1 comme cellule de référence à partir de laquelle le décalage doit avoir lieu. En effet, tu as remonté le tableau des données (dbList) d'une ligne par rapport à mon exemple.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SI(LIGNE()-LIGNE(dbConsult)<=NB.SI(dbList_Ref;Ref_Cherchée);EQUIV(Ref_Cherchée;DECALER(Tableau!$A$1;A2;0;LIGNES(dbList));0)+A2;0)

2) La plage nommée dbConsult est mal référencée. Elle doit commencer à A2 et pas A3 et en A2 il faut mettre la valeur 0

Dans le gestionnaire des noms

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dbConsult=Consultation!$A$2:$B$18

[tchantches007]

Ca MARCHE !!!
Merci donc.