Microsoft 365 Faire ressortir une mot après une recherche

S

st007

XLDnaute Barbatruc

• 27 Mai 2023

• #2

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Mai 2023

• #3

Bonjour,

moanin à dit:

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 ?

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Mai 2023

• #4

Bonjour moanin, st007, TooFatBoy,

Ceci est assez classique :

VB:

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+

 

Pièces jointes

• Rechercher.xlsm

  17 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Mai 2023

• #5

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Mai 2023

• #6

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

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Mai 2023

• #7

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é ?

 

Vote positif 0 Vote négatif

M

moanin

XLDnaute Accro

• 27 Mai 2023

• #8

Effectivement, malheureusement

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 27 Mai 2023

• #9

moanin à dit:

Effectivement, malheureusement

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Mai 2023

• #10

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

 

Vote positif 0 Vote négatif