access bordures ds contrôle feuille de calcul

Question

Bonjour,
je cherche à délimiter des zones dans un contrôle qui est une feuille de calcul. Ce contrôle est placé dans un formulaire access.
Pour mettre en place ces bordures, j'ai fait une macro dans excel puis j ai recupéré le code VB puis je l ai un peu adapté pour qu'il sélectionne le bon objet

voici le code:

With wks.Cells(1, 1)

    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    With .Borders(xlEdgeLeft)
        .LineStyle = xlContinuous                           'çà prend pas la valeur xl continuous
        .Weight = xlThin                                     ' çà bugue: erreur d execution 5 argument ou appel de procédure
                                                                     incorrect
        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeTop)
        .LineStyle = xlContinuous
'        .Weight = xlThin
'        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
'        .Weight = xlThin
'        .ColorIndex = xlAutomatic
    End With
    With .Borders(xlEdgeRight)
        .LineStyle = xlContinuous
 '       .Weight = xlThin
 '       .ColorIndex = xlAutomatic
    End With
    With .Borders(xlInsideVertical)
        .LineStyle = xlContinuous
 '       .Weight = xlThin
 '       .ColorIndex = xlAutomatic
    End With
    With .Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
'        .Weight = xlThin
 '       .ColorIndex = xlAutomatic
    End With
End With

voilà le binz!!
Merci d 'avance de proposer des solutions

michel_m · Answer

Bonjour,

pour encadrer une cellule:
sub encadrer()
Cells(2, 2).Borders.Weight = xlThin
end sub

j'ai pas compris le reste avec access.

Michel

Mercredi · Answer

rebonjour
j ai modifie mon code suivant ta proposition et çà ne fonctionne pas, voici ce qui actuellement ne fonctionne pas.

With wks.Cells(1, 1)

    With .Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
   End With

c est toujours Weight qui refuse de s appliquer etqui provoque l erreur 5
xlcontinous est vide  c est peut etre pour cela que linestyle prend la valeur Null, que dois je mettre alors?
Merci pour les propositions

Mercredi · Answer

Bonjour,
Mon probleme est toujours là! sauf que maintenant j ai effacé tout ma feuille de calcul même les lignes qui delimite les cases alors çà devient très ennuyeux pour lire.
je comprend toujours pas pourquoi çà ne passe pas
merci pour les solutions

Mercredi · Answer

TROUVEE!
j ai la solution: il ne faut pas utiliser les mots clés du VBA excel (alors que c est une feuille de calcul, pff!) il faut mettre des valeurs numériques
xl continuous: 1
xlthin 1
weight=1

enfin que des petites choses du genre

voilà
bonne journée!
PS comment on dit que c est resolu?

Access bordures ds contrôle feuille de calcul

4 réponses

Votre réponse

Discussions similaires

Newsletters