Bonjour à tous et à toutes,
Je sèche là, j'y suis arrivé ce matin, depuis trou de mémoire.
Je capture un évènement double clic sur une feuille de calcul, précisément dans une cellule, et de cette cellule, je dois initialiser des valeurs d'un formulaire.
J'ai une procédure publique dans mon formulaire qui se déclare comme ça:
et dans mon event double-clic, je fais ceci:
Et il plante sur la ligne UserForm1.Affecter_Valeur(Target).
Erreur d'éxécution "424": Objet Requis.
Pourtant, le UserForm1 est correctement chargé/affiché, et l'objet Target aussi.
Pour information, je lance mon code comme ceci:
en cliquant sur le bouton de la Feuil1.
Et après seulement, je teste mon double clic.
C'est très certainement idiot, mais on m'a collé des modèles de données et des réunions toute la journée, j'ai la tête un peu en vrac.
Si quelqu'un peut me renseigner ...
Merci d'avance,
Cordialement,
Orodreth
Je sèche là, j'y suis arrivé ce matin, depuis trou de mémoire.
Je capture un évènement double clic sur une feuille de calcul, précisément dans une cellule, et de cette cellule, je dois initialiser des valeurs d'un formulaire.
J'ai une procédure publique dans mon formulaire qui se déclare comme ça:
Code:
Public Sub Affecter_Valeur(R as Range)
monTextBox.Text = R.Value
End Sub
et dans mon event double-clic, je fais ceci:
Code:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Sh.Name = "Feuil1" Then
If Not (Target Is Nothing) Then
UserForm1.Affecter_Valeur (Target)
End If
End If
End Sub
Et il plante sur la ligne UserForm1.Affecter_Valeur(Target).
Erreur d'éxécution "424": Objet Requis.
Pourtant, le UserForm1 est correctement chargé/affiché, et l'objet Target aussi.
Pour information, je lance mon code comme ceci:
Code:
Public Sub Init_FRM()
Load UserForm1
UserForm1.Show False
End Sub
Et après seulement, je teste mon double clic.
C'est très certainement idiot, mais on m'a collé des modèles de données et des réunions toute la journée, j'ai la tête un peu en vrac.
Si quelqu'un peut me renseigner ...
Merci d'avance,
Cordialement,
Orodreth
Dernière édition: