VBA Rechercher toutes les cellules contenant un mot donné

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jim7963

XLDnaute Junior
Bonjour à tous,

je débute dans le VBA et j'aurais besoin d'aide car je n'arrive pas à trouver de code qui me permette de faire une recherche de toutes les cellules contenant le mot que j'aurai défini. Les différents codes que j'ai trouvé sur le net ne fonctionnent pas comme je le souhaiterais.
Mon but est d'arriver à faire en code VBA ce que l'on arrive à faire avec un CTRL+F et en cliquant sur rechercher tout.
Plus difficile encore, mon but final étant que lorsque je lance la macro, celle-ci recherche toutes les cellules de la feuille contenant l'un des 3 mots clés suivants:"Heures", "Taux" et "F.P", et qu'elle efface le contenu de ces cellules.

En vous remerciant par avance pour votre aide.
 
Dernière édition:
Re : VBA Rechercher toutes les cellules contenant un mot donné

Bonsoir jim

A tester:

Code:
Sub efface()
Dim zone As Range
mots = Array("Heures", "Taux", "F.P")
For Each cel In Cells.SpecialCells(xlCellTypeConstants, 23)
 For m = LBound(mots) To UBound(mots)
   If cel.Value = mots(m) Then
    If zone Is Nothing Then
      Set zone = cel
    Else
     Set zone = Application.Union(zone, cel)
    End If
   End If
 Next
Next
zone.Value = ""
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour