Discussion :

[anyah]

bonjour,

j'ai un petit problème avec mes textbox, je voudrais utiliser un raccourci pour le nom de ma feuille or ce raccourci marche si la methode qui suit est par exemple range mais si je met un controle apres du genre :

Code :

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

1
2
3
4
5
6
Dim sh As Worksheet
 
set sh =Sheets("Survey")
 
  sh.TBx_NRW.Value = ""
  sh.TBx_XG.Value = ""

ca ne marche plus.... donc aucun souci d'orthographe, les textbox existent bien sur cette page

j'ai l'impression que vba n'aime pas beaucoup ce genre de code ... ou alors j'oublie quelquechose mais quoi?(une étape dans le code par exemple)

merci d'avance

[decondelite]

L'accès aux contrôles situés à l'intérieur d'une feuille ne se fait pas de la même façon que pour des contrôles d'un Userform: tu dois utiliser une collection pour les référencer.

Dans ton cas, ça doit être comme ça:

Code :

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

1
2
sh.Shapes("TBx_NRW").Value = ""
  sh.Shapes("TBx_XG").Value = ""

J'espère que ça fonctionne...

Le référencement "direct" ne fonctionne que dans les modules de feuilles, et seulement pour les contrôles de la feuille concernée.

[anyah]

non il aime toujours pas mais l'erreur a changé maintenant : erreur '438' object doesn't support this property or method

[decondelite]

Ah ben ça moi je peux pas le deviner: vu l'erreur qu'il te sort il y a fort à parier que ce que tu as entre guillemets n'est pas le nom de tes textbox dans la collection Shapes. Ca c'est à toi de scruter le contenu de la collection et de trouver l'attribut Name de tes textbox.

Vu qu'il ne trouve pas d'élément correspondant, ça te renvoie probablement un objet de type Nothing, et après c'est un peu évident que objet de type Nothing ne supporte pas la propriété Value.

[anyah]

Vu qu'il ne trouve pas d'élément correspondant, ça te renvoie probablement un objet de type Nothing, et après c'est un peu évident que objet de type Nothing ne supporte pas la propriété Value.

Ah ben ça moi je peux pas le deviner: vu l'erreur qu'il te sort il y a fort à parier que ce que tu as entre guillemets n'est pas le nom de tes textbox dans la collection Shapes. Ca c'est à toi de scruter le contenu de la collection et de trouver l'attribut Name de tes textbox.

....euuuuh.... la honte je sais même pas faire ca

mais sinon j'ai regardé en faisant un pas a pas et ce TBx_NRW est bien dans la page c'est dingue quand même

[decondelite]

mais sinon j'ai regardé en faisant un pas a pas et ce TBx_NRW est bien dans la page c'est dingue quand même

Ca ça m'étonnerait: le pas à pas ne te permet de savoir qu'une propriété est bien définie que pour les objets issus de classes définies dans un module de classe du projet, pas pour les classes définies en dehors du projet comme celles des bibliothèques Excel.

Ca je veux bien te croire que tes 2 éléments existent, mais ce qu'il faut que tu comprennes c'est que ce n'est probablement pas comme ça que tu dois les appeler dans Shapes pour y avoir accès.

Là, même conseil que pour quelqu'un d'autre que je suis en train d'aider en parallèle: utilise un espion sur la collection Shapes, regarde le contenu de tous les éléments Item qui sont dedans, et regarde dans les porpriétés s'il y en a pas où tu lis tes 2 noms. Si tu trouves un item où tu trouve un de ces noms, alors lis la propriété Name: c'est le texte qui est écrit en face que tu dois utiliser dans Shapes().