Discussion :

[sevamax]

Bonjour,

Je souhaitais passer en gras les données d'une ligne lorsque celle-ci est sélectionnée.
Pour cela, j'ai utilisé le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Font.Bold = False
ActiveCell.EntireRow.Font.Bold = True
End Sub

Cela fonctionne très bien mais il est alors impossible pour l'utilisateur d'effectuer un copier-coller.
En effet, quand on arrive sur "Cells.Font.Bold = False", la fonction coller n'est plus possible.
Je n'ai pas cet effet avec Cells.Interior.ColorIndex mais, utilisant d'autres codes couleur, je préfère trouver une solution avec le passage en gras plutôt que la mise en place d'une couleur de fond.

Est-ce que quelqu'un aurait une idée pour contourner le problème ?
D'avance merci pour votre aide !

[Marc-L]

Bonjour,

la cellule sélectionnée étant déjà délimitée par le cadre bien noir de sélection,
franchement la mettre en gras me semple quelque peu superflu …

Et sans EntireRow ?

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[sevamax]

Je comprends la remarque
Le tableau comportant de nombreuses lignes et colonnes, le passage en gras de l'ensemble de la ligne quand l'utilisateur clique sur une cellule permet d'aller plus vite dans la navigation et la lecture des infos recherchées. Ce n'est bien sur pas bloquant, mais ça donne un "petit plus" en lisibilité.
Enlever le EntireRow ne change rien. De toute façon, c'est dès la première ligne de code qu'on "perd le contenu de ce qui était copié" et que le "paste" devient donc impossible.

[unparia]

Bonjour
Aucune approche n'est (et ne sera jamais) plus surprenante que celle qui consiste par exemple à peindre en rouge tous les pois d'un sac, puis en bleu certains uniquement d'entre eux pour les (soit-disant mieux) visualiser. Quelle perte de temps !
Cela me rappelle une certaine histoire : pour désigner parmi un groupe de 5 personnes à son interlocuteur l'homme qu'un corse disait vouloir abattre et alors que les "détails distinctifs" qu'il évoquait se retrouvaient également sur les autres, le Corse de cette "affaire" à abattu les quatre autres et montré celui qui restait debout en disant : "tu le vois, celui qui reste debout maintenant, hein ? Tu le vois ? Hé bien : c'est lui, que je souhaite abattre".
Sur ce --->> à ma siestita (et tant pis pour ceux qui ne capteraient pas toute l'analogie à capter... C'est et sera toute leur vie LEUR problème).
Je suis vraiment désolé d'en arriver de temps à autre à de telles "images", mais elles aident à remettre les pieds sur terre.

[eriiic]

Bonjour,

proposition supprimée, faisait aussi sauter le copier, désolé.
eric

edit : on va y arriver... :
avec une MFC jaune qui préserve les interior.color :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim fc As FormatCondition
    For Each fc In Cells.FormatConditions
        If fc.Formula1 = "=VRAI" Then fc.Delete: Exit For
    Next fc
    With Cells(Target.Row, 1).Resize(, 10)
        .FormatConditions.Add Type:=xlExpression, Formula1:="=VRAI"
        .FormatConditions(.FormatConditions.Count).SetFirstPriority
        '.FormatConditions(1).Font.Bold = True ' gras, fait également sauter le copier
        .FormatConditions(1).Interior.Color = 65535 ' jaune
    End With
End Sub

[sevamax]

Merci Eric, cela répond tout à fait à ma problématique !