Microsoft 365 Faire ressortir une mot après une recherche

[moanin]

Bonjour à tous 😉

Quand saisis une date dans le champ de recherche supérieur d’excel , le résultat affiche une sélection d’une cellule dans laquel se trouve la date en question.

Le problème est dans cette cellule et il y a plusieurs items et ce n’est pas facile de voir cette date parmi d’autres.

Il aurait-il un moyen que cette date s’affiche par exemple en couleur, ou en gras pour qu’on puisse la repérer facilement ?

Merci

 

[st007]

Bonjour,
Crée une mfc, puis fais ta recherche ...

 

[TooFatBoy]

Bonjour,

Y aurait-il un moyen que cette date s’affiche par exemple en couleur, ou en gras pour qu’on puisse la repérer facilement ?

Perso, je serai tenté de dire "non". 🙁

 

[job75]

Bonjour moanin, st007, TooFatBoy,

Ceci est assez classique :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim cible$, L%, c As Range, x$, i%
cible = LCase(CStr([B1]))
L = Len(cible)
With Range("A2:A" & Rows.Count).Font
    .Bold = False
    .ColorIndex = xlAutomatic
End With
If cible = "" Then Exit Sub
For Each c In [A:A].SpecialCells(xlCellTypeConstants)
    x = LCase(CStr(c))
    If c.Row > 1 And InStr(x, cible) Then
        For i = 1 To Len(x)
            If Mid(x, i, L) = cible Then
                With c.Characters(i, L).Font
                    .Bold = True
                    .Color = vbRed
                End With
            End If
        Next i
    End If
Next c
End Sub

A+

 

[job75]

Je découvre une chose bizarre.

Si j'entre 55 en B1, le 55 en A4 se colore bien en rouge.

Mais pas le 55 en A6, je ne comprends pas pourquoi.

Si on met A6 au format Texte pas de problème, pourquoi ça ne va pas avec un nombre ?

 

[job75]

Bon je comprends qu'une cellule contenant un nombre ne peut être formatée qu'en entier.

 

[TooFatBoy]

Ma vieille mémoire de plus en plus défaillante me laisse croire que les macros ne fonctionnent pas sur iPad.

Qu'en est-il en réalité ? 🤔

 

[moanin]

Effectivement, malheureusement 🙁

 

[TooFatBoy]

Effectivement, malheureusement 🙁

Merci d'avoir rafraîchi ma vieille mémoire. 👍

 

[job75]

Excel pour iPad ce n'est pas Excel mais rien ne l'indiquait.