récupérer police cellule pour l'affecter à des labels

Bonjour le forum,

Dans le cadre de mon travail je développe (tout au moins j'essaye) un formulaire personnalisé via VB6
Or mon entreprise possède une charte graphique avec des polices spécifiques (n'existant donc pas dans les choix EXCEL)

Du coup, ce que je cherche à réaliser est de "récupérer" la police d'une cellule et qu'elle soit affecter à mes labels dans mon formulaire personnalisé.

J'ai réussi à récupérer la couleur de fon d'une de mes cellules pour l'affecter au fond de ma userform, en ajoutant une ligne de prog au bouton d'ouverture de ma userform comme suit :

Code:

---

1 2 3 4 5

Sub Bouton1_Cliquer() userform1.BackColor = Sheets("feuil2!").Cells(3, 1).Interior.Color userform1.Show End Sub

---

Ainsi est-il possible de faire une autre ligner de prog me permettant ce coup-ci de récupérer la police d'une cellule.

Je vous remercie par avance de vos réponses en espérant avoir été clair.

Bonjour,
Exemple

Code:

---

Me.Label1.Font.Name = Range("A1").Font.Name

---

Bonjour
Je suis curieux de savoir en quoi il serait utile que la police d'un label (contrôle destiné uniquement à afficher du texte. En l'occurrence, celui d'une cellule ...) soit identique à celle du conteneur de ce texte .

Bonjour Unparia,
Je partage ton interrogation car pour ma part je reste très sobre quant à l'utilisation des UserForm de leurs contrôles. Ni couleur, ni fantaisie mais cela ne nous empêche pas d'apporter une réponse même si l'on ne partage pas les mêmes idées.

Merci pour vos réponses..

Le seul intérêt pour moi est de pouvoir afficher l'ensemble de mes userform avec une police propre à une charte graphique..
Dans excel, j'ai importé un thème comprenant cette police.. cel me permet de saisir dans le classeur avec cette police.. Mais dans VB, je n'ai pas accès à cette police de thème dans "font"..

C'est pourquoi je veux "récupérer" la police de ma cellule pour l'appliquer à tous les labels, textbox..
Mais peut être que je m'y prends mail, y a t il un moyen d'importer un thème dans VB?

Salut.

Une charte graphique sur des userform en VBA... On ne me l'avait encore jamais faite, celle-là... ;)