Discussion :

[NewbiePower]

Hello,

J'ai un petit problème avec des bordures excel. J'ai effectivement un sous-formulaire contenant un tableau excel et je n'arrive pas a éditer les bordures de mes cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
With sous_formulaire.Controls("cadreobjetindependant").Object.Worksheets(1)
        With .Range(.cells(3, 2), .cells(102, 31))
            .clearcontents
            .Borders(xlDiagonalDown).LineStyle = xlNone
            .Borders(xlDiagonalUp).LineStyle = xlNone
            With .Borders(xlEdgeLeft)
                .LineStyle = xlContinuous
                .Weight = xlMedium
                .ColorIndex = xlAutomatic
            End With
            ...

Tout va très bien jusqu'à l'instruction ".clearcontents". Après j'ai des erreurs de variables non définies sur "xlNone", "xlDiagonalDown", "xlDiagonalUp", "xlEdgeLeft", "xlContinuous", "xlMedium" et "xlAutomatic" (et le reste que j'ai pas mis là)

Quelle instruction j'ai oublié?

Ces lignes de codes fonctionnent pourtant très bien sur Excel...

[argyronet]

Bonjour,

Pour faire de l'OLE Automation, il faut que tu aies la référence de l'objet exploité pour hériter des ses propriétés, méthodes et aussi des ces constantes.

Dans ton cas il te faut un objet Workbook avec tout ce qui faut autour...

Argy

[NewbiePower]

Il y a pas mal de mot que j'ai pas compris...(C'est normal, je débute)

Mais dans le cadre d'objet independant -> propriété, j'ai:
Application OLE : Microsoft Excel 2000
Classe Objet : Excel.Sheet.8

Qu'est ce qu'il faut que je rajoute exactement sur mon objet ou dans mon code pour que ca marche?

[argyronet]

Il faut que tu fasses Référence à Excel pour pouvoir bénéficier des constantes notamment...
Là où tu pioches, c'est que tu exploites un .Range comme si tu étais en Excel VBA.
J'ose d'ailleurs supposer que tu as fait du copier/coller. Ce n'est pas plus mal mais autant ton code marche sous Excel, autant tel qu'il est, il ne peut pas marcher dans Access...

Bon voilà un exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub RefreshExcelObject_Click()
Dim oWorksheet As Worksheet
Dim oRange As Range
 
    Set oWorksheet = Me.ctlXLObject.Object.Worksheets(1)
        With oWorksheet
            Set oRange = .Range(.cells(1, 1), .cells(15, 3))
            With oRange
                .ClearContents
                .Borders(xlDiagonalDown).LineStyle = xlThin
                .Borders(xlDiagonalUp).LineStyle = xlThin
                With .Borders(xlEdgeLeft)
                    .LineStyle = xlContinuous
                    .Weight = xlMedium
                    .ColorIndex = xlAutomatic
                End With
            End With
 
        End With
    Set oRange= Nothing
    Set oWorksheet = Nothing
End Sub

Argy

[NewbiePower]

Après un weekend pennard...au boulot!

Donc J'ai essayé ton code Argy et j'ai eu des erreurs de compilation.
=> type défini par l'utilisateur non défini...

Bon, après 2-3 recherches, j'ai vu qu'il fallait activer les librairies Excel.

Ensuite, j'ai eu des erreur d'executions
=> Impossible de modifier la propriété linestyle de la classe border

En fait, j'avais écris le code afin de restaurer le quadrillage si l'utilisateur venait à l'effacer avec un couper coller.
Pour limiter ce que l'utilisateur peut faire, j'ai vérouillé la feuille tout en déverouillant les cellules de travail.
C'est le vérouillage qui était la source de la 2ème erreur.
Microsoft ne permet pas de modifier le quadrillage d'une feuille excel vérouillée meme si les cellules sont, elles, dévérouillées Sauf lors d'un couper coller...
Vive Billou!

Bon, on va dire que c'est résolu!
Merci de votre aide!