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

Yvan1 · 2 Décembre 2023

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 · 2 Décembre 2023

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

TooFatBoy · 2 Décembre 2023

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

Yvan1 · 2 Décembre 2023

Hello,

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

TooFatBoy · 2 Décembre 2023

"adapté" ???

Yvan1 · 2 Décembre 2023

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 · 2 Décembre 2023

Yvan1 à dit:
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 :

Yvan1 à dit:
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 · 2 Décembre 2023

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 · 2 Décembre 2023

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 · 2 Décembre 2023

Toi aussi, merci.

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

Yvan1

XLDnaute Occasionnel

Pièces jointes

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

Yvan1

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Yvan1

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Yvan1

XLDnaute Occasionnel

TooFatBoy

XLDnaute Barbatruc

Yvan1

XLDnaute Occasionnel

Discussions similaires