Discussion :

[Xeko-]

Bonjour à tous,

Je travaille actuellement sur un fichier excel qui, en allant chercher des informations sur divers fichiers, me permet de faire du reporting.

Je bloque sur la fin, qui est la mise en page de mon TCD. (L’utilisation de ce dernier n'est peut-être pas la meilleur solution d'ailleurs)

Je vous explique ce que je souhaite et ce que j'obtiens pour le moment.

Dans mon fichier je récupère mes sources dans une feuille "Temp". Disons que nous avons des plats (de cuisine) et des ingrédients. Chaque plat est composé ou non des ingrédients pré-définis.

Dans mon Temp j'ai ça:

Sel Poivre Oignon Crouton Artichaut


Soupe oignon Sel Poivre Oignon Crouton (vide)


Soupe artichaut Sel Poivre (vide) (vide) Artichaut


Dans ma feuille de report, si je fais un TDC, j'obtiens:

Soupe oignon
+ Sel
+ Poivre
+ Crouton
+ (vide)
... (etc)

Et j'aimerais obtenir

Soupe Oignon
Sel
Poivre
Crouton
(ne pas afficher les vides)


Je pense avoir été claire,

Avez-vous une solution? Puis-je le faire avec un TCD? Ou dois-je passer par une macro de tri?

Dans le cas ou je souhaites spécifier des infos en plus à chaque ingrédients avec un menu, ça se passe comment?

merci

[vins86]

Bonsoir Xeko-,

Tu veux extraire des données en fonction du plat recherché? Et effacer les lignes 0?

Cordialement,

Vincent

[NVCfrm]

Bonsoir,

regardes dans la bôite de dialogue Options/Affichage du TCD. décoche Afficher les boutons Développer/Réduire.

[Xeko-]

Merci pour vos réponses,

j'ai pas fais attention mais j'avais introduit des espaces supplémentaires qui n'ont pas été gardés lorsque j'ai envoyé mon message!

NVC a répondu en partie à mon problème,

Avec ta solution, j'ai encore une tabulation après chaque ingrédients, mais maintenant j'aimerais retirer les cellules vides. C'est ce qui m'importe le plus au final.

Avoir quelque chose de ce type:

Soupe oignon
----Sel
----Poivre
----oignon
----croûton

et pas de (vide) qui vient se positionner au milieu!

Merci

[vins86]

Tu peux effacer les lignes vide avec une macro.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MAJ()
 
'afficher toutes les lignes
    Range("J7:J46").EntireRow.Hidden = False
'masquer les lignes vide
    For Each o In Range("M7:M46")
        If o.Value = " " Then
        o.EntireRow.Hidden = True
        End If
        Next
 
End Sub

Si celà peut t'aider.

[NVCfrm]

bonjour,

pour ne pas afficher les 'vide' tu as le filtrage qui est disponible. Décoche le vide.