Microsoft 365 Cocher automatiquement cases liste déroulante selon cellule

N

Nairolf

XLDnaute Accro

• 5 Mars 2020

• #2

Salut Josvin,

Afin de pouvoir peut-être te proposer une solution merci de mettre à disposition un fichier exemple avec ce que tu as actuellement et ce que tu souhaiterais (du moins s'en rapprochant).

 

Vote positif 0 Vote négatif

Josvin

XLDnaute Nouveau

• 5 Mars 2020

• #3

Merci pour ta réponse !

Les informations de mon fichier étant confidentielles, je vais avoir du mal à te l'envoyer tel quel... En revanche j'ai créé un fichier fictif regroupant le même type d'infos et avec la même configuration.

Je te le mets en PJ.

L'idée serait de renseigner l'âge de la personne à comparer en C3, et qu'automatique se cochent les âges à plus ou moins 5 ans dans B3.

Penses-tu que ce soit faisable ?

 

Pièces jointes

• Fictif.xlsx

  24.2 KB · Affichages: 9

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 5 Mars 2020

• #4

Bonjour Josvin, Nairolf,
Message supprimé.
J'avais mal compris la problématique avant de recevoir la PJ. Sorry.

 

Dernière édition: 5 Mars 2020

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 5 Mars 2020

• #5

Donc dans le cas d'un Tableau Croisé Dynamique, je vois 2 solutions :

Dans les 2 cas , mettre le champ "Age" dans la section "Lignes"
- cas 1 : faire un filtre "entre" dans les "filtres s'appliquant aux étiquettes"
- cas 2 : faire un "grouper le champ" en définissant un début à 0 par exemple

 

Vote positif 0 Vote négatif

Josvin

XLDnaute Nouveau

• 5 Mars 2020

• #6

Ca pourrait être des solutions contournées, effectivement, merci Mais elles ne répondent pas exactement à ma problématique.

Pas possibilité, a priori, de filtrer automatiquement en fonction de ce qui serait renseigné dans C3, si je comprends bien ?

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 5 Mars 2020

• #7

Pour cela je ne vois qu'un code vba qui mette à jour le filtre en fonction de la valeur de la cellule C3 et des tolérances associées.

Une proposition de code à mettre dans le code de la feuille intégrant le TCD :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
If Target.Address = "$C$3" Or Target.Address = "$D$3" Then
        For Each itm In ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Age").PivotItems
                itm.Visible = True
        Next itm
        For Each itm In ActiveSheet.PivotTables("Tableau croisé dynamique11").PivotFields("Age").PivotItems
            If (Val(itm.Name) <= Range("C3").Value + Range("D3").Value) And (Val(itm.Name) >= Range("C3").Value - Range("D3").Value) Then
                itm.Visible = True
            Else
                itm.Visible = False
            End If
        Next itm
End If
ErrorHandler:
Exit Sub
End Sub

 

Vote positif 0 Vote négatif

Josvin

XLDnaute Nouveau

• 5 Mars 2020

• #8

Super ! Merci beaucoup pour le code vba, je tenterai ça demain !

Après m'être creusé les méninges, je pense tout de même avoir trouvé une solution de contournement "artisanale" qui répond à mon problème. Je te joins le fichier.
Qu'en penses-tu ?

J'aimerais cependant, pour que la solution soit parfaite, que le TCD s'actualise automatique lorsque je remplis C3. Est ce possible ?

 

Pièces jointes

• tcd-Ages.xlsx

  41.8 KB · Affichages: 5

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 5 Mars 2020

• #9

Tu as eu une bonne idée, pour simplifier ta formule :

Code:

=SI(ET([@Age]>=Age-5;[@Age]<=Age+5);Age-5&" à "&Age+5&" ans";"DO NOT USE")

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 5 Mars 2020

• #10

Pour le rafraichissement, incorpore ce bout de code à la feuille du TCD :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$3" Then
    ActiveWorkbook.RefreshAll
End If
End Sub

 

Vote positif 0 Vote négatif

Josvin

XLDnaute Nouveau

• 6 Mars 2020

• #11

Merci pour la simplification et le code, c'est parfait !

A un détail près : c'est la première fois que j'utilise un VBA, et j'ai beau regarder les tutos, je ne comprends pas comment le faire fonctionner...

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 6 Mars 2020

• #12

Ok, la façon de faire peut être légèrement différente selon la version d'Excel.
Je vais donc te parler de la version que j'utilise le plus souvent, c'est-à-dire la 2013.

1) Enregistrer le fichier en .xlsm
2) Ouvrir Visual Basic (Alt+F11)
3) Ouvrir l'explorateur de projet (Ctrl+R)
4) Double cliquer sur la feuille concernée dans l'explorateur
5) Coller le code dans la fenêtre qui s'est ouverte

 

Vote positif 0 Vote négatif

Josvin

XLDnaute Nouveau

• 6 Mars 2020

• #13

Ah oui, c'était aussi simple que ça, merci encore ^^

Ne me reste plus qu'à réfléchir à comment déployer ce code aux 3 TCD qui sont (sur la même feuille) dans mon tableau de travail d'origine. Je me dis que la démarche doit être similaire, ça ne doit pas être SI compliqué, une fois qu'on a compris le principe

 

Dernière édition: 6 Mars 2020

Vote positif 0 Vote négatif

Josvin

XLDnaute Nouveau

• 6 Mars 2020

• #14

J'ai une dernière question !

Je rentre donc mes codes pour mes 3 TCD, directement dans la feuille concernée. Evidemment, ça ne fonctionne pas ^^

J'ai rentré ceci :

VB:

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("age").Address Then
ActiveSheet.PivotTables("TCD_Age_1").RefreshTable
End If
End Sub

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("age_2").Address Then
ActiveSheet.PivotTables("TCD_Age_2").RefreshTable
End If
End Sub

Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("age_3").Address Then
ActiveSheet.PivotTables("TCD_Age_3").RefreshTable
End If
End Sub

Pourtant, si je ne fais que le premier code (pour le TCD_1), ça fonctionne !
Mais dès que je rajoute la ou les suivantes, ça ne fonctionne plus

Saurais-tu me dire pourquoi ? Comment imbriquer les 3 ?

Merci

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 6 Mars 2020

• #15

Tu y était presque !
La procédure Worksheet_Change(ByVal Target As Range) doit être unique, elle correspond à l’événement de modification d'une cellule.

Pour corriger cela, il te suffit de regrouper les if dans la même procédure.
La procédure exécutera les 3 actions les unes à la suite des autres.

 

Vote positif 0 Vote négatif

Solution