Discussion :

[garat]

Bonjour à tous,
Je souhaiterai modifier en VBA la couleur de fond d'un "TxtBox" créé à partir de l'onglet "Développeur".
J'ai renommé mon "TxtBox" => "Txt_securite_1".
En fonction d'un tableau Excel la couleur de fond de ce "TxtBox" passe en vert ou en rouge.
Je n'arrive pas à pointer ce "TxtBox" avec la fonction "Shapes".
Comment modifier la couleur de fond d'un "TxtBox" en VBA ?
Dans l'attente de vous lire
Amicalement
Garat

[Invité]

Bonjour

Un textebox crée par l'onglet Developpeur n'est pas un object Shape, mais un contrôle classique.

Il faut que tu utilises une syntaxe de ce type avec Slide1 la première diapo et TextBox1 ta textbox, bien sûr il faut mettre des noms explicites à tous ces éléments.

Code :

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

Slide1.TextBox1.BackColor = vbGreen

Philippe

[garat]

Bonjour Philippe,

Cela fonctionne si je mets le code dans la "Slide" où j'ai mis le contrôle :

Code :

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

Me.Txt_securite_1.BackColor = vbRed

Si le code est dans un module :

Code :

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

ActivePresentation.Slides(4).Txt_securite_1.BackColor = vbGreen

VBA trouve une erreur de compilation.
"Membre de méthode ou de données introuvable"

Je vais laisser le code dans la "Slide"

A+
Garat

[Invité]

Bonjour

Le code que je t'ai présenté vient d'un module et non d'un slide.

Philippe

[garat]

Bonjour Philippe,

Merci pour ta piqûre de rappel, tu avais raison, voici mon code qui fonctionne dans un "Module" :

Code :

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

Slide4.Txt_securite_1.BackColor = VbRed

A+