Microsoft 365 comment rendre l'affichage d'une cellule bien plus visible, lors du résultat d'une recherche dans un tableau.?

[MARC91]

Bonjour
l'age aidant je trouve que l'affichage de la céllule résultat lors d'une recherche n'est pas trés "visible" "ça ne saute pas aux yeux". Mes tableaux sont trés colorés, la cellule résultat n'est pas suffisamment mise en avant à mon goût.
je ne veux pas modifier la résolution de mon ecran, y a t-il moyen de demander à excel d'afficher la cellule résultat soit avec une plus grosse police, soit avec une couleur trés vive ou encore avec un encadrement de cellule trés épais?
merci pour votre aide.

 

[TooFatBoy]

Bonjour,

Si tu ne repères pas la cellule, regarde son adresse, ça t'aidera à la trouver.

 

[Staple1600]

Bonjour @MARC91 @TooFatBoy

[Suggestion en passant]
Tu peux utiliser les options d'Accessibilité de Windows
ici pour le curseur
(le probléme étant que cela affectera pas seulement Excel)

Ou Contraste élevé (mais là attention les yeux !!!)

 

[riton00]

Bonsoir,

Fonctionne avec les macros activés

Tu peux obtenir un agrandissement de la cellule lors de la sélection de celle-ci exemple sur le fichier joint sélectionne D6 ou H6 tu verras un agrandissement de la cellule sélectionné

Slts

 

[MARC91]

Bonjour

merci aux précédentes réponses
mais cette derniére proposée par riton00 me conviendrait beaucoup mieux
cependant creer une macro ne me semble pas aisé, n'y étant pas du tout familier , je n'y ayant jamais "touché" auparavant, j'ai bien trouvé l'accés à VBE
je me suis essayé à changer le range mais ça coince.
c'est uniquement un probléme d'écriture je pense
alors maintenant SVP comment appliquer cette macro à toute une feuille de calcul?
merci d'avance.

 

[riton00]

Bonjour
Pour toute la feuille de calcul tu peux faire comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:XFD1048576").Font.Size = 11 'taille de l'écriture normale 
If Not Intersect(Target, Range("A1:XFD1048576")) Is Nothing Then Target.Font.Size = 60 'taille de l'écriture cellule sélectionné
Columns.AutoFit
End Sub

Mais je ne vois pas l'utilité de le faire sur une feuille complète

slts

 

[fanch55]

Salut à tous,
Une autre alternative ne modifiant pas la taille de police ou de ligne :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next: [Select_Box].Delete: On Error GoTo 0
    If Not Target.Count > 1 Then
        With Shapes.AddShape(msoShapeRoundedRectangle, _
                Target.Left - 5, Target.Top - 5, _
                Target.Width + 10, Target.Height + 10)
            .Name = "Select_Box"
            .Fill.Visible = msoFalse
            .Line.Visible = msoTrue
            .Line.Weight = 1.5
            .Line.ForeColor.RGB = vbRed
            .Visible = True
        End With
    End If
End Sub

 

[MARC91]

Bonjour
Pour toute la feuille de calcul tu peux faire comme cela

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("A1:XFD1048576").Font.Size = 11 'taille de l'écriture normale
If Not Intersect(Target, Range("A1:XFD1048576")) Is Nothing Then Target.Font.Size = 60 'taille de l'écriture cellule sélectionné
Columns.AutoFit
End Sub

Mais je ne vois pas l'utilité de le faire sur une feuille complète

slts

Bonsoir j'ai testé ça a fonctionné comme je le souhaitais, mais là ça ne fonctionne plus maintenant sans doute un probléme d'enregistrement, je me remets dessus demain. en tout cas je commence à comprendre où il faut agir , les macros c'est nouveau pour moi. merci

 

[riton00]

Bonjour,

Voir fichier joint augmentation taille par plage A1:L100, O10, Q6:Q16

Slts

 

[Dranreb]

Bonjour.
Je me souviens d'avoir il y a très longtemps mis dans un classeur une animation d'un épais rectangle rouge partant des dimensions de toute la plage visible se rapetisser en l'espace d'une seconde jusqu'à encadrer une cellule, facilitant ainsi son repérage visuel. Cette solution vous intéresserait-elle ?

 

[MARC91]

Bonjour,

Voir fichier joint augmentation taille par plage A1:L100, O10, Q6:Q16

Slts

Bonjour
ça fonctionne dans votre fichier
je me bagare pour trouver la méthode t'intégrer cette macro dans mon propre fichier.
j'ai compris qu'il fallait qu'il soit en .xlsm
je passe par l'onglet developpeur
j'ouvre visual basic
je colle la macro de votre test
j'enregistre
mais ça ne fonctionne pas
je ne dois pas bien procéder n'est-ce pas?
je n'ai pas paramétré ma propre plage est-ce là la raison ?

 

[MARC91]

Bonjour
ça fonctionne dans votre fichier
je me bagare pour trouver la méthode t'intégrer cette macro dans mon propre fichier.
j'ai compris qu'il fallait qu'il soit en .xlsm
je passe par l'onglet developpeur
j'ouvre visual basic
je colle la macro de votre test
j'enregistre
mais ça ne fonctionne pas
je ne dois pas bien procéder n'est-ce pas?
je n'ai pas paramétré ma propre plage est-ce là la raison ?

en fait je ne connais pas le process pour intégrer une macro déja ecrite dans un nouveau fichier

 

[riton00]

Bonsoir,

Voir le fichier joint peut-être tu comprendras mieux

Tiens moi au courant

Slts

 

[MARC91]

Bonsoir,

Voir le fichier joint peut-être tu comprendras mieux

Tiens moi au courant

Slts

Bonjour
j'ai réussi à faire fonctionner la macro dans un de mes fichiers.
j'ai voulu le faire sur un autre mais la fenetre pour coller le code macro n'apparait pas dans VB
Je ne trouve plus comment afficher la fenétre de saisie

 

[riton00]

Bonjour,
C'est normal
Après avoir fait Alt+F11 tu tombes sur un écran vide sur la partie de gauche tu as Feuil1, Feuil2, Feuil3, etc tu double clic dans la feuille adéquat et là tu pourras de nouveau coller ton code

Tiens moi au courant

Slts