Format d'une textbox - Hachuré

Bonjour,

Comment préciser le style de motif d'une textbox ?

La couleur de motif (d'une cellule) équivaut à "Backcolor" pour une textbox.

Quel est l'équivalent du style de motif (quadrillé, pointillé, hachuré) pour une textbox ?

Dans le code ci-dessous, si la date d'une textbox correspond à un samedi ou dimanche, plusieurs textboxs ont une couleur de fond spécifique.

J'aimerais que ces mêmes textboxs soient également hachurées ?

Comment faire ?

Cordialement

Private Sub ComboBox1_Change()

'Mettre la date dans chaque textbox
Dim ANNEE As Integer
ANNEE = Sheets("PilotageNC").Range("C2").Value

Dim Choix_Mois As String
Choix_Mois = ComboBox1.ListIndex

Dim NoJourDeb As Integer

For NoJour = 1 To 31
Controls("TextBox" & NoJour + 652).Value = NoJour & "/" & (Choix_Mois) & "/" & ANNEE
Next

For NoJour = 1 To 31
If IsDate(Controls("TextBox" & NoJour + 652).Text) Then
Controls("TextBox" & NoJour + 652).Text = Format(Controls("TextBox" & NoJour + 652).Text, "dddd d")
Else
Controls("TextBox" & NoJour + 652).Text = ""
End If
Next

For NoJour = 1 To 31
Dim ECART As Integer
ECART = 31
Dim nbcolonne As Integer

For nbcolonne = 0 To 22

If Controls("TextBox" & NoJour + 652).Text = "" Or Left(Controls("TextBox" & NoJour + 652), 3) = "sam" Or Left(Controls("TextBox" & NoJour + 652), 3) = "dim" Then
Controls("TextBox" & NoJour + 1 + nbcolonne * ECART).BackColor = RGB(192, 160, 128)
Else
Controls("TextBox" & NoJour + 1).BackColor = &H80C0FF
Controls("TextBox" & NoJour + 32).BackColor = &H80FFFF
Controls("TextBox" & NoJour + 63).BackColor = &HC0C0&
Controls("TextBox" & NoJour + 94).BackColor = &H80FF&
Controls("TextBox" & NoJour + 125).BackColor = &H80FF&
Controls("TextBox" & NoJour + 156).BackColor = &HC000&
Controls("TextBox" & NoJour + 187).BackColor = &HC000&
Controls("TextBox" & NoJour + 218).BackColor = &HE0E0E0
Controls("TextBox" & NoJour + 249).BackColor = &HE0E0E0
Controls("TextBox" & NoJour + 280).BackColor = &HC0C000
Controls("TextBox" & NoJour + 311).BackColor = &HC0C000
Controls("TextBox" & NoJour + 342).BackColor = &HFF00FF
Controls("TextBox" & NoJour + 373).BackColor = &HFF00FF
Controls("TextBox" & NoJour + 404).BackColor = &H40C0&
Controls("TextBox" & NoJour + 435).BackColor = &H40C0&
Controls("TextBox" & NoJour + 466).BackColor = &H404040
Controls("TextBox" & NoJour + 497).BackColor = &H404040
Controls("TextBox" & NoJour + 528).BackColor = &H800080
Controls("TextBox" & NoJour + 559).BackColor = &H800080
Controls("TextBox" & NoJour + 590).BackColor = &HC0E0FF
Controls("TextBox" & NoJour + 621).BackColor = &HC0E0FF
Controls("TextBox" & NoJour + 652).BackColor = &H40&
Controls("TextBox" & NoJour + 683).BackColor = &HC0C0FF

End If
Next nbcolonne
Next NoJour

End Sub

Bonsoir

Essayer ceci :

Range("D10").Interior.Pattern = xlUp

cdt,

Bonjour,

DS3469 a écrit :

Bonjour,

Comment préciser le style de motif d'une textbox ?

La couleur de motif (d'une cellule) équivaut à "Backcolor" pour une textbox.

Quel est l'équivalent du style de motif (quadrillé, pointillé, hachuré) pour une textbox ?

Le style de motif pour une textbox est backstyle.

Celui-ci ne vous laisse que 2 possibilités, opaque ou transparent.

A ma connaissance il n'est pas possible d'appliquer des motifs dans ces controls.

Par contre dans la police (Fonts) vous pouvez choisir de barrer le texte.

Bonjour,

Merci pour vos réponses.

La formule transmise par ti_chou concerne des cellules et non des controls.

Je crois en effet qu'il n'y a pas de solutions.

Je vais attendre encore un peu avant de classer le sujet au cas où..

Cordialement

Bonjour,

avec une image de fond hachuré et par transparence …

Bonjour,

une proposition que j'utilise déjà

Bonne suite

Cordialement

axion

Bonjour,

Merci pour les propositions.

Il apparait donc qu'il n'est pas possible de "hachurer" une textbox directement.

La solution d' axion nous fait passer par le format d'une cellule .

La solution de Marc L, est celle que j'ai utilisé pour la présentation de mon USF (qui possede la propriété "image"), mais je n'arrive pas à insérer une image dans une textbox.

Pourrait-on m'expliquer comment cela se fait (=inserer image de fond par transparence dans textbox) ?

Cordialement

Non c'est le contraire !

Charger une image comme fond dans l'UserForm puis superposition d'un TextBox au style transparent lui …

Bonjour,

Effectivement, il s'agit d'une solution.

Merci

Cordialement