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

MARC91

XLDnaute Nouveau
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.
 
Solution
Salut à tous,
La méthode d'agir sur les polices et taille des colonnes sur une grande plage est assez destructrice et consommatrice de mémoire et de temps .
Tel que c'est proposé, cela est une bonne idée si l'utilisateur se fout complètement de la mise en page et des largeurs de colonnes. Imposer une largeur de colonne par défaut peut faire augmenter la hauteur de certaines lignes quand le contenu est plus grand que la cellule contenant .

A mon avis ( ce n'est que le mien ... ), il vaut mieux laisser les hauteurs de lignes et largeurs de colonne telles qu'elles existent et de se servir du subterfuge d'un ou plusieurs shapes ( formes graphiques ) pour signaler la cellule sélectionnée ou recherchée ( voir le post @Dudu2 ) ou...

Staple1600

XLDnaute Barbatruc
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)
Accessibilité.PNG

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

riton00

XLDnaute Impliqué
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
 

Pièces jointes

  • test.xlsm
    14.3 KB · Affichages: 17
Dernière édition:

MARC91

XLDnaute Nouveau
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

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

VB:
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

XLDnaute Barbatruc
Salut à tous,
Une autre alternative ne modifiant pas la taille de police ou de ligne :
VB:
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

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

VB:
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
 

Dranreb

XLDnaute Barbatruc
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

XLDnaute Nouveau
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

XLDnaute Nouveau
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
 

MARC91

XLDnaute Nouveau
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 :mad:
 

Pièces jointes

  • VB VIDE.jpg
    VB VIDE.jpg
    35.6 KB · Affichages: 8

riton00

XLDnaute Impliqué
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
VB.jpg
 
Dernière édition:

Statistiques des forums

Discussions
313 193
Messages
2 096 085
Membres
106 493
dernier inscrit
esley