BONJOUR A TOUS VOILA J'AI UNE MACRO DE RECHERCHE POUR TROUVER DES NOMS QUI SONT DANS LA COLLONNE B
SES NOMS SONT COMPOSE ( ex: maison de la culture )
ET JE VOUDRAI TROUVER CE NOM EN ECRIVANT DANS LA BOX JUSTE LE NOM culture
ci joint macro
Sub cherche_MOT()
nom = InputBox("Nom cherché?")
Set champ = [B:B]
champ.Interior.ColorIndex = xlNone
Set c = champ.Find(nom, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = champ.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End Sub
MERCI D'AVANCE POUR VOS IDEES
SES NOMS SONT COMPOSE ( ex: maison de la culture )
ET JE VOUDRAI TROUVER CE NOM EN ECRIVANT DANS LA BOX JUSTE LE NOM culture
ci joint macro
Sub cherche_MOT()
nom = InputBox("Nom cherché?")
Set champ = [B:B]
champ.Interior.ColorIndex = xlNone
Set c = champ.Find(nom, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
premier = c.Address
Do
c.Interior.ColorIndex = 4
Set c = champ.FindNext(c)
Loop While Not c Is Nothing And c.Address <> premier
End If
End Sub
MERCI D'AVANCE POUR VOS IDEES