Microsoft 365 Msgbox si on change de feuille sans vider une cellule

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Octobre 2023

• #2

Bonsoir Pat,
Si j'ai bien tout compris :

Code:

Sub Worksheet_Activate()
    If Sheets("Feuil1").[BV28] = "" Then Exit Sub
    Question = MsgBox("La cellule BV28 ne la Feuil1 n'est pas vide." & Chr(10) & _
                    "Voulez vous revenir sur la Feuil1 pour vider cette cellule ?", _
                    vbQuestion + vbYesNo + vbDefaultButton2, "ALERTE")
    If Question = vbYes Then
        Sheets("Feuil1").Select
    Else
        Sheets("Feuil1").[BV28] = ""
    End If
End Sub

 

Pièces jointes

• Pat.xlsm

  13.6 KB · Affichages: 4

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 8 Octobre 2023

• #3

Bonjour,

pat66 à dit:

Sur la feuil1, la cellule BV28 n'est pas vide et je souhaite aller sur une autre feuille

est il possible d'afficher un msgbox avant d'afficher la feuil2 qui me rappelle que j'ai oublié de vider la cellule BV28 et qui me propose
soit de continuer sur la feuil2, mais vide la cellule BV28,
soit on reste sur la feuil1

Cliquez pour agrandir...

Une proposition :

VB:

Private Sub Worksheet_Deactivate()
'
    If [BV28] <> "" Then
        If MsgBox("BV28 pas vide !" & vbCrLf & vbCrLf & "Vider BV28 et continuer ?", vbYesNo, "Problème") = vbYes Then
            [BV28].ClearContents
        Else
            Me.Activate
        End If
    End If

End Sub

 

Dernière édition: 9 Octobre 2023

Vote positif 0 Vote négatif

Solution

P

pat66

XLDnaute Impliqué

• 8 Octobre 2023

• #4

bonsoir Sylvanu,

Merci pour votre aide

votre solution fonctionne bien mais je ne vais pas forcément aller sur la feuil2
Peut on faire en sorte que quelque soit la feuille choisit, le message s'affiche si BV 28 n'est pas vide ?

merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 8 Octobre 2023

• #5

Re,
Cela revient à la solution de TooFatBoy avec un Deactivate sur Feuil1 au lieu d'un Activate sur feuil2.

 

Pièces jointes

• Pat.xlsm

  15.4 KB · Affichages: 4

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 8 Octobre 2023

• #6

re,

c'est exact merci à tous les deux pour votre aide

bonne soirée

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 9 Octobre 2023

• #7

re,

je reviens vers vous messieurs car je rencontre un problème avec vos deux propositions.
Lorsque je souhaite revenir sur la feuil1, Excel me signale une erreur 1004 à l'activation de n'importe quelle feuille que j'ai voulu afficher, avez vous une idée, merci ?

Private Sub Worksheet_Activate() (de la feuille que j'ai voulu afficher)
Range("A1:Q3").Select (erreur 1004)

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Octobre 2023

• #8

Re,
Fournissez le code que vous utilisez. ( et mieux un petit fichier test )
Sur ma PJ du post #5, qui marche, il n'y a pas de Range("A1:Q3").Select . Donc impossible de vous aider.

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 9 Octobre 2023

• #9

re,

bien sur voici votre fichier avec activate sur les autres feuilles

 

Pièces jointes

• Pat.xlsm

  18 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Octobre 2023

• #10

Bonjour,

Le bug vient du fait que la feuille active n'est pas la feuille de la macro donc utilisez ;

VB:

Private Sub Worksheet_Activate()
    If ActiveSheet.Name <> Me.Name Then Exit Sub
    Range("A1:W5").Select
    ActiveWindow.Zoom = True
    ScrollArea = "A1:W35"
End Sub

A+

 

Vote positif 0 Vote négatif

P

pat66

XLDnaute Impliqué

• 9 Octobre 2023

• #11

Bonsoir le fil,
bonsoir job75,

effectivement en ajoutant

VB:

If ActiveSheet.Name <> Me.Name Then Exit Sub

à toutes les feuilles cela fonctionne très bien


merci beaucoup

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 9 Octobre 2023

• #12

pat66 à dit:

Lorsque je souhaite revenir sur la feuil1, Excel me signale une erreur 1004 à l'activation de n'importe quelle feuille que j'ai voulu afficher, avez vous une idée, merci ?

Cliquez pour agrandir...

Non, je n'ai pas d'idée car je ne vois pas de raison pour que la macro de #3 soit éxécutée lorsque tu actives la feuille "Feuil1".

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Octobre 2023

• #13

TooFatBoy à dit:

Non, je n'ai pas d'idée car je ne vois pas de raison pour que la macro de #3 soit éxécutée lorsque tu actives la feuille "Feuil1".

Cliquez pour agrandir...

La macro Worksheet_Activate de Feuil2 s'exécute après la macro Worksheet_Deactivate de Feuil1.

 

Vote positif 0 Vote négatif