Lorsque je d=E9place mon UserForm dans mon classeur, il=20
double, triple son image...Beuark!
1-Comment puis-je l'arr=EAter de faire cela?
Deuxi=E8me question:
Lorsque je veux afficher dans une cellule "6......"
je met le format suivant: @*. et =E7a fonctionne.
Comment puis-je traduire ce Format en VBA?
J'essaie avec cette forme, mais =E7a ne fonctionne pas.
Label1.Caption =3D Format(Range("Crit=E8re1"), "@*.")
La fonction Format est utile seulement en VBA , elle ne transmet pas le format au cellule... seulement la valeur des variables.
Question 11
Tu dois avoir utilisé ceci : Application.ScreenUpdating = False
et dans un formulaire, tu te dois de la remettre à true à la fin de l'opération .. sinon tu obtiens l'effet visuel que tu décris !
Salutations!
"Starwing" a écrit dans le message de news:237101c4be9b$c1cd44c0$ Bonjour à tous,
Deux petites questions....
Lorsque je déplace mon UserForm dans mon classeur, il double, triple son image...Beuark! 1-Comment puis-je l'arrêter de faire cela?
Deuxième question: Lorsque je veux afficher dans une cellule "6......" je met le format suivant: @*. et ça fonctionne. Comment puis-je traduire ce Format en VBA? J'essaie avec cette forme, mais ça ne fonctionne pas. Label1.Caption = Format(Range("Critère1"), "@*.")
La fonction Format est utile seulement en VBA , elle ne transmet pas le format au cellule... seulement la valeur des
variables.
Question 11
Tu dois avoir utilisé ceci :
Application.ScreenUpdating = False
et dans un formulaire, tu te dois de la remettre à true à la fin de l'opération .. sinon tu obtiens l'effet visuel que
tu décris !
Salutations!
"Starwing" <NoMail@NoMail.Niet> a écrit dans le message de news:237101c4be9b$c1cd44c0$a601280a@phx.gbl...
Bonjour à tous,
Deux petites questions....
Lorsque je déplace mon UserForm dans mon classeur, il
double, triple son image...Beuark!
1-Comment puis-je l'arrêter de faire cela?
Deuxième question:
Lorsque je veux afficher dans une cellule "6......"
je met le format suivant: @*. et ça fonctionne.
Comment puis-je traduire ce Format en VBA?
J'essaie avec cette forme, mais ça ne fonctionne pas.
Label1.Caption = Format(Range("Critère1"), "@*.")
La fonction Format est utile seulement en VBA , elle ne transmet pas le format au cellule... seulement la valeur des variables.
Question 11
Tu dois avoir utilisé ceci : Application.ScreenUpdating = False
et dans un formulaire, tu te dois de la remettre à true à la fin de l'opération .. sinon tu obtiens l'effet visuel que tu décris !
Salutations!
"Starwing" a écrit dans le message de news:237101c4be9b$c1cd44c0$ Bonjour à tous,
Deux petites questions....
Lorsque je déplace mon UserForm dans mon classeur, il double, triple son image...Beuark! 1-Comment puis-je l'arrêter de faire cela?
Deuxième question: Lorsque je veux afficher dans une cellule "6......" je met le format suivant: @*. et ça fonctionne. Comment puis-je traduire ce Format en VBA? J'essaie avec cette forme, mais ça ne fonctionne pas. Label1.Caption = Format(Range("Critère1"), "@*.")
Merci d'avance pour vos réponses,
Votre Starwing préféré ;o)
Starwing
AV
Deuxième question:
UserForm1.Label1.Caption = [Critères] & [rept(".",99)] Adapter le 2° argument de rep(99) en fonction de la longueur du label et de la valeur de "Critères" (len([Critères]))
AV
Deuxième question:
UserForm1.Label1.Caption = [Critères] & [rept(".",99)]
Adapter le 2° argument de rep(99) en fonction de la longueur du label et de la
valeur de "Critères" (len([Critères]))
UserForm1.Label1.Caption = [Critères] & [rept(".",99)] Adapter le 2° argument de rep(99) en fonction de la longueur du label et de la valeur de "Critères" (len([Critères]))
AV
Starwing
Bonjour michdenis,
En effet, maintenant mon Userorm a pris du mieux... ;-)) Je me demandais bien c'était quoi qui clochait, car sur d'autres UserForm que je faisaient, ça ne le faisait pas. J'ai encore appris quelque chose.
Je comprend mieux maintenant la fonction Format en VBA. Toutefois, même si je le comprend mieux, je ne trouve pas de solution à mon problème. Lorsque mon UserForm se déploie, j'aimerais que le Caption de mon Label1 prenne la valeur de ma cellule A1, mais avec les petits points "......." en plus.
J'essaie donc ceci:
Label1.Caption = Range("Critère1") & " ..........." mais cela ne provoque pas ce que je désire car un dépassement s'effectue si le texte de A1 est plus grand.
Existe-t-il une solution?
Un gros merci d'avance encore une fois,
Starwing
Bonjour michdenis,
En effet, maintenant mon Userorm a pris du mieux... ;-))
Je me demandais bien c'était quoi qui clochait, car sur
d'autres UserForm que je faisaient, ça ne le faisait pas.
J'ai encore appris quelque chose.
Je comprend mieux maintenant la fonction Format en VBA.
Toutefois, même si je le comprend mieux, je ne trouve pas
de solution à mon problème.
Lorsque mon UserForm se déploie, j'aimerais que le Caption
de mon Label1 prenne la valeur de ma cellule A1, mais avec
les petits points "......." en plus.
J'essaie donc ceci:
Label1.Caption = Range("Critère1") & " ..........."
mais cela ne provoque pas ce que je désire car un
dépassement s'effectue si le texte de A1 est plus grand.
En effet, maintenant mon Userorm a pris du mieux... ;-)) Je me demandais bien c'était quoi qui clochait, car sur d'autres UserForm que je faisaient, ça ne le faisait pas. J'ai encore appris quelque chose.
Je comprend mieux maintenant la fonction Format en VBA. Toutefois, même si je le comprend mieux, je ne trouve pas de solution à mon problème. Lorsque mon UserForm se déploie, j'aimerais que le Caption de mon Label1 prenne la valeur de ma cellule A1, mais avec les petits points "......." en plus.
J'essaie donc ceci:
Label1.Caption = Range("Critère1") & " ..........." mais cela ne provoque pas ce que je désire car un dépassement s'effectue si le texte de A1 est plus grand.
Existe-t-il une solution?
Un gros merci d'avance encore une fois,
Starwing
Starwing
Woups,
J'ai envoyé un e-mail pour rien, avec ma basse vitesse, je n'avais pas lu ta réponse.
Je l'essaie, mais je crois que je vais avoir un peu de difficulté. Ma compréhension n'est pas aussi développé que la tienne mon cher AV... Et tes explications sont brefs mais précis et j'espère que je vais suivre...
Je reviens si mon cerveau ne décrypte pas tout...
Laissez moi au moins vingt minutes pour tester le tout, ah non trente plutôt... ;-))
Starwing
-----Message d'origine-----
Deuxième question:
UserForm1.Label1.Caption = [Critères] & [rept(".",99)] Adapter le 2° argument de rep(99) en fonction de la longueur du label et de la
valeur de "Critères" (len([Critères]))
AV
.
Woups,
J'ai envoyé un e-mail pour rien, avec ma basse vitesse, je
n'avais pas lu ta réponse.
Je l'essaie, mais je crois que je vais avoir un peu de
difficulté. Ma compréhension n'est pas aussi développé que
la tienne mon cher AV... Et tes explications sont brefs
mais précis et j'espère que je vais suivre...
Je reviens si mon cerveau ne décrypte pas tout...
Laissez moi au moins vingt minutes pour tester le tout, ah
non trente plutôt... ;-))
Starwing
-----Message d'origine-----
Deuxième question:
UserForm1.Label1.Caption = [Critères] & [rept(".",99)]
Adapter le 2° argument de rep(99) en fonction de la
longueur du label et de la
J'ai envoyé un e-mail pour rien, avec ma basse vitesse, je n'avais pas lu ta réponse.
Je l'essaie, mais je crois que je vais avoir un peu de difficulté. Ma compréhension n'est pas aussi développé que la tienne mon cher AV... Et tes explications sont brefs mais précis et j'espère que je vais suivre...
Je reviens si mon cerveau ne décrypte pas tout...
Laissez moi au moins vingt minutes pour tester le tout, ah non trente plutôt... ;-))
Starwing
-----Message d'origine-----
Deuxième question:
UserForm1.Label1.Caption = [Critères] & [rept(".",99)] Adapter le 2° argument de rep(99) en fonction de la longueur du label et de la
valeur de "Critères" (len([Critères]))
AV
.
AV
UserForm1.Label1.Caption = [Critères] & [rept(".",99)] Adapter le 2° argument de rep(99) en fonction de la
Même pas la peine : mets la propriété "WordWrap" du Label à False
AV
UserForm1.Label1.Caption = [Critères] & [rept(".",99)]
Adapter le 2° argument de rep(99) en fonction de la
Même pas la peine : mets la propriété "WordWrap" du Label à False
Comme tu me l'avais dit. Toutefois, je crois que dépendamment du texte A ou I, il ne mesure pas tellement bien les distances des lettres dans le label...
Alors, je réessaie en mettant la propriété "WordWrap" de mon Label à False, encore comme tu me l'as dit, et Label1.Width = 60 (Pour ne pas l'allonger) et ça fonctionne....
Merci AV,
Que deviendrais-je sans toi? Toujours de plus en plus reconnaissant...
Comme tu me l'avais dit. Toutefois, je crois que
dépendamment du texte A ou I, il ne mesure pas tellement
bien les distances des lettres dans le label...
Alors, je réessaie en mettant la propriété "WordWrap" de
mon Label à False, encore comme tu me l'as dit, et
Label1.Width = 60 (Pour ne pas l'allonger) et ça
fonctionne....
Merci AV,
Que deviendrais-je sans toi?
Toujours de plus en plus reconnaissant...
Comme tu me l'avais dit. Toutefois, je crois que dépendamment du texte A ou I, il ne mesure pas tellement bien les distances des lettres dans le label...
Alors, je réessaie en mettant la propriété "WordWrap" de mon Label à False, encore comme tu me l'as dit, et Label1.Width = 60 (Pour ne pas l'allonger) et ça fonctionne....
Merci AV,
Que deviendrais-je sans toi? Toujours de plus en plus reconnaissant...
