RE Salut Mike, Michel et le Forum !
Pas bientôt fini ce fil !! lol
Bon ben fais ceci :
Sub trouver()
Dim Cell As Range
Dim Val As String, val2 As String, ValOrigine As String
Dim i As Byte
Val = Application.InputBox("Saisir le mot à trouver : ")
If Val = "" Then Exit Sub
With Columns("B
")
Set Cell = .Find(Val, LookIn:=xlValues)
If Not Cell Is Nothing Then
firstAddress = Cell.Address
Do
Cell.Select
Cell.Interior.ColorIndex = 3
ValOrigine = Cell.Value
i = i + 1
val2 = InputBox("indiquez le mot de remplacement : ", , ValOrigine)
If val2 = "" Then Exit Sub
Selection.Value = val2
Set Cell = .FindNext(After:=ActiveCell)
Loop While Not Cell Is Nothing And Cell.Address <> firstAddress
End If
End With
If i = 0 Then MsgBox "Valeur " & Val & " Non trouvée"
Call majuscule_et_tri
End Sub
(J'ai modifié la macro de Base aussi pour le error Goto qui ne servait plus depuis les évolutions dans les versions de Michel...)
Bon Travail Mike
@+Thierry