Tracer Une Bordure Superieure En Auto, Si Cellule Non Vide

SergiO

XLDnaute Accro

• 11 Août 2006

• #2

Re : Tracer Une Bordure Superieure En Auto, Si Cellule Non Vide

Bonsoir rgascuel,

Tu veux vraiment du VBA ?

Pourquoi pas avec une mise en forme conditionnelle :

Si la cellule est différente de " " alors mettre une bordure...

@+

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 11 Août 2006

• #3

Re : Tracer Une Bordure Superieure En Auto, Si Cellule Non Vide

Re,

En VBA, quelque chose qui marche mais il y a sûrement mieux (je laisse le soin aux pros de corriger...)

Code:

Sub Test()

Range("A1").Select
If Not ActiveCell = "" Then
    Selection.Borders(xlEdgeTop).LineStyle = xlContinuous
Else
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
End If
   
End Sub

@+

 

Vote positif 0 Vote négatif

R

rgascuel

Guest

• 11 Août 2006

• #4

Re : Tracer Une Bordure Superieure En Auto, Si Cellule Non Vide

Et concretement ?
desolé, mais je ne suis q'un bleu...

merci

SergiO à dit:

Bonsoir rgascuel,

Tu veux vraiment du VBA ?

Pourquoi pas avec une mise en forme conditionnelle :

Si la cellule est différente de " " alors mettre une bordure...

@+

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

T

Tonino7

XLDnaute Occasionnel

• 11 Août 2006

• #5

Re : Tracer Une Bordure Superieure En Auto, Si Cellule Non Vide

tu sélectionnes ta cellule , et tu vas dans FORMAT/mise en forme conditionnelle.

 

Vote positif 0 Vote négatif

SergiO

XLDnaute Accro

• 11 Août 2006

• #6

Re : Tracer Une Bordure Superieure En Auto, Si Cellule Non Vide

Re,

regarde l'exemple joint

@+

 

Pièces jointes

• rgascuel.zip

  38.3 KB · Affichages: 239

Vote positif 0 Vote négatif