Actualisation valeurs dans une boite de dialogue

Le
Decaplan
Bonjour,

J'ai créé une boite de dialogue dont certains champs sont valorisés par VBA
suite à divers événements (ouverture boite de dialogue, choix dans listes
déroulantes etc)

Mon PB: Il se trouve que les objets texte valorisés par VBA n'affichent pas
systématiquement la bonne valeur dès1a valorisation réalisée.
Je pense qu'il faut faire suivre les instructions VBA de valorisation des
objets texte d'une instruction d'actualisation de l'affichage. Je n'ai rien
trouvé dans l'aide à ce sujet.
Quelqu'un peut-il m'aider.
Merci d'avance.

Decaplan
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4514501
Bonjour.
Publie ton code, ce sera plus simple.
Cordialement.
Daniel
"Decaplan" 4644ddf1$0$5081$
Bonjour,

J'ai créé une boite de dialogue dont certains champs sont valorisés par
VBA suite à divers événements (ouverture boite de dialogue, choix dans
listes déroulantes etc...)

Mon PB: Il se trouve que les objets texte valorisés par VBA n'affichent
pas systématiquement la bonne valeur dès1a valorisation réalisée.
Je pense qu'il faut faire suivre les instructions VBA de valorisation des
objets texte d'une instruction d'actualisation de l'affichage. Je n'ai
rien trouvé dans l'aide à ce sujet.
Quelqu'un peut-il m'aider.
Merci d'avance.

Decaplan



Decaplan
Le #4514291
Merci de ta réponse,

Voilà donc un échantillon de mon pb:

Sub Dialogue1_QuandAffichage()
Sheets("Boite de dialogue").Shapes("Étiquette_valideur").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("Étiquette_noic").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("nom_valideur").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("noic").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("montant").TextFrame.Characters.Text = ""
Sheets("Boite de dialogue").Shapes("Zone combinée Statut").Select
.....
end sub

Toutes les propirétés (et/ou valeurs) que j'affecte à ces objets ne sont pas
immédiatement prises en compte (au moment de l'exécution du sub). Elles le
sont généralement après un second passage.
Je cherche donc une instruction du style: Sheets("Boite de
dialogue").Refresh (cette instruction ne fonctionne pas) qui traduise à
l'écran ce que le SUB a exécuté.
Merci de ton aide.
Amicalement.

Decaplan





"Daniel"
Bonjour.
Publie ton code, ce sera plus simple.
Cordialement.
Daniel
"Decaplan" 4644ddf1$0$5081$
Bonjour,

J'ai créé une boite de dialogue dont certains champs sont valorisés par
VBA suite à divers événements (ouverture boite de dialogue, choix dans
listes déroulantes etc...)

Mon PB: Il se trouve que les objets texte valorisés par VBA n'affichent
pas systématiquement la bonne valeur dès1a valorisation réalisée.
Je pense qu'il faut faire suivre les instructions VBA de valorisation des
objets texte d'une instruction d'actualisation de l'affichage. Je n'ai
rien trouvé dans l'aide à ce sujet.
Quelqu'un peut-il m'aider.
Merci d'avance.

Decaplan







Modeste
Le #4514281
Bonsour® Decaplan avec ferveur ;o))) vous nous disiez :

Sub Dialogue1_QuandAffichage()
Sheets("Boite de dialogue").Shapes("Étiquette_valideur").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("Étiquette_noic").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("nom_valideur").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("noic").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("montant").TextFrame.Characters.Text = ""
Sheets("Boite de dialogue").Shapes("Zone combinée Statut").Select
.....
end sub

Toutes les propirétés (et/ou valeurs) que j'affecte à ces objets ne sont pas
immédiatement prises en compte (au moment de l'exécution du sub). Elles le
sont généralement après un second passage.
Je cherche donc une instruction du style: Sheets("Boite de
dialogue").Refresh (cette instruction ne fonctionne pas) qui traduise à
l'écran ce que le SUB a exécuté.


un Do Events en fin de Sub devrait suffir ;o)))


--
--
@+
;o)))

Decaplan
Le #4514111
Merci pour cette information.
J'ai malgré tout quelques difficultés à intégrer un Do Events en fin de
SUB.... Le compilateur tousse. Je pense que je n'ai pas dû bien saisir ta
pensée profonde. Peux tu m'en dire davantage.
Amicalement.

Decaplan


"Modeste"
Bonsour® Decaplan avec ferveur ;o))) vous nous disiez :

Sub Dialogue1_QuandAffichage()
Sheets("Boite de dialogue").Shapes("Étiquette_valideur").Visible =
msoFalse
Sheets("Boite de dialogue").Shapes("Étiquette_noic").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("nom_valideur").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("noic").Visible = msoFalse
Sheets("Boite de dialogue").Shapes("montant").TextFrame.Characters.Text =
""
Sheets("Boite de dialogue").Shapes("Zone combinée Statut").Select
.....
end sub

Toutes les propirétés (et/ou valeurs) que j'affecte à ces objets ne sont
pas
immédiatement prises en compte (au moment de l'exécution du sub). Elles
le
sont généralement après un second passage.
Je cherche donc une instruction du style: Sheets("Boite de
dialogue").Refresh (cette instruction ne fonctionne pas) qui traduise à
l'écran ce que le SUB a exécuté.


un Do Events en fin de Sub devrait suffir ;o)))


--
--
@+
;o)))





Publicité
Poster une réponse
Anonyme