userform.textbox format = worksheet.cell format (pas de date)

Le
SLED
Bonjour,

J'utilise un userform avec des textbox pour completer un excelsheet.
Lors du chargement du userforme, j'aimerai récupérer la couleur de fond, de
texte, caractéristique comme gras, surligné sur tout ou partie du texte et
les réappliquer sur le textbox.

Idem pour la mise à jour du userform vers l'excelsheet

Merci de votre aide et indication.
A+
Sled
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
Corona
Le #20852381
Bonjour SLED,
Tu dois connaître les propriétés des contrôles de la UserForm.
En tapant le nom du contrôle suivi d’un point (exemple – TextBox1.),
tu recevras la liste des propriétés du contrôle en question. Tu choisis
la propriété qui correspond et tu y place la valeur souhaitée (en
l’occurrence ici la valeur de la cellule (range(« LC »).propriété)
Un petit exemple ci-dessous
Philippe Tulliez

Private Sub UserForm_Initialize()
With Me
With .TextBox1
.Value = Range("A2")
.Font.Bold = Range("A2").Font.Bold 'Police Gras
.Font.Italic = Range("A2").Font.Italic 'Police Italique
.ForeColor = Range("a2").Font.Color 'Couleur de la police
.BackColor = Range("a2").Interior.Color 'Motif
End With
With .TextBox2
.Value = Range("B2")
.Font.Bold = Range("B2").Font.Bold
.Font.Italic = Range("b2").Font.Italic
.ForeColor = Range("B2").Font.Color
.BackColor = Range("B2").Interior.Color
End With
End With
End Sub


SLED a écrit :
Bonjour,

J'utilise un userform avec des textbox pour completer un excelsheet.
Lors du chargement du userforme, j'aimerai récupérer la couleur de fond, de
texte, caractéristique comme gras, surligné... sur tout ou partie du texte et
les réappliquer sur le textbox.

Idem pour la mise à jour du userform vers l'excelsheet

Merci de votre aide et indication.
A+
Sled


SLED
Le #20853181
Merci bcp

A+
Led

"Corona" a écrit :

Bonjour SLED,
Tu dois connaître les propriétés des contrôles de la UserForm.
En tapant le nom du contrôle suivi d’un point (exemple – TextBox1.),
tu recevras la liste des propriétés du contrôle en question. Tu choisis
la propriété qui correspond et tu y place la valeur souhaitée (en
l’occurrence ici la valeur de la cellule (range(« LC »).propriété)
Un petit exemple ci-dessous
Philippe Tulliez

Private Sub UserForm_Initialize()
With Me
With .TextBox1
.Value = Range("A2")
.Font.Bold = Range("A2").Font.Bold 'Police Gras
.Font.Italic = Range("A2").Font.Italic 'Police Italique
.ForeColor = Range("a2").Font.Color 'Couleur de la police
.BackColor = Range("a2").Interior.Color 'Motif
End With
With .TextBox2
.Value = Range("B2")
.Font.Bold = Range("B2").Font.Bold
.Font.Italic = Range("b2").Font.Italic
.ForeColor = Range("B2").Font.Color
.BackColor = Range("B2").Interior.Color
End With
End With
End Sub


SLED a écrit :
> Bonjour,
>
> J'utilise un userform avec des textbox pour completer un excelsheet.
> Lors du chargement du userforme, j'aimerai récupérer la couleur de fond, de
> texte, caractéristique comme gras, surligné... sur tout ou partie du texte et
> les réappliquer sur le textbox.
>
> Idem pour la mise à jour du userform vers l'excelsheet
>
> Merci de votre aide et indication.
> A+
> Sled
.



Publicité
Poster une réponse
Anonyme