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.