Discussion :

[nicolast]

Bonjour,

J'ai un problème pour mofifier le style des bordures d'une plage. Etant débutant dans la programmation Excel j'ai été voir sur le net les méthodes à utiliser mais je n'arrive pas à la faire fonctionner (même en utilisant le créateur de macro).

Voilà le déroulement de l'opération : je commence par créer une nouvelle feuille, je lui rentre des valeurs (certaines cellules peuvent rester vides) et ensuite j'essaie de changer les bordures avce le code suivant :

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
23
24
25
26
27
28
29
30
31
Worksheets("" & nomprec & "").Range("A11:AA" & j + 8).Select
                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
                With Selection.Borders(xlInsideVertical)
                    .LineStyle = xlContinuous
                    .Weight = xlThin
                    .ColorIndex = xlAutomatic
                End With
                With Selection.Borders(xlInsideHorizontal)
                    .LineStyle = xlContinuous
                    .Weight = xlHairline
                    .ColorIndex = xlAutomatic
                End With

et là j'ai une erreur 1004 qui me dit que le méthode select de la classe range a échoué

Est ce que j'ai oublié un truc dans le code ?

[JPierreM]

Pour faire plus simple

Code :

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

1
2
3
4
5
6
7
Sub sc()
Dim cellule As Range
Dim j 'je ne comprends pas l'intérêt de j
    For Each cellule In Range("A11:AA" & j + 8)
        cellule.BorderAround ColorIndex:=xlAutomatic
    Next cellule
End Sub

Evite aussi les select ça ne sert à rien et ça ralentit énormément

[nicolast]

Ca marche

Code :

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

Dim j 'je ne comprends pas l'intérêt de j

en fait ma plage est crée automatiquement et sa taille n'est pas fixe donc le j est là pour délimiter cette plage

merci JPierreM

[Gorfael]

Salut nicolast et le forum
Bienvenue
Si tu as besoin d'aide, aide nous!
Donner un extrait d'une macro, ne sert à rien! On a pas les infos nécessaires! Et ne connaissant pas suffisamment le VBA, tu ne peux donner les infos nécessaires..., sinon tu n'aurais pas besoin de nous.
On peut éventuellement te répondre au hazard, mais la chance de tomber juste...
Alors au hazard :
– Un module de classe, incompatible avec ton select
– Une déclaration dans un type incompatible avec les valeurs des variables
– Worksheets("" & nomprec & "") est une feuille n'existant pas
ETC...
A+