XL 2013 Test sur plage et ouverture d'un Message Box

[Yvan1]

Bonjour,
J'utilise un tableau dans lequel je dois saisir un Coefficient multiplicateur (en B7) si des données apparaissent dans la plageE18:E (dernière ligne du TCD).
Et de façon à ne pas oublier, je souhaite qu'un pop up s'ouvre rappelant à l'utilisateur de saisir ce fameux paramètre. Par défaut, il est renseigné à 1.
Donc à chaque changement de filtre, il faut positionner le coef à 1 en B7 et effectuer le test.
Je pensais donc insérer un code dans l'onglet "Budget", testant simplement la somme de la plage (uniquement des données numériques), lequel génèrerait une message box.
Mais je ne sais pas comment faire...
L'un d'entre vous a-t-il une idée ?
Merci par avance de votre aide,
Yvan

 

[TooFatBoy]

Bonjour,

Peut-être avec ça dans la feuille "Budget" ?

Private Sub Worksheet_PivotTableUpdate(ByVal Target As PivotTable)
'
    If Range("B7").Value <> 1 Then
        If MsgBox("Réinitialiser le ratio saisonnier à 1 ?", vbYesNo, "Ratio saisonnier") = vbYes Then Range("B7").Value = 1
    End If

End Sub

 

[Yvan1]

Hello,

J'ai adapté, et c'est parfait.
Merci beaucoup.
Très bonne fin de journée,
Yvan

 

[TooFatBoy]

"adapté" ???

 

[Yvan1]

Oui, car il fallait faire un test sur la présence de valeur dans le TCD, mais c'est ok.
Si tu as l'astuce pour connaitre la dernière ligne du TCD, je prends...

 

[TooFatBoy]

Si tu as l'astuce pour connaitre la dernière ligne du TCD, je prends...

Non, je n'ai pas d'astuce ce sujet. D'ailleurs je ne connais pas les TCD.

---

Juste pour info :

Oui, car il fallait faire un test sur la présence de valeur dans le TCD

Je n'ai pas compris ce que tu veux dire par "tester la présence".

 

[Yvan1]

L'utilisateur doit mettre à jour le paramètre si des données apparaissent dans la plage E18:E Fin de TCD
Si pas de données, rien à faire.

 

[TooFatBoy]

Je ne pige toujours pas, mais ce n'est pas grave.
Le principal est que tu arrives à faire ce que tu veux.


Bonne soirée à toi

 

[Yvan1]

Toi aussi, merci.