Cellule avec menu déroulant

Bonjour, en théorie, la valeur à l'ouverture est égale à celle de la fermeture, non ? Il suffit alors dans le module "ThisWorkBook" en VBA de définir la sub "Open" est de mettre un msgbox avec la valeur de A1 :

Private Sub Workbook_Open()
    MsgBox (Sheets("Feuil1").Range("A1").Value)
End Sub

vbMBHB

C'est exactement cela merci vbMsgBoxHelpButton

Merci.

vbMBHB

Bonsoir, pour empêcher que ce soit vide il suffit de faire le test de la valeur de la cellule est si c'est égal à rien alors on fait un UNDO de l'application afin de "revenir en arrière".

Il reste toujours le "tout" pour tout afficher...

Pour cela remplacez le code du fichier avec celui-ci :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    ' si cellule vide alors on force un "Undo" de l'application
    If Target.Value = "" Then
        Application.Undo
        Exit Sub
    End If
    If Not Intersect(Target, Range("A1")) Is Nothing Then
        Dim Cel_Trouvée As Range, Plage_de_Recherche As Range, Référence As Integer
        Set Plage_de_Recherche = [Test]
        Set Cel_Trouvée = Plage_de_Recherche.Cells.Find(what:=Target.Value, LookAt:=xlWhole)
        Référence = Cel_Trouvée.Offset(, 1).Value
        Select Case Référence
            Case 1
                ActiveSheet.Rows("60:131").Hidden = True
                ActiveSheet.Rows("132:149").Hidden = False
            Case 2
                ActiveSheet.Rows("60:131").Hidden = False
                ActiveSheet.Rows("132:149").Hidden = True
            Case Else
                ActiveSheet.Rows("60:131").Hidden = False
                ActiveSheet.Rows("132:149").Hidden = False
        End Select
    End If
End Sub

Attention ! La cellule peut-être vide si elle est effacée en même temps qu'une autre cellule, mais dans ce cas il n'y a pas de bug...

vbMBHB

Merci vbMsgBoxHelpButton, comment puis-je alerter l'utilisateur à l'ouverture du fichier excel de la valeur que contenait la cellule A1 juste avant sa fermeture?

Merci de votre aide.

Bonjour,

j'ai une autre question, si je veux faire la même vérification pour une autre cellule dans la même feuille, comment dois-je procéder?

merci de votre retour.

Rechercher des sujets similaires à "menu deroulant"