Exemple : Je suis recruteur , et je souhaite rapidement mettre en surbrillance les profils de GRUTIER sur mon jobboard Excel dans la colonne C
Voici le code détaillé et comment le modifier
Sub Recherchetexte()
Dim Texte As String, Plage As Range, Cellule As Range, NombCellules As Integer
Texte = InputBox("Tapez ici le texte à rechercher : ")
Set Plage = Range("C2", [C2].End(xlDown))
NombCellules = Plage.Count
Range("C2").Select
For i = 1 To NombCellules
If ActiveCell.Value Like "*" & UCase(Texte) & "*" Then
With Selection.Interior
.ColorIndex = 8
End With
Else
With Selection.Interior
.ColorIndex = 2 'blanc
End With
End If
ActiveCell.Offset(1, 0).Range("A1").Select
Next
End Sub
Vous pouvez changer la colonne de recherche en remplaçant C2 ( en gras dans le code) par D2 par exemple
Il est aussi possible de changer la couleur de surlignage (8 en gras dans le code) par une autre couleur (3 = rouge, 4 = vert, 5 = bleu, 6= jaune ...)
Si vous souhaitez avoir gratuitement la copie de la matrice, merci de bien vouloir nous envoyer votre demande par mail à contact@paradatas.com
Comments