Discussion :

[weetoz]

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.

[pijaku]

Bonjour,

2 erreurs à corriger dans le code :
Set CL = Target
et :
If CL.Address = "$H$25" Then

Et utiliser Select permettra à l'utilisateur de saisir directement.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
Dim CL As Range, Shp As Shape
    Set CL = Target
    If CL.Address = "$H$25" Then
        Set Shp = Shapes("ZoneTexte 1")
        Shp.Visible = True
        Shp.Select
    End If
End Sub

Remarque perso, CL ne sert ici à rien. Autant utiliser Target...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Shp As Shape
    If Target.Address = "$H$25" Then
        Set Shp = Shapes("ZoneTexte 1")
        Shp.Visible = True
        Shp.Select
    End If
End Sub

Et, également, bien vérifier le nom de la zone de texte...

[weetoz]

Bonjour et merci Frank,
"CL=Target", est une erreur dans le post, dans la réalité c'est "CL = Target.address".
Et toujours dans la réalité, beaucoup de cellule sont testés dans l'évènement, cela évite de répéter "if target.address = "telCellule" then..."

En déclarant "shp" en Shape, celà ne change pas le problème de l'erreur 438 sur shp.SetFocus... D'ailleurs j'ai vu que j'ai mis une erreur dans mon code du post 1:
shp.SetFocus = True 'Erreur 438, propriété ou méthode non géré par l'objet...

Mais bon, ce n'était pas non plus la réalité...

[pijaku]

Et bien, si .Select ne t'as pas aidé, fais nous un copié/collé de ton code en entier que l'on puisse voir dans ta réalité.