VBA bordure

VBA bordure - VB/VBA/VBS - Programmation

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

Reply

Marsh Posté le 20-08-2006 à 02:26:50   

Reply

Marsh Posté le 20-08-2006 à 09:12:41    

tu veux automatiser le processus pour chaque cellule qui contient un nombre ?

Reply

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.

Reply

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+

Reply

Marsh Posté le 20-08-2006 à 19:26:35    

Merci, c'est installé et ça fonctionne comme je voulais

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed