définir une police à une variable

[kinarius]

Bonjour à tous,

je voudrais savoir comment définir une police à une variable car ça doit être tout simple mais je n'y arrive pas .

Merci à tous de votre aide.

 

[Samantha]

Bonjour le Forum, les Gens, Kinarius

Nous parlerais tu de mise en forme conditionnelle ???

Menu Format
Mise en forme conditionnelle

Et dans la boite de dialogue tu détermine si c'est un résultat ou une formule et du définit le format (police et couleur et taille)

Et voili voila B)

Si j'ai mal compris la question désolée........ Tiens nous au courant



Samantha B)

 

[kinarius]

J'ai oublié de préciser: en vb.

merci

 

[Samantha]

Désolée alors VB et moi on est pas copains :S

Je passe la main :evil:

 

[PascalXLD]

Bonjour

voici un exemple pour attribuer la police Arial en A1 mais Arial est en variable

Dim MaPolice As String

MaPolice = 'arial'
Range('A1').Font.Name = MaPolice


Bon courage

 

[kinarius]

et si ma variable s'appelle 'num' ?

 

[PascalXLD]

re

Dim num as string
num='arial'

 

[kinarius]

Re,

le fait de marquer cela:

Dim num as string
num='arial'

ne m'écrit ce qu'il y a dans la variable en arial mais m'écrit arial dans la variable.

 

[PascalXLD]

Re

Et bien là je suis bon pour le ZOP

Bon il faudrait que tu sois plus explicite sur ce que tu veux car je n'avais pas compris ta question et Samantha non plus d'ailleurs (ça me rassure)

Ta variable tu en fais quoi ?? tu l'ecris dans une cellule ??

 

[kinarius]

j'ai un programme qui me genere des numeros de document
ex:Q001LO, hors je veux avoir une barre dans le 0. Il me faut donc la police 'WST_Fren' pour le différencier du O.

le 001 appelé 'num' se genere automatiquement. Il prend la derniere cellule vide et lui affecte un n° incrémental.

c'est cette varaible que je voudrais avoir avec une autre police.

extrait du prog:

' Définition de la valeur de la variable num

If Range('A4') = '' Then
num = 1
Else
Range('A3').Select
Range(Selection, Selection.End(xlDown)).Select
num = Selection.Rows.Count
End If


' Format de la variable

num = Format(num, '0000')

Il me manque la police de 'num'.
Comment faire ??

merci

 

[PascalXLD]

Re

Mais la police n'est pas associée à un texte mais à une cellule ou à du texte dans une cellule.

Donc c'est au moment que tu ecris ta variable dans une cellule que tu appliques ta police, mais pas sur ta variable elle-même

Edition : Re José cool ton nouveau job en effet

Message édité par: Pascal76, à: 15/06/2005 14:00

 

[kinarius]

Re

Dans mon exemple : Q001LO,

le 'Q' est une variable qui est en arial
le '001' est une deuxieme variable qui doit etre en QSM_fren pour avoir la barre dans les 0
le 'LO' est la derniere variable qui reste en arial.

donc c'est en vb que je dois attribuer la police. Comment faire ?
merci

 

[PascalXLD]

Re

Le tout est de savoir lorsque tu copies ta reference dans ta cellule tu ne copies que tes 3 variables pour en faire ta référence tu ne rajoutes rien avant ??

si c'est juste cela te donne a peu près

Range('A1')=var1 & num & var2

Range('A1').Characters(Start:=2, Length:=3).Font.Name = 'WST_Fren'

AUtre possibilité

Pour unne cellule tu veux mettre tous les chiffres en wst_fren et les lettres restent en arial

Dim x As Byte

For x = 1 To Len(Range('A1'))
If IsNumeric(Mid(Range('A1'), x, 1)) Then Range('A1').Characters(Start:=x, Length:=1).Font.Name = 'WST_Fren'
Next

Bon courage

Message édité par: Pascal76, à: 16/06/2005 08:16

 

[kinarius]

merci pascal

bonne journée.