Sélectionner une plage apres une recherche

Bonjour,

Je souhaite réaliser une macro mais il me manque des éléments (je n'arrive pas a le faire avec l'enregistreur)

Les étapes sont les suivantes:

1. Je lance une recherche (le mot: MTL) dans une colonne (Colonne A)

2. Lorsque EXCEL trouve toutes les cellules qui contiennent le mot MTL dans la colonne A; La macro sélectionne les cellules qui se trouvent sur les mêmes lignes dans la colonne C.

Apres ca va!

3. je les copies

4. et les colles dans un autre onglet.

D'avance merci pour votre aide.

Rhum

Bonjour,

Regarde si cette macro te convient

Option Explicit
Option Base 1
Sub copier_siMTL()
Dim derlig As Long, nbre As Long, cptr As Long,lig as long
Dim tablo
With Sheets(1)
    derlig = .Range("A65536").End(xlUp).Row
    nbre = Application.CountIf(.Range("A1:A" & derlig), "MTL")
    ReDim tablo(derlig)
    lig = 65536
    For cptr = 1 To nbre
        lig = .Columns(1).Find("MTL", .Cells(lig, 1), xlValues).Row
        tablo(cptr) = .Cells(lig, 3)
    Next
End With
Application.ScreenUpdating = False
With Sheets(2)
    .Range("A2:A65536").ClearContents
    .Range("A2").Resize(nbre, 1) = Application.Transpose(tablo)
    .Activate
End With

End Sub

édit à 12:02 : ajouté déclaration lig as long ! Excusez moi

Salut le forum

Voila un bout de code pour effectuer une recherche

Sub Recherche()
Dim C As Range
Dim FirstAddress As String

With Range("A:A")
    Set C = .Find("MTL", LookIn:=xlValues)
    If Not C Is Nothing Then
        FirstAddress = C.Address
        Do
            'On effectue la copie
                MsgBox C.Row

            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address <> FirstAddress
    End If
End With
End Sub

Mytå