Bonjour tout le monde,

Dans mon formulaire ( le formulaire est sur une feuille, ce n'est pas un UserForm), j'ai un champ "Observation" de type "zone de texte" (du coup la zone de texte se nomme Observation, je sais, je déborde d'imagination ), qui n'est ni un activeX, ni un contrôle de formulaire.
Sur l'évènement Worksheet_Change de la cellule "H25", je voudrai que ma zone de texte "Observation" soit focalisé afin que l'utilisateur ai juste à remplir son commentaire.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
CL = Target
        If CL = "$H$25" Then
            Set WS = Worksheets("FormulaireHeure")
            Set shp = WS.Shapes("Observation")
                shp.Visible = True 'Nombre d'heure
                shp.SetFocus = True 'Erreur 438, propriété ou méthode non géré par l'objet...
                shp.Select  ' ne fait pas office de SetFocus...
            'Observation.SetFocus 'Bah oui, j'ai essayé avec un ActiveX :)
            'Mais pareil, erreur 438... snif
        End If
Et bizarrement, je ne peux pas mettre de textbox "contrôle de formulaire"... Je patine joyeusement...

J'suis ouvert à toute suggestion.