bordure

[GHISLAIN]

bonjour a tous

j ai ce code ci dessous qui encadre les bordures automatiquement

Set Target = Worksheets("code30").Range("a12😛24")
Dim Cell As Range
For Each Cell In Target
If Cell.Value <> "" Then
Cell.Borders.ColorIndex = xlAutomatic

Else
Cell.Borders.ColorIndex = xlNone
End If
Next

le souci etant qui ne tient pas compte des cellules fusionnées et ne m 'encadre que parti de la cellule fusionnée

serait il possible de modifier ce code pour que toute cellule meme fusionné soit entierement encadrée et pas qu une moitié?

merci a tous de votre aide

amicalement

ghislain

 

[Dranreb]

Re : bordure

bonjour
Essayer Cell.MergeArea.Borders ...
À+

 

[GHISLAIN]

Re : bordure

bonjour dranreb,

merci de t etre penché sur mon fil

concerant ta proposition ca fonctionne si je ne rajoute^pas cette ligne

Cell.MergeArea.Borders.ColorIndex = xlNone
ligne qu il me faut pour effacer les bordure si la ligne n est pas rempli


Set Target = Worksheets("code10").Range("a12:R24")


Dim Cell As Range
For Each Cell In Target
If Cell.Value <> "" Then
Cell.MergeArea.Borders.ColorIndex = xlAutomatic

Else

Cell.MergeArea.Borders.ColorIndex = xlNone

End If
Next

si tu as une idée

merci encore de ton aide

amicalement

ghislain

 

[tototiti2008]

Re : bordure

Bonjour Ghislain, bonjour Bernard,

278 messages et tu n'as toujours pas trouvé où se trouve la balise CODE, ni pris l'habitude de nous fournir un fichier exemple... doit-on désespérer ?

Si ce code fait partie d'une procédure évènementielle (genre Worksheet_Change), Target ne doit pas être utilisé comme une variable à laquelle on affecte un plage, Target est automatiquement affecté par la procédure évènementielle pour identifier la plage de cellule concernée par l'évènement...

Un bout de fichier exemple, peut-être ?

 

[JNP]

Re : bordure

Bonjour le fil 🙂,
En attendant le bout de fichier, il paraitrait logique de tester si la cellule est fusionnée ou non 🙄...

Sub test()
Set Target = Worksheets("code10").Range("a12:R24")
Dim Cell As Range
For Each Cell In Target
    If Cell.MergeCells Then
        If Cell.Value <> "" Then
            Cell.MergeArea.Borders.ColorIndex = xlAutomatic
        Else
            Cell.MergeArea.Borders.ColorIndex = xlNone
        End If
    Else
        If Cell.Value <> "" Then
            Cell.Borders.ColorIndex = xlAutomatic
        Else
            Cell.Borders.ColorIndex = xlNone
        End If
    End If
Next
End Sub

Bonne journée 😎

 

[GHISLAIN]

Re : bordure

bonjour tototit2008,

j avais sous la mains ce code qui me servais bien pour d autre dossier , toutefois il est vrai que celui ci je l ai integree dans le Worksheet_Change
pourtant celui ci fonctionne , mais je laisse l'argumentation aux experts!!! ceci depassant largement mes competence
concernant le fichier je ne jugée pas utile d en fournir un etant donnée qu il me semblait que le code auquel je but ne le necéssité pas

la difference est la 278 mess contre plus de 8000 il n y a pas de quoi lutter ;-))

merci d etre passée sur mon fil en esperant que tu ailles bien

amicalement

ghislain