OVH Cloud OVH Cloud

shapes

11 réponses
Avatar
patrick
Voici la formule que je ne comprends pas.
With active sheet
.Shapes ("Txt1"). Visible =3D True
.Shapes ("Txt2"). Visible =3D True
.Shapes ("Txt3"). Visible =3D True
.Shapes ("Txt4"). Visible =3D True
end with
etc...
ce que je n'arrive pas =E0 comprendre (cette formule ouvre=20
une zone de texte)c'est comment txt1 prend la valeur du=20
texte qui s'affiche dans la zone de texte.
Peut etre M. Alain Vallon pourrait me r=E9pondre car cette=20
m=E9thode d'affichage se trouve dans son classeur=20
(magnifique) Evaluate.
dans tous les cas merci de votre aide
patrick

10 réponses

1 2
Avatar
sabatier
fais comme tout le monde, patrick : appelle-le Maître...
jps

"patrick" a écrit dans le message de
news:01de01c47a5e$d26c3d80$
Peut etre M. Alain Vallon pourrait me répondre...
Avatar
AV
With active sheet
.Shapes ("Txt1").Visible = True
end with
ce que je n'arrive pas à comprendre (cette formule ouvre
une zone de texte)c'est comment txt1 prend la valeur du
texte qui s'affiche dans la zone de texte.


Le texte est préalablement écrit dans la zone de texte !
La propriété "Visible" est True pour rendre l'objet visible (false pour le
masquer)

AV

Avatar
AV
fais comme tout le monde, patrick : appelle-le Maître...


Pffff .....
Ca me rappelerait le CM2 ;-)
Comprenne qui pourra ......

AV

Avatar
sabatier
où l'instit' t'aurait fait conjuguer 100 fois le verbe "rappeler" au
conditionnel + un....rappel de ces maudites modifications orthographiques
des verbes en "eler" et en "eter" au fil des temps et des personnes...
et comme pourrait dire la Plaisante Sagesse limousine : le chabrol, tu le
jettes ou tu le pètes...
jps (le nez dans le sien)

"AV" a écrit dans le message de
news:%23q1k%
Ca me rappelerait le CM2 ;-)


Avatar
AV
Ouais...boff...
mis à part un "l" resté dans le clavier, je vois pas de problème de conditionnel

AV
Avatar
sabatier
ouais, mais c'est qui redoublera, hein?
jps

"AV" a écrit dans le message de
news:
Ouais...boff...
mis à part un "l" resté dans le clavier, je vois pas de problème de
conditionnel


AV




Avatar
patrick
-----Message d'origine-----
With active sheet
.Shapes ("Txt1").Visible = True
end with
ce que je n'arrive pas à comprendre (cette formule ouvre
une zone de texte)c'est comment txt1 prend la valeur du
texte qui s'affiche dans la zone de texte.


Le texte est préalablement écrit dans la zone de texte !
La propriété "Visible" est True pour rendre l'objet
visible (false pour le

masquer)

AV

cher AV


tout d'abord merci pour votre réponse, mais au risque de
vous paraître lourd (je m'en excuse)le chemin me semble
encore long !
j'ai ouvert un classeur excel, dans la feuille 1 j'ai
tracé une zone de texte que j'ai rempli, j'ai écrit une
petite macro, mais rien ne fonctionne;
Comment fait on disparaître la zone de texte de la
feuille, ou est elle stockée ?
lorsque je lance ma macro le message suivant apparaît
sur la ligne .shapes("txt1).visible = true
"l'élément portant ce nom est introuvable"
je suppose que txt1 contient la zone de texte, mais
comment le lui dire?

Merci de votre réponse, si votre disponibilité le permet

Patrick
.




Avatar
AV
Dessine ta zone de texte et dans la barre des noms (en haut à gauche)? regarde
le nom qui s'affiche à la sélection de l'objet
Ca va ressembler à "Zone de Texte 1"
Tu peux lui donner un autre nom comme dans l'exemple : "Txt1" (sans les
guillemets)

Dans un module ordinaire et à affecter à un bouton de la barre d'outils
formulaire (c'est plus simple)

Pour l'afficher :
Sub afficheZtxt()
ActiveSheet.Shapes("Txt1").Visible = True
End Sub

Pour la masquer :
Sub masqueZtxt()
ActiveSheet.Shapes("Txt1").Visible = False
End Sub

AV
Avatar
Patrick
-----Message d'origine-----
Dessine ta zone de texte et dans la barre des noms (en
haut à gauche)? regarde

le nom qui s'affiche à la sélection de l'objet
Ca va ressembler à "Zone de Texte 1"
Tu peux lui donner un autre nom comme dans
l'exemple : "Txt1" (sans les

guillemets)

Dans un module ordinaire et à affecter à un bouton de la
barre d'outils

formulaire (c'est plus simple)

Pour l'afficher :
Sub afficheZtxt()
ActiveSheet.Shapes("Txt1").Visible = True
End Sub

Pour la masquer :
Sub masqueZtxt()
ActiveSheet.Shapes("Txt1").Visible = False
End Sub

AV

Super cela marche !
Je n'en doutais pas une seconde

Si je peux abuser , comment renommer zone de texte en Txt1
si je modifie le nom en haut à gauche il ne le garde pas.

Merci beaucoup

patrick

.



Avatar
AV
Si je peux abuser , comment renommer zone de texte en Txt1
si je modifie le nom en haut à gauche il ne le garde pas.


Si, si : Tu modifies et tu fais Entrée ensuite pour valider la modif !

AV

1 2