Bonjour a tous, J'ai une fois de plus besoin de votre aide, J'ai ce Macro de recherche qui effectue une mise enforme conditionnelle de la valeur ou du MOT rechercher quand j'effectue une recherche sur une ligne sélectionner par mon choix. L'aide que je demande est je voudrais complété ce Macro ou avoir un autre Macro qui me permettra de copié automatiquement les cellule successeurs des l'éléments trouvé.
Voici le Macro:
Sub Colorer_Mots_et_Gras()
Dim sTexte As String, sMot As String
Dim lDebut As Long, lFin As Long
Dim i As Integer, iNbCar As Integer
Dim c As Range
Application.ScreenUpdating = False
sMot = InputBox("Mot recherché :")
iNbCar = Len(sMot)
For Each c In Selection
sTexte = c.Value
For i = 1 To Len(sTexte) - iNbCar
lDebut = InStr(i, sTexte, sMot)
If lDebut > 0 Then
With c.Characters(Start:=lDebut, Length:=Len(sMot)).Font
.ColorIndex = 32
.Bold = True
End With
End If
Next i
Next c
Application.ScreenUpdating = True
End Sub
Première ligne recherche
Deuxième ligne successeur a copié .
Je vous joint une capture dans l'espoir que cela vous aide a mieux me comprendre. MERCI MERCI a tous.