Mise en forme de cellule ( VBA - EXCEL )

Messages postés
56
Date d'inscription
lundi 22 novembre 2004
Statut
Membre
Dernière intervention
27 mai 2008
- - Dernière réponse : jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
- 1 juin 2005 à 19:17
bonjour,



j ai essayer pas mal de chose pour modifier : la font , la taille, le
style (Gras, italique) et la couleur d'une cellule de feuille excel



Voila ce que j ai essayer :



Cells(i, 1).Font.Size = TTaille

Cells(i, 1).Font.Name = FFont

If SStyle "Gras" Then Cells(i, 1).Font.Bold True

If SStyle "Italique" Then Cells(i, 1).Font.Italic True

If SStyle = "Gras + Italique" Then

Cells(i, 1).Font.Bold = True

Cells(1, 1).Font.Italic = True

End If

Cells(i, 1).TextAlign = PPosition

Cells(i, 1).Font.Color = CCouleur


ET CA MARCHE pas :/



kelkun aurai t-il une solution
Afficher la suite 

3 réponses

Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
3
0
Merci
Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
Messages postés
936
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
17 mars 2017
3
0
Merci
Oupsss.... Bug
Et t'as Mis quoi dans tes TTaille, FFont, PPosition etc.....

Cordialement, Jean-Paul
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partagé
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
22
0
Merci
Bonjour,

Comme dit Jean-Claude, comment as-tu déclarés tes variables TTaille ect...

Sans savoir, regarde pour modifer ceci à ton prog.



Private Sub CommandButton4_Click()

Dim i

For i = 1 To 10

Cells(i, 1).Font.Size = 10

Cells(i, 1).Font.Name = "Arial"

If Cells(i, 1).Value "Gras" Then Cells(i, 1).Font.Bold True

If Cells(i, 1).Value "Italique" Then Cells(i, 1).Font.Italic True

If Cells(i, 1).Value = "Gras + Italique" Then

Cells(i, 1).Font.Bold = True

Cells(1, 1).Font.Italic = True

End If

Cells(i, 1).Select

Selection.HorizontalAlignment = xlCenter

Cells(i, 1).Font.Color = vbRed

Next i

End Sub



Je ne suis pas sûr que la partie End If fonctionne , sinon passe ton code complet.



jpleroisse