Bonjour,
Il y a deux choses différentes dans ces traitements :
1- La plage où le clic de la souris va inscrire l'info de la cellule cliquée en D4.
2- Le changement de la couleur du texte au passage de la souris.
Pour le premier item, c'est facile d'étendre la plage.
Pour le deuxième item : afin que la couleur du texte change, l'événement MouseMouve utilise un CommandButton à font transparent.
Pour en changer les dimensions :
Menu Développeur, enfoncer le bouton Mode Création, clique droit sur la section présenteent active (A1:A30), Propriété.
Dans la fenêtre Propriété, le paramètre Width est la largeur, le paramètre Height est la hauteur.
Pour 4000 lignes d'une hauteur de 15 (20 pixels) >> 4000 x 15 = 60000.
Donc, si tu mets la Height à 60000, tu couvriras à peu près les 4000 lignes ... Sauf que ... le changement de couleur en rouge au passage de la souris ne fonctionne pas correctement. C'est un bout que je n'ai pas trouver comment le maîtriser.
Mais, est-ce bien essentiel ?
Pour les 4000 lignes cliquables :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With Target
If .Column = 1 And .Row < 4001 And .Row > 1 Then
Cells(3, 4) = "Vidéo en chargement" & " - " & Target 'Lig = 4 << >> Col = 4
End If
End With
End Sub
Public Sub Remise_à_zéro()
Feuil1.Range(Cells(1, 1), Cells(4000, 1)).Font.ColorIndex = 5
End Sub
Gelinotte