VBA bordure - VB/VBA/VBS - Programmation
Marsh Posté le 20-08-2006 à 09:12:41
tu veux automatiser le processus pour chaque cellule qui contient un nombre ?
Marsh Posté le 20-08-2006 à 11:41:12
J'aimerais automatiser que si cellule (non vide) une bordure entoure la celulle.
J'ai trouvé pour y mettre une couleur.
For Each mycell In Range("a5:a204" )
If mycell.Value <> "" Then
With mycell.Interior
.ColorIndex = 33
.Pattern = xlSolid
Mais lorsque j'essaie avec une bordure, cela ne fonctionne pas.
Marsh Posté le 20-08-2006 à 12:12:37
bonjour,
Fais quelque chose comme ça :
Sub Test()
For Each o In Selection
If o <> "" Then
o.Borders.LineStyle = xlContinuous
o.Borders(xlDiagonalDown).LineStyle = xlNone
o.Borders(xlDiagonalUp).LineStyle = xlNone
End If
Next
End Sub
A+
Marsh Posté le 20-08-2006 à 02:26:50
Je cherche la solution en VBA
Description
Je cherche le moyen de mettre des bordures autour de plusieurs cellules pleine. (Chiffre)
Ceux-ci se trouvent dans la colonne A.
La longueur des cellules pleines varie.
La première cellule se trouve en A5 et il n'y a qu'une ligne sur 2 remplie.
Merci d'avance pour votre aide, car moi je plante
Kyldam