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

  • Initiateur de la discussion Initiateur de la discussion Yvan1
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Yvan1

XLDnaute Occasionnel
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
 

Pièces jointes

Solution
Bonjour,

Peut-être avec ça dans la feuille "Budget" ?
VB:
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
Bonjour,

Peut-être avec ça dans la feuille "Budget" ?
VB:
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour