Tracer Une Bordure Superieure En Auto, Si Cellule Non Vide

[rgascuel]

Bonjour,

Toujours entrain dans ma realisation de note de frais, je recherche le code vb qui me permet de tracer sur la cellule A1 une bodure superieur, si A1 est differends de " ".

Merci dejà pour l'aide apporter sur mes précédentes demandes.

 

[SergiO]

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...

@+

 

[SergiO]

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...)

Sub Test()

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

@+

 

[rgascuel]

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

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

merci

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...

@+

 

[Tonino7]

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.

 

[SergiO]

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

Re,

regarde l'exemple joint

@+