Mise en forme de cellule ( VBA - EXCEL )
ukos
Messages postés
56
Date d'inscription
lundi 22 novembre 2004
Statut
Membre
Dernière intervention
27 mai 2008
-
1 juin 2005 à 17:36
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
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
A voir également:
- Vba mise en forme cellule
- Doevents vba - Conseils pratiques -Visual Basic / VB.NET
- Vba récupérer valeur cellule d'une autre feuille - Forum Visual Basic
- Dernière cellule non vide vba ✓ - Forum Visual Basic 6
- Vba dernière cellule non vide - Forum Visual Basic 6
- Vba dernière cellule non vide (Ignorer les formules résultat "") - Forum VBA Office (Excel, Word ...)
3 réponses
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
3
1 juin 2005 à 18:26
1 juin 2005 à 18:26
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
3
1 juin 2005 à 18:28
1 juin 2005 à 18:28
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é
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é
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
1 juin 2005 à 19:17
1 juin 2005 à 19:17
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
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