Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Rercherche de chaines de caractères puis mise en forme

K

kev2246

XLDnaute Nouveau
Bonjour tout le monde,

Je viens vers vous pour solliciter votre aide.

En gros, ouvrir un inputbox demandant à l'utilisateur de saisir le mot à chercher. Ensuite, parcourir la feuille entière et mettre en gras tous les mots correspondants à celui saisis par l'utilisateur.

1. J'ai essayé la mise en forme conditionnelle mais ça me met en gras toute la cellule et non pas uniquement le mot que je veux
2. J'ai fait un petit code VBA qui marche sur une colonne mais c'est pas l'utilisateur qui saisi le mot, j'ai mis le mot à chercher directement dans le code, et à chaque fois je dois repartir dans le code pour modifier le mot et c'est un peu casse pied. En plus, ça marche que sur une colonne :
sub test ()
For i=2 to 100
If InStr(1, Range("B" & i).value, "Modèle")>0 Then
Range("B" & i).Characters(InStr(1, Range("B" & i).value, "Modèle"), Len ("Modèle"))
Else

End if
Next i
End sub
 
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Kev,
Un ex en PJ avec :
VB: 
Sub MiseEnForme()
resultat = InputBox("Quel mot recherchez vous ?" & Chr(10) & "( Respectez la casse. )", "Mise en forme")
If resultat <> "" Then
    Range("B2:B1000").Font.Bold = False
    Range("B2:B1000").Font.Color = vbBlack
    For i = 2 To Sheets("Feuil1").Range("B65500").End(xlUp).Row
        If InStr(1, Range("B" & i).Value, resultat) > 0 Then
            Range("B" & i).Characters(InStr(1, Range("B" & i), resultat), Len(resultat)).Font.Bold = True
            Range("B" & i).Characters(InStr(1, Range("B" & i), resultat), Len(resultat)).Font.Color = vbRed
        End If
    Next i
End If
End Sub
 

Pièces jointes

  • Kev.xlsm
    22.3 KB · Affichages: 14
Vote positif 0 Vote négatif
K

kev2246

XLDnaute Nouveau
Bonjour Sylvanu,

Merci pour ta réponse. Je suis vraiment un débutant sous VBA mais y'a pas moyen d'optimiser la recherche, pour éviter les problèmes de casse (espace, majuscule...)?

Sinon, le code marche bien sur une colonne mais pas sur toute la feuille. Je veux qu'il parcours toutes les lignes et colonnes de mon onglet contenant le texte saisi si possible
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Vous pouvez fixer la plage de recherche avec :
VB: 
Set Plage = [a1].CurrentRegion
qui englobera toute la zone où il y a des cellules non vides. Attention ça peut vite prendre du temps si votre feuille est très grande.
Pour la casse on peut utiliser LCase pour tout ramener en minuscules et ainsi faire abstraction des casses du mot recherché et des mots trouvés.
Cela devient alors :
Code: 
Sub MiseEnForme()
Set Plage = [a1].CurrentRegion
resultat = InputBox("Quel mot recherchez vous ?" & Chr(10) & "( Respectez la casse. )", "Mise en forme")
If resultat <> "" Then
    Plage.Font.Bold = False
    Plage.Font.Color = vbBlack
    For Each c In Plage
        If InStr(1, LCase(c), LCase(resultat)) > 0 Then
            c.Characters(InStr(1, c, resultat), Len(resultat)).Font.Bold = True
            c.Characters(InStr(1, c, resultat), Len(resultat)).Font.Color = vbRed
        End If
    Next c
End If
End Sub
A regarder :

LCase, fonction - Support Microsoft

support.microsoft.com

Propriété Range.CurrentRegion (Excel)

Rubrique de référence sur Office VBA
docs.microsoft.com
 

Pièces jointes

  • Kev2.xlsm
    26.6 KB · Affichages: 3
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
CurrentRegion vous évite de faire cela. Il permet en outre que si vous modifiez la zone cela sera fait automatiquement.
Je précisais simplement que si vous avez 100 colonnes de 10000 lignes, ça allait ramer.
Mais que ce soit avec Lignes Colonnes ou CurrentRegion ... ce sera la même chose.
 
Vote positif 0 Vote négatif
K

kev2246

XLDnaute Nouveau
Dernière remarque: En fait comme j'ai beaucoup de textes dans les cellules, il ne met en gras que le premier mot trouvé.

Exemple: si dans la cellule A1 on a : "Texte 1 appartient aussi à Texte 2 mais comme il est non nul alors Texte 1 n'est pas pris en compte".Quand l'utilisateur saisit "Texte 1" La macro met en gras uniquement le premier "Texte 1" et le 2e qui se trouve dans cette même cellule n'est pas en gras
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL pour MAC Mise en forme conditionnelle dynamique
2 3
Réponses
36
Affichages
1 K
Philarête
M
  • Résolu(e)
XL 2021 PUBLIPOSTAGE : Mise en forme du corps de message issu d'une cellule excel (VBA)
Réponses
4
Affichages
373
Minus&Cortex
M
W
  • Résolu(e)
Microsoft 365 VBA Ajouter une colonne à droite avec mise en forme
Réponses
6
Affichages
194
fanch55
L
  • Résolu(e)
XL 2019 Mise en forme conditionelle
Réponses
2
Affichages
271
litchoutsou
L
E
  • Question
Microsoft 365 Mise en forme conditionnelle d'une ligne avec critère.
Réponses
9
Affichages
333
TooFatBoy
  • Question
Microsoft 365 Boucle VB pour supprimer les caractères spéciaux et numériques d'une chaîne
Réponses
5
Affichages
393
patricktoulon
S
  • Résolu(e)
Microsoft 365 Appliquer par vba une mise en forme conditionnelle d'après une liste de cellules mises en forme
Réponses
9
Affichages
614
Dranreb
  • Question
Microsoft 365 Trouver et attribuer une plage de cellule en fonction de la cellule active
Réponses
6
Affichages
402
Jojo973
  • Résolu(e)
XL 2010 Mauvaise utilisation de la fonction InStr
Réponses
11
Affichages
618
jurassic pork
T
  • Question
XL 2019 [vba] retourner une chaine de caractères depuis une fonction
Réponses
5
Affichages
331
teclim
T
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…