Discussion :

[lilou315]

Bonjour,

Je suis en train de créer un formulaire et j'aimerais que des bordures apparaissent sur une certaine cellule lorsque l'on sélectionne une valeur particulière d'une combobox (dans le but de remplacer une mise en forme conditionnelle pour une meilleure compatibilité des versions).

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
32
33
34
35
36
37
 
Sub Bordures(cell As String)
'Mettre des bordures à une cellule
ActiveSheet.Range(cell).Select
'Sélectionner la cellule
 
With Selection.Borders(xlEdgeLeft)
'Bordure gauche
  .LineStyle = xlContinuous
  .ColorIndex = 0
  .TintAndShade = 0
  .Weight = xlThin
End With
 
With Selection.Borders(xlEdgeTop)
'Bordure du haut
  .LineStyle = xlContinuous
  .ColorIndex = 0
  .TintAndShade = 0
  .Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
'Bordure du bas
  .LineStyle = xlContinuous
  .ColorIndex = 0
  .TintAndShade = 0
  .Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
'Bordure droite
  .LineStyle = xlContinuous
  .ColorIndex = 0
  .TintAndShade = 0
  .Weight = xlThin
End With
 
End Sub

Ce code marche très bien lorsque la feuille n'est pas protégée, par contre lorsque je protège la feuille (pour une utilisation avec l'extérieur), il apparait cette erreur : "Erreur d'exécution 1004. Impossible de définir la propriété LineStyle de la classe Border".
la cellule en question est déverrouillée donc normalement on peut lui apporter des modifications.

Merci de votre aide

Alice

[lilou315]

Bon ben c'était une simple case à cocher pour permettre à l'utilisateur de changer le format lors du verrouillage de la feuille...
Désolée pour le topic qui ne sert à rien, je ne sais pas si on peut le supprimer