Bonnjour à toutes et à tous,
Je me permets de vous solliciter à nouveau car je n'arrive pas à trouver la bonne solution à mon souci.
Je souhaite :
1 formater la cellule (donc la ligne) active à une hauteur,
2 que cette ligne soit remise à sa hauteur initiale quand je clique dans une cellule d'un autre ligne.
Malgré mes tests et recherches, je n'ai pas trouvé.
J'ai fait ce petit code qui fonctionne bien pour le point 1
Le fichier joint sera peut-être plus explicite que mes vagabondages LOL
Je vous remercie, comme toujours de votre gentillesse.
Bonne fin de journée,
Amicalement,
Lionel,
Je me permets de vous solliciter à nouveau car je n'arrive pas à trouver la bonne solution à mon souci.
Je souhaite :
1 formater la cellule (donc la ligne) active à une hauteur,
2 que cette ligne soit remise à sa hauteur initiale quand je clique dans une cellule d'un autre ligne.
Malgré mes tests et recherches, je n'ai pas trouvé.
J'ai fait ce petit code qui fonctionne bien pour le point 1
Code:
Private Sub Worksheet_SelectionChange(ByVal R As Range)
On Error Resume Next
If Not Intersect(R, Range("a1:v10000")) Is Nothing And R.Count = 1 Then
ActiveCell.RowHeight = 300
End If
End Sub
Le fichier joint sera peut-être plus explicite que mes vagabondages LOL
Je vous remercie, comme toujours de votre gentillesse.
Bonne fin de journée,
Amicalement,
Lionel,