Aide pour EXCEL VBA

[frederic]

Je souheterais trouver comment faire une procédure qui me permettrait de faire l'entourage d'un tableau de données en se limitaant au nombre de données du tableau quel que soit le nombre de celles si!

j'utilise des données que j'importe sous excel d'un autre logiciel!c'est pour cela que le nombre de données n'est pas toujours identique!

Merci

 

[Dan]

Bonsoir,

Je présume que lorsque tu parles d'entourage c'est de placer une bordure autour d'un tableau.

Voici une macro qui devarit faire ce que tu demandes :

Sub format()
    Worksheets('feuil1').Activate 'active la feuille 1
    ActiveSheet.UsedRange.Select 'selection de la zone utilisée
    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

Bon travail

 

[_Thierry]

Re: VBA => Format : Bordure sur Plage non-définie

Bonsoir Frédéric, le Forum

Tu devrais porter plus de soin à ton sujet dans ce Forum...

Voici une approche

Sub BorderingAuto()
Dim Plage As Range


Set Plage = ActiveSheet.UsedRange

Plage.BorderAround ColorIndex:=3, Weight:=xlThick

End Sub

Tu peux jouer sur d'autres constantes pour la largeur de Trait :
xlHairline
xlMedium
xlThin

Ou encore tu peux passer aussi la consatnte 'LineStyle'

Sub BorderingAuto()
Dim Plage As Range


Set Plage = ActiveSheet.UsedRange

Plage.BorderAround ColorIndex:=5, _
                    LineStyle:=xlDouble, _
                    Weight:=xlMedium



End Sub

Bonne Nuit
[ol]@+Thierry[/ol]


EDITION !!!

Sorry Dan je ne t'avais pas vu !!! Bonsoir à toi aussi

Message édité par: _Thierry, à: 28/08/2005 23:20

 

[Dan]

Re: VBA => Format : Bordure sur Plage non-définie

Re,

Juste un petit passage pour saluer mon pote d'xld _thierry.
Macro plus simple bien sûr.
T'chat en panne ce soir ?

 

[_Thierry]

Re: VBA => Format : Bordure sur Plage non-définie

Re Dan

Je n'avais pas été sur le Tchat mais c'est exact il ne semble pas fonctionner ce soir... Une erreur à la Ligne 98 'Document.chat.pub.checked' a la valeur Null ou n'est pas un Objet...

Alors Tanpi !
Bonne Nuit
[ol]@+Thierry[/ol]

 

[Dan]

Re: VBA => Format : Bordure sur Plage non-définie

Ben notre frederic il est pas revenu voir son fil.
dommage ...