Calcul et Tri de sélections

[axelaxelaxel]

Bonjour,

j'en appel à votre aide aujourd'hui pour un problème que je n'arrive pas à résoudre.

Je vous ai joint le fichier en question.

En fait c'est un reporting d'intérêt de client. Ces lient sont ou non intéressés par des produits, dans ce cas des spectacles.

J'ai un reporting générale avec toutes les villes (les clients) ainsi que les intérêts par spectacles.

J'aimerai pouvoir à partir ce de cela, extraire toutes les villes (et donc les contact et les remarques qui vont avec. Toute la ligne en fait) par spectacles.

Pas exemple la liste des villes intéressées par Volpone.

Merci à tous pour votre aide.

Bien cordialement.

Axel

 

[Gardien de phare]

Re : Calcul et Tri de sélections

Bonjour,

Une solution toute simple en utilisant le tableau de 2010.

HTH

 

[axelaxelaxel]

Re : Calcul et Tri de sélections

Bonjour,

merci beaucoup, effectivement, c'était tout simple!

Puis-je utiliser les tableau croisés dynamiques pour avoir une feuille dans mon classeur par "Spectacles"? Et si oui, comment puis-je faire?

Et autre question y a t'il un moyen de cocher la case de manière un peux plus simple ou automatique? Plutot que de mettre un "X" à chaque fois?

Merci beaucoup pour vos réponses.

Axel

 

[Gardien de phare]

Re : Calcul et Tri de sélections

Re,

Pour faire un TCD, il faudrait réorganiser les données, voir l'intérêt ?
Dans l'exemple joint, un double clic met un X si la cellule est vide, l'efface si la cellule contient un X (uniquement dans les colonnes E à I.

HTH

 

[axelaxelaxel]

Re : Calcul et Tri de sélections

Merci, c'est très efficace! mais comment fait on?

merci à vous.

 

[Gardien de phare]

Re : Calcul et Tri de sélections

Bonjour,

Le code commenté pour comprendre :

' On utilise l'évènement double-clic de la feuille, le code est donc dans
' la feuille et non pas dans un module

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

' Cette instruction limite l'application du code aux colonnes E à I, Target est la cellule où l'on clique
If Not Application.Intersect(Target, Range("E:E:I:I")) Is Nothing Then

    If IsEmpty(Target) Then     ' si la cellule est vide
        Target.Value = "X"      ' elle prend la valeur X
    Else                        ' sinon
        Target.Value = ""       ' elle devient vide
    End If
' Si on n'est pas dans le colonnes E à I, il ne se passe rien
Else
End If
End Sub

HTH