Popup

[Clark]

Bonjour à tous,

est-il possible lorsque l'on clique sur une cellule dans une feuille, de faire apparaitre juste à côté (en-dessous par exemple), un userform ou une liste déroulante dans lequel je pourrai insérer des valeurs. L'utilisateur choisirai alors une valeur et celle-ci s'afficherai dans la cellule concernée.
J'ai bien pensée à la validation, mais il faut que l'utilisateur puisse saisir des valeurs non dispo dans la liste (enrichissement par la saisie)

Merci pour votre attention
Clark

 

[ftho]

Re : Popup

Bonjour,

Supposons qu'il s'agit de la cellule C5, dans l'évènement SelectionChange de la feuille en question, on écrit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$5" Then UserForm1.Show
End Sub

Après on fait ce qu'on veut via le UserForm

 

[astralon]

Re : Popup

Bonjour,

tu peux mettre une validation et dans la partie Alerte, tu décoche l'option "quand données non valides sont tapées"

bien à toi

 

[RENAUDER]

Re : Popup

Bonjour,
Je peux te proposer de créer un menu contextuel qui lors d'un clic droit te propose une option "Saisie d'une valeur" et lorsque tu cliques, une inputBox s'ouvre et la valeur saisie sera écrite dans la cellule active.

Sub CreationMenuContextuel()
    With Application.CommandBars("Cell").Controls.Add(msoControlButton)
        .Caption = "Saisie d'une valeur"
        .BeginGroup = True
        .FaceId = 201
        .OnAction = "SaisieValeur"
    End With
End Sub
Sub SaisieValeur()
    MyVal = InputBox("Entrez une valeur", "Saisie de données")
    ActiveCell.Value = MyVal
End Sub
Sub ResetMenu()
    Application.CommandBars("Cell").Reset
End Sub