Cherche code vba pour mise en forme tab exel.

Question

Bonjour tout le monde

Je cherche des codes vba qui mai en forme les bordures des cellules et qui aligne le text(Gauche,Centre,droite) dans exel.

J'ai cherch&#233; dans l'aide d'exel mai j'ai rien trouv&#233;.

Pouvez vous m'aider svp?

Merci.

Cordialement

A bient&#244;t

jpleroisse · Answer

Bonjour,

Voici une macro qui centre le texte et place des bordure dans la cellule B1.



Sub CentrerTexte()

    Range("B1").Select

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .ShrinkToFit = False

        .MergeCells = False

    End With

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlMedium

        .ColorIndex = xlAutomatic

    End With

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

developvbdebut · Answer

Bonsoir tout le monde

J'ai oubli&#233; de vous dire que je souhaite utiliser une case &#224; coher pour placer une bordure sur une ligne.

Et que je souhaite utiliser 3 boutons option pour alignement du text.

Pour l'alignement droite et gauche, quel terme dois je employer?

Merci d'avance.

Cordialement

A bient&#244;t

jpleroisse · Answer

Bonsoir,

Sur quoi sont tes OptionButton et ta case &#224; cocher, sur un UserForm ou sur la feuille ??



jpleroisse

developvbdebut · Answer

Rebonsoir tout le monde

Les boutons et les case &#224; cocher sont sur un formulaire.

En faite tout dois &#234;tre manipuler par le formulaire.

Merci.

cordialement

A bient&#244;t

jpleroisse · Answer

Bonsoir,

'Dans un Module,



Sub PlacerBordureBas()

    Range("C2").Select

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    Selection.Borders(xlEdgeRight).LineStyle = xlNone

End Sub



Sub AlignDroite()

Range("c2").Select

    With Selection

        .HorizontalAlignment = xlRight

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .ShrinkToFit = False

        .MergeCells = False

    End With

End Sub



Sub AlignCentre()

    Range("C2").Select

    With Selection

        .HorizontalAlignment = xlCenter

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .ShrinkToFit = False

        .MergeCells = False

    End With

End Sub



Sub AlignRetraitGauche()

    Range("C2").Select

    With Selection

        .HorizontalAlignment = xlLeft

        .VerticalAlignment = xlBottom

        .WrapText = False

        .Orientation = 0

        .IndentLevel = 0

        .ShrinkToFit = False

        .MergeCells = False

    End With

End Sub



Sub EnleverBordureBas()

    Range("C2").Select

    Selection.Borders(xlEdgeBottom).LineStyle = xlNone

End Sub



'Dans les contr&#244;les du UserForm



Private Sub CheckBox1_Click()

If CheckBox1 Then

Call PlacerBordureBas

Else

Call EnleverBordureBas

End If

End Sub



Private Sub OptionButton1_Click()

Call AlignDroite

End Sub



Private Sub OptionButton2_Click()

Call AlignCentre

End Sub



Private Sub OptionButton3_Click()

Call AlignRetraitGauche

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

developvbdebut · Answer

Rebonsoir tout le monde

J'ai oubli&#233; de vous dire que je travaille avec exel 2000

Merci beaucoup, je vais tester.

Par rapport au bordure, je souhaite que tout les bordure soit encadr&#233;.

Cordialement

A bient&#244;t

jpleroisse · Answer

Bonjour,

Si tu veux que toute la cellule soit encadr&#233;e, remplace la macro PlacerBordureBas par celle-ci.



SubPlacerBordures()

    Range("C2").Select

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .Weight = xlThin

        .ColorIndex = xlAutomatic

    End With

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

developvbdebut · Answer

Bonsoir tout le monde

J'utilise Worksheets pour entrer mes donn&#233;es ligne par ligne et je souhaiterais pouvoir mettre la bordure sur une ligne 

Exemple:

de A2:H2

Est ce possible?

Merci

Cordialement

A bient&#244;t

developvbdebut · Answer

Bonsoir tout le monde

Je vous signal que je travail avec exel 2000.

je souhaite encadrer un ligne entiere de A &#224; H

Est se possible?


Merci.

Cordialement

A bient&#244;t

valtrase · Answer

Sais pas pour excel 2000 mais testes ceci:
  
'*** Trace un cadre sur la plage "A2:H2" de couleur Noire 


With [A2:H2]Borders 


  .LineStyle = xlContinuous 


  .Weight = xlMedium 


  .ColorIndex = 1 


  .Item(xlInsideVertical).LineStyle = xlNone 


End With

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

oups, ma bouff&#233; le point
With 
[A2:H2].Borders 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonjour tout le monde

Est ce possible de faire With [A:H].Borders

Car je souhaiterais que les bordure soit plac&#233; &#224; chaque entre de donn&#233;es grace &#224; Worksheets.

Avez vous compris?

Merci.

Cordialement

A bient&#244;t

valtrase · Answer

Re, 
non j'ai pas compris expliques un peu plus 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonjout tout le monde

Je souhaiterai que les bordure soient plac&#233; sur les c&#233;lules de la ligne automatiquement en suivant.

Merci

Cordialement

A bient&#244;t

developvbdebut · Answer

Bonjour tout le monde

J'utilise la fonction Worksheets pour entrer les donn&#233;es.

Je r&#233;explique, je souhaiterai que les bordures soivent plac&#233; automatiquement a chaque fois que les donn&#233;es soi entr&#233;.

Avez vous compris?

Excus&#233; moi, si je m'explique mal.

Merci.

Cordialement

A bient&#244;t

valtrase · Answer

Tu interceptes les changements dans l'&#233;v&#232;nement Change de ta feuille
  
Private Sub Worksheet_Change( ByVal Target As Range) 


  With Target.Borders 


    .LineStyle = xlContinuous 


    .Weight = xlMedium 


    .ColorIndex = 1 


  End With 


End Sub 

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

developvbdebut · Answer

Bonjour tout le monde

Je n'ai pas tres bien compris.

Je dois faire ce code, mais comment l'appeller avec le bouton.

Avez vous compris ma question?

Merci

Codialement

A bient&#244;t

developvbdebut · Answer

Bonjour tout le monde

Je m'exuse si je suis vague dans les questions que je pose.

Ce que je souhaite c'est que les bodures soivent plac&#233; sur la ligne de H &#224;  F &#224; chaque foi qu'une donn&#233;es est entr&#233;.



Voici tout le code:

Sub enregistreleve()


Dim lLigneFin As Integer
Dim rCell As Range


lLigneFin = Worksheets("Tableau").Cells.SpecialCells(xlLastCell).Row
Set rCell = Worksheets("Tableau").Cells(lLigneFin + 1, 2)
With rCell



    .Select


If UserForm1.OptionButton1 = True Then



ElseIf UserForm1.OptionButton2 = True Then


        With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .ShrinkToFit = False
        .MergeCells = False
 End With


ElseIf UserForm1.OptionButton3 = True Then


 


End If


 


    .Value = UserForm1.txtSaisie
    If UserForm1.Chkgras Then
    .Font.Bold = True
    Else
    .Font.Bold = False
    End If
    If UserForm1.Chkgitalic Then
    .Font.Italic = True
    Else
    .Font.Italic = False
    End If


 


UserForm1.ComboBox1.AddItem "arial"
UserForm1.ComboBox1.AddItem "Courrier New"
UserForm1.ComboBox1.AddItem "Time New Roman"



Select Case .Font.Name


Case "arial"
UserForm1.ComboBox1.ListIndex = 0


Case "Courrier New"
UserForm1.ComboBox1.ListIndex = 1


Case "Time New Roman"
UserForm1.ComboBox1.ListIndex = 2


Case Else
UserForm1.ComboBox1.ListIndex = -1


End Select


UserForm1.ComboBox2.AddItem "10"
UserForm1.ComboBox2.AddItem "12"
UserForm1.ComboBox2.AddItem "14"



Select Case .Font.Size


Case "10"
UserForm1.ComboBox2.Font.Size = 10


Case "12"
UserForm1.ComboBox2.Font.Size = 12


Case "14"
UserForm1.ComboBox2.Font.Size = 14


End Select


UserForm1.SpinButton1


End With



End Sub

J'ai 4 autre problemes

1) je n' arrive pas &#224; changer la taille du texte.

2) Je n'arrive pas &#224; changer le format texte.

3) il me manque 2 code un pour aligner le texte &#224; droite, le deuxieme pour aligner le texte &#224; gauche.

4) j'ai fai un code pour changer la hauteur de ligne, mais le probleme c'est qu'il marque erreur de compilation "utilisation incorect de la propri&#233;t&#233;" en selectionnant SpinButton1

Voici le code de spinButton1

Private Sub SpinButton1_Change()



Label8.Caption = _
" Hauteur de ligne : " & SpinButton1.Value
End Sub

Pouvez vous m'aider svp?

Merci

Cordialement

A bient&#244;t

developvbdebut · Answer

Bonjour tout le monde

Vous ne voulez plus m'aider, pourquoi?

Je sais mes questions son ennieuses &#224; force, et je m'en excuse.

Mai svp aid&#233; moi encore un peu.

Merci

Cordialement

A bient&#244;t

Cherche code vba pour mise en forme tab exel.

19 réponses

Discussions similaires