Activer une bordure en fonction de la cellule cliquée

Bonjour à tous,

je cherche à pouvoir mettre une bordure autour d'une cellule à la ligne 88 de la colonne dans laquelle j'ai cliqué.

La première étape est de virer toutes bordures sur la ligne 88 entre mes colonnes 3 et 354 (c'est la zone dans laquelle je veux réaliser cette opération).

Puis en fonction de la colonne cliquée je sélectionne la cellule sur la colonne cliquée, et en ligne 88, puis j'active les bordures.

Mais j'ai un message d'erreur et je ne comprends pas...

J'ai essayé le code sans le select avant d'activer/désactiver les changements de bordures, qui n'a pas fonctionné lui non plus.

Si vous aviez une idée, car je suis sur que c'est une bricole mais la je ne vois pas ?

Merci d'avance.

David

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim cell_Range As Range, shCliquee As Worksheet

Set shCliquee = Feuil5

'Rajout d'une bordure autour de la cellule du nombre de formateur qui correspond à la colonne ou j'ai cliqué
shCliquee.Cells.Range("D88:MO88").Select
shCliquee.Cells.Range.Borders.Value = 0

If Target.Row > 5 And Target.Row < 78 And Target.Column > 3 And Target.Column < 354 Then

   'Permet une conversion entre le numero de la colonne et sa lettre
   Dim adresse_cellule As String
   Dim serie As Byte
   Select Case Target.Column
   Case Is = 0
   adresse_cellule = "#########"
   Case Is < 27
   adresse_cellule = Chr(64 + Target.Column)
   Case Else: serie = Int((Target.Column - 26) / 27) + 1
   adresse_cellule = Chr(64 + serie) & Chr(64 + Target.Column - 26 * serie)
   End Select

adresse_cellule = adresse_cellule & "88"

'Range("D88:MO88").Borders.Value = 0
'Range("A1:A8").Select

Set cell_Range = shCliquee.Range(adresse_cellule)

cell_Range.Cells.Range(adresse_cellule).Select
cell_Range.Cells.Borders.Value = 1

End If

End Sub

Bonjour,

Merci de joindre un fichier à ta demande pour illustrer ta demande.

Cdlt.

Bonjour

voila qui est fait

Merci

Bonjour

je me permet de faire remonter, quelqu'un à une idée ?

Merci d'avance

David

Bonjour David,

C'est juste pour remplacer tes 2 dernières lignes en vert :

[D88:MO88].Borders.LineStyle = -4142
[A1:A8].Select

dhany

Merci Dhanny,

j'ai pas utilisé ton code mais il m'a permis de trouver ce que je souhaitais sur le net, voiçi le code complet si ca peut servir à d'autres :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim cell_Range As Range, shCliquee As Worksheet

'Permet d'utiliser le "codename" au lui du name, le codename est la référence interne d'excel qui ne change jamais, même si on renomme l'onglet
Set shCliquee = Feuil5

'Rajout d'une bordure autour de la cellule du nombre de formateur qui correspond à la colonne ou j'ai cliqué

'On supprime toutes les bordures sur la ligne dans laquelle se trouvent les cellules que je souhaite mettre en avant
shCliquee.Cells.Range("D88:MO88").Borders.LineStyle = xlNone

'Permet de limiter l'opération à ma zone de sélection
If Target.Row > 5 And Target.Row < 78 And Target.Column > 3 And Target.Column < 354 Then

   'Permet une conversion entre le numero de la colonne et sa lettre
   Dim adresse_cellule As String
   Dim serie As Byte
   Select Case Target.Column
   Case Is = 0
   adresse_cellule = "#########"
   Case Is < 27
   adresse_cellule = Chr(64 + Target.Column)
   Case Else: serie = Int((Target.Column - 26) / 27) + 1
   adresse_cellule = Chr(64 + serie) & Chr(64 + Target.Column - 26 * serie)
   End Select

adresse_cellule = adresse_cellule & "88"

Set cell_Range = shCliquee.Range(adresse_cellule)

cell_Range.BorderAround xlDouble

'détruit les objets crées plus tôt
Set cell_Range = Nothing

End If

Set shCliquee = Nothing

End Sub