Combobox pour mise à jour TCD

[kiff77]

Bonjour à tous,

Dans mon fichier ci-joint j'ai 3 onglets:
- BDD
- TCD Nb de personnes
- TCD Moyenne d'heures

J'ai également une Combobox qui s'affiche en haut à gauche de ma feuille à chanque changement de feuille. Dans cette Combobox j'ai les régions présentes dans ma BDD.

Je souhaite mettre à jour mes TCD en sélectionnant dans ma combobox la région. J'arrive plus ou moins à le faire mais ma macro bloque lorsque je souhaite sélectionner la valeur "France" dans ma Combobox, ce qui corresponderait à "Tous" dans mon TCD.

Merci d'avance pour votre aide.

PS: si quelqu'un connait un moyen de simplifier la macro je suis preneur😀

A+
Kiff

 

[CB60]

Re : Combobox pour mise à jour TCD

Bonjour
De cette façon cela fonctionne:

Private Sub ComboBox1_Change()
   If ComboBox1.Value = "France" Then
    Sheets("Moyenne heures").PivotTables("Tableau croisé dynamique3").PivotFields("Région"). _
        CurrentPage = "(Tous)"
        Else
        Sheets("Moyenne heures").PivotTables("Tableau croisé dynamique3").PivotFields("Région"). _
        CurrentPage = ComboBox1.Value
    End If
     
   
    If ComboBox1.Value = "France" Then
  Sheets("Nb Personne").PivotTables("Tableau croisé dynamique2").PivotFields("Région"). _
        CurrentPage = "(Tous)"
        Else
            
  Sheets("Nb Personne").PivotTables("Tableau croisé dynamique2").PivotFields("Région"). _
        CurrentPage = ComboBox1.Value
    End If
  
End Sub

 

[kiff77]

Re : Combobox pour mise à jour TCD

Bonjour CB60,

Merci pour ta réponse ça marche nickel.

Juste pour mon info, à quoi sert "else"?

Encore merci
A+
Kiff

 

[CB60]

Re : Combobox pour mise à jour TCD

re
else en traduction est = à autre
Pour la macro il me semble que se serais une condition, si ce n'est pas France c'est l'autre partie de la macro ( je ne suis pas spécialiste des macros)

 

[kiff77]

Re : Combobox pour mise à jour TCD

re,

Merci pour ta réponse

Bonne journée
A+
Kiff