VBA Problème : Fonction Backstyle dans une Userform

:(
J’utilise Excel 10 (Office version Famille et Petites entreprises).
Tous mes programmes privés, en VBA, fonctionnaient correctement depuis des années.
Depuis env. 15 jours, dans toutes mes Userforms, les différentes Textboxes, Commandbuttons, Labels, etc. ne fonctionnent plus correctement., c’est-à-dire :
Ces éléments avec un Backstyle formatté dans la fenêtre Properties en 1-fmBackstyleTransparent ne le sont plus, quoique toujours indiqués comme tels mais leur format est devenu opaque et reste ainsi indépendamment du choix !
Mes UF’s sont ainsi devenues pratiquement illisibles selon les différentes couleurs utilisées (Backcolor, Forecolor).
Un technicien de Swisscom m’a ré-einstallé une version originale de Office 2010. La faute semblait corrigée dans l’immédiat mais le lendemain, après avoir re-enclenché mon PC, rien n’était changé.

Auriez-vous une solution à me proposer ?
Merci.

Bonjour
Je me sauve généralement lorsque l'on confond fonction et propriété (pourquoi, pendant qu'on y est, ne pas confondre soupière et pot de chambre ?) C'est quand même le début du début de la compréhension de ce que l'on veut manier.:pleure:

re
bonjour
mis a part la méprise (fonction/propriété) 1 n'est pas le mode transparent ca serait plutôt 0 en tout cas chez moi

Merci Patrick.
Tu as tout à fait raison de me corriger, j'ai interverti le 0 et le 1 dans les propriétés, mais uniquement dans mon message. ils sont bien corrects dans le programme de ma Userform. Le problème n'est donc pas résolu.

Je n'ai pas compris la suite de ta réponse, je ne connais pas les abréviations utilisées.
Est-ce que tu aurais une solution à mon problème?

Jacksun

re
j'avoue que si dans le code tu ne manimpule pas ces propriétés il est étonnant que cells ci se modifie

dans le doute
tu met un mot (ce que tu veux)dans le tag de chaque control dans ton userform qui doivent être transparent

puis dans l'évènement activate de l'userform tu met

Code:

---

1 2 3

for each ctrl in me.controls if ctrl.tag="le mot que tu a mis" then ctrl.backstyle=0 next

---

voila

Après ~10 jours de galère, mon problème s'est résolu tout seul, probablement à la suite du dernier Windows Update?

J'ai quand même testé l'applet que tu m'a proposé mais sous la forme

If Me.TB_Résultat = "le mot que j'ai mis" Then Me.TB_Résultat.BackStyle = 0

car je n'ai pas de Tag's et j'ignore leur signification et leur utilisation.

Peut-être pourrais tu me l'expliquer?

Merci

Jacksun

re
Bonjour
tout les controls nt un tag !!!!

voici une capture d'ecran regarde bien la partie a gauche qui te montre la fentre VBE a gauche en bas entouré en rouge
et regarde a droite comment le userform est quand il est affiché

voici le activate

Code:

---

1 2 3 4 5

Private Sub UserForm_Activate() For Each ctrl In Me.Controls If ctrl.Tag = "toto" Then ctrl.BackStyle = 0 Next End Sub

---

voila la capture regarde bien !!!!
Pièce jointe 225397

c'est plus clair la ???

Merci, le tag ça marche.

Je n'avais jamais utilisé cette propriété jusqu'ici et j'ignorais même sa raison d'être...

Tu m'a appris quelque chose, merci. Mon problème est ainsi résolu.:D

Jacksun