Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Nicolas,
Voici pour modifier la couleur des Textbox d'un formulaire, une façon de faire :
'------------------------------------ Private Sub CommandButton1_Click()
Dim C As Object For Each C In UserForm1.Controls If TypeName(C) = "TextBox" Then LaCouleur C End If Next UserForm1.Repaint End Sub '------------------------------------
Sub LaCouleur(BoiteTexte As MSForms.TextBox) BoiteTexte.BackColor = &H8080FF End Sub '------------------------------------
Salutations!
"Nicolas S" a écrit dans le message de news:c1kaja$8mb$ Bonjour, je souhaiterai faire changer la couleur de plusieurs text box en même temps (avec la même instruction). Cela est-il possible ?
Merci de vos réponses
Bonjour Nicolas,
Voici pour modifier la couleur des Textbox d'un formulaire, une façon de faire :
'------------------------------------
Private Sub CommandButton1_Click()
Dim C As Object
For Each C In UserForm1.Controls
If TypeName(C) = "TextBox" Then
LaCouleur C
End If
Next
UserForm1.Repaint
End Sub
'------------------------------------
Sub LaCouleur(BoiteTexte As MSForms.TextBox)
BoiteTexte.BackColor = &H8080FF
End Sub
'------------------------------------
Salutations!
"Nicolas S" <NmcnSsaillardP@libertysurf.fr> a écrit dans le message de news:c1kaja$8mb$1@news.tiscali.fr...
Bonjour,
je souhaiterai faire changer la couleur de plusieurs text box en même
temps (avec la même instruction).
Cela est-il possible ?
Voici pour modifier la couleur des Textbox d'un formulaire, une façon de faire :
'------------------------------------ Private Sub CommandButton1_Click()
Dim C As Object For Each C In UserForm1.Controls If TypeName(C) = "TextBox" Then LaCouleur C End If Next UserForm1.Repaint End Sub '------------------------------------
Sub LaCouleur(BoiteTexte As MSForms.TextBox) BoiteTexte.BackColor = &H8080FF End Sub '------------------------------------
Salutations!
"Nicolas S" a écrit dans le message de news:c1kaja$8mb$ Bonjour, je souhaiterai faire changer la couleur de plusieurs text box en même temps (avec la même instruction). Cela est-il possible ?
Merci de vos réponses
Nicolas S
merci pour ta réponse
michdenis a écrit dans le message ...
Bonjour Nicolas,
Voici pour modifier la couleur des Textbox d'un formulaire, une façon de faire :
'------------------------------------ Private Sub CommandButton1_Click()
Dim C As Object For Each C In UserForm1.Controls If TypeName(C) = "TextBox" Then LaCouleur C End If Next UserForm1.Repaint End Sub '------------------------------------
Sub LaCouleur(BoiteTexte As MSForms.TextBox) BoiteTexte.BackColor = &H8080FF End Sub '------------------------------------
Salutations!
merci pour ta réponse
michdenis a écrit dans le message ...
Bonjour Nicolas,
Voici pour modifier la couleur des Textbox d'un formulaire, une façon de
faire :
'------------------------------------
Private Sub CommandButton1_Click()
Dim C As Object
For Each C In UserForm1.Controls
If TypeName(C) = "TextBox" Then
LaCouleur C
End If
Next
UserForm1.Repaint
End Sub
'------------------------------------
Sub LaCouleur(BoiteTexte As MSForms.TextBox)
BoiteTexte.BackColor = &H8080FF
End Sub
'------------------------------------
Voici pour modifier la couleur des Textbox d'un formulaire, une façon de faire :
'------------------------------------ Private Sub CommandButton1_Click()
Dim C As Object For Each C In UserForm1.Controls If TypeName(C) = "TextBox" Then LaCouleur C End If Next UserForm1.Repaint End Sub '------------------------------------
Sub LaCouleur(BoiteTexte As MSForms.TextBox) BoiteTexte.BackColor = &H8080FF End Sub '------------------------------------
