Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel cellule active

cellule active

12 réponses
Avatar
maurice02
bonjour a tous,

je voudrai, pour un reperage plus facile pour une personne ayant des
problemes de vue, que la cellule active soit coloriée et qu'elle reprenne sa
couleur d'origine lorsqu'on passe a une autre cellule;
merci de votre aide

-- maurice
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
FFO
As tu fait ce que je t'ai dit :
ALT+F11
Copie du code :

Dim Rg As Range
'----------------------------------
Private Sub Workbook_SheetSelectionChange _
(ByVal Sh As Object, ByVal Target As Range)

If Rg Is Nothing Then
Set Rg = Selection
End If
With Rg
.Font.ColorIndex = xlAutomatic
.Font.Size = 10
Rg.Interior.ColorIndex = xlNone
End With
With Target
.Font.Color = vbRed
.Font.Size = 14
Target.Interior.ColorIndex = 6
End With
Set Rg = Target
End Sub

dans le document obtenu

Puis fichier/enregistrer
Quittes le document ThisWorkbook par la croix rouge

Cliques sur n'importe quelle cellule et admire le résultat

Fais moi part te ton appréciation !!!!


moi je veux juste colorier le fond de la cellule quand je suis dessus et
qu'elle reprenne sa couleur d'origine lorsque je la quitte!!!

merci d'avance d'etre tres "details" pour moi.

maurice

--
"FFO" a écrit dans le message de news:

Salut à toi
Thisworkbook est une sorte de document accessible par la combinaison des
touches
ALT et F11 dans lequel des codes peuvent être intégrés
Ces codes sont des programmes executés lors d'un evenement particulier
(ici
à la sélection d'une cellule)
Donc actives ces 2 touches et par un copier/coller rapatries dedans le
code
de
MichDenis
Et enregistres
Je l'ai essayé il fonctionne trés bien
Mais je ne sais s'il correspond à ton attente sachant que si la cellule
sélectionnée et vide il ne fait que l'agrandir et si il y a des données
elles
deviennent rouges

Si tu souhaites colorier le fond de la cellule sélectionnée il faut
rajouter
la commande :
Target.Interior.ColorIndex = 6 (6 correspondant à la couleur jaune, peut
être changé de 1 à 56 pour une autre couleur)
Puis la commande :
Rg.Interior.ColorIndex = xlNone pour remettre la cellule sans couleur
Ce qui donne :


Dim Rg As Range
'----------------------------------
Private Sub Workbook_SheetSelectionChange _
(ByVal Sh As Object, ByVal Target As Range)

If Rg Is Nothing Then
Set Rg = Selection
End If
With Rg
.Font.ColorIndex = xlAutomatic
.Font.Size = 10
Rg.Interior.ColorIndex = xlNone
End With
With Target
.Font.Color = vbRed
.Font.Size = 14
Target.Interior.ColorIndex = 6
End With
Set Rg = Target
End Sub

Voilà
Espérant t'avoir aidé



c'est quoi le "Thisworkbook" ?


--
"MichDenis" a écrit dans le message de news:
%
Dans la feuille module où l'action doit se dérouler tu copies ceci :

'Déclaration de la variable dans le haut du module
Dim Rg As Range
'---------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Rg Is Nothing Then
Set Rg = Selection
End If
With Rg
.Font.ColorIndex = xlAutomatic
.Font.Size = 10
End With
With Target
.Font.Color = vbRed
.Font.Size = 14
End With
Set Rg = Target

End Sub
'---------------------------------------

et si tu veux que cela s'applique à toutes les feuilles du classeur
tu copies ce qui suit dans le ThisWorkbook

'Variable dans le haut du Thisworkbook
Dim Rg As Range
'----------------------------------
Private Sub Workbook_SheetSelectionChange _
(ByVal Sh As Object, ByVal Target As Range)

If Rg Is Nothing Then
Set Rg = Selection
End If
With Rg
.Font.ColorIndex = xlAutomatic
.Font.Size = 10
End With
With Target
.Font.Color = vbRed
.Font.Size = 14
End With
Set Rg = Target

End Sub
'----------------------------------



"maurice02" a écrit dans le message de news:
46333907$0$5106$
bonjour a tous,

je voudrai, pour un reperage plus facile pour une personne ayant des
problemes de vue, que la cellule active soit coloriée et qu'elle
reprenne
sa
couleur d'origine lorsqu'on passe a une autre cellule;
merci de votre aide

-- maurice

















Avatar
maurice02
un immense merci a tous !!!! ça fonctionne

maurice

--
"dre" a écrit dans le message de news:

Re,

La question initiale n'est pas la même que celle posée sous le dernier
message.
Merci de préciser en détail !!! la manip n'est pas la même.

dré





je comprends pas ou il faut mettre tout ça ???

je veux juste que le fond de la cellule soit colorie en vert lorsque je
passe dessus et qu'elle reprenne sa couleur d'origine lorsque je quitte
cette cellule.

merci de m'expliquer en detail !!!!! la manip et a quel endroit la faire
maurice

--
"dre" a écrit dans le message de news:

Bonjour,

Au sujet de la MFC proposée par AV.

Si on ne veut repérer la cellule active que sur ordre, il faut ne pas
activer la macro et faire usage de la touche clavier F9.

En remplaçant le ET de la formule par un OU ce sont la ligne et la
colonne
de la cellule active sur lesquelles la MFC est appliquée, peut-être
plus
facile pour repérer la cellule, surtout lorsqu'elle est en dehors de la
zone
écran.

Le "row" dans la formule peut être remplacé par "ligne".

dré


bonjour a tous,

je voudrai, pour un reperage plus facile pour une personne ayant des
problemes de vue, que la cellule active soit coloriée et qu'elle
reprenne
sa
couleur d'origine lorsqu'on passe a une autre cellule;
merci de votre aide

-- maurice














1 2