Encadré "éphémère"

bonjour,

j'ai une instruction simple :

Range("D4").Select

à la sortie d'un traitement je me positionne sur cette cellule

je voudrais faire un encadré épais en rouge de cette cellule juste pour la repérer "visuellement" dans mon tableau mais sans affecter le tableau. Si je change de cellule, l'encadré disparait et tout continue "comme avant"

merci

Bonsoir,

à tester :

Range("D4").Borders.LineStyle = xlContinuous
Range("D4").Borders.Color = -16776961
Range("D4").Borders.Weight = xlThick

ça c'est pour mettre le cadre rouge,

ensuite dans le code événementielle de la feuille en "SelectionChange" et copier ceci :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Range("D4").Borders.LineStyle = xlNone
End Sub

@ bientôt

LouReeD

merci loureed pour ta réponse que j'ai adaptée à mon fichier!

bonne soirée

cdt

Bonjour,

à force de regarder les post sur les forums je m'aperçois d'une grossièreté dans le code :

remplacez : Range("D4").Borders.Color = -16776961

par : Range("D4").Borders.Color =RGB(255,0,0)

C'est plus propre !

RGB = Red Green Blue

les chiffre correspondent à la position des curseur de chaque couleur 0 = pas de couleur, 255 couleur max !

donc noir = RGB(0,0,0) et blanc = RGB(255,255,255) donc vert = RGB(0,255,0) etc... ce qui fait plus de 16 000 000 de combinaisons !

@ bientôt

LouReeD

j'aurai du te le dire

je m'enétais rendu compte au moment du test et apres recherches, j'ai abouti à ton résulta

merci quand même de m'avoir mis sur les rails

merci pour vos mercis !

@ bientôt

LouReeD