Salut Coco, Vincent, le Forum
Huum donc tu travailles avec Excel 97 Coco ! Fallait le dire !!!
Enfin c'est tout ce que je vois qui te ferait des problèmes avec ce code...
Essaies comme ceci, car d'après ce que Michel me ré-apprend d'XL97, il lui faut des Select de partout !
Sub importer_Click()
Dim C As Range
Dim Text As String
Dim Firstaddress As String
Dim i As Integer
Application.ScreenUpdating = False
Text = InputBox("tapez le texte recherché", "recherche", "toto")
If Text = "" Then Exit Sub
i = 1
With Sheets("Feuil1").Range("A1:A300")
Set C = .Find(Text, LookIn:=xlValues)
If Not C Is Nothing Then
Firstaddress = C.Address
Do
Sheets("Feuil2").Select
Sheets("Feuil2").Range("A" & i & ":C" & i) = Sheets("Feuil1").Range(C, C.Offset(0, 2)).Value
i = i + 1
Sheets("Feuil1").Select
Set C = .FindNext(C)
Loop While Not C Is Nothing And C.Address <> Firstaddress
End If
End With
Set C = Nothing
Application.ScreenUpdating = True
End Sub
Sinon il faudra encore voir autrement...
Plus çà va, plus je conseille à tous et toutes de préciser systématiquement leur version d'Excel / Windows pour éviter ce genre de désagrément.
Bonne Soirée
@+Thierry