TextBox, pour un setFocus, ActiveX ou simple textBox?

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:

---

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.

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:

---

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:

---

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...

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... :aie:

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

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é.