Bonjour à tous,

j'ai une macro rapide a rédiger mais je bloque sur un point.

Ci dessous la macro:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Sub MAIN()
Dim i As Long
Dim Entree As Workbook
Dim Plage As Range
Const Fichier As String = "C:\Documents and Settings\user\Bureau\GPS\COMMANDE_ELEMENT petite liste.xls"
 
Application.ScreenUpdating = False
If Dir(Fichier) <> "" Then
    Set Entree = Workbooks.Open(Fichier)
    With Entree.Sheets("COMMANDE_ELEMENT")
 
        For i = 2 To 25000
 
            RECHERCHE Entree, .Range("F" & i)
 
        Next i
 
    End With
    Entree.Close True
    Set Entree = Nothing
 
End If
 
 
End Sub
 
Private Sub RECHERCHE(ByVal Wbk As Workbook, ByVal c As Range)
 
 
 
If c.Value = "CONTENEUR" Then
 
    With ThisWorkbook.Worksheets("RESULTAT")
    .Rows(2).Insert shift:=xlDown
    .Range("A2").Value = c.Offset(0, -5).Value
    .Range("B2").Value = c.Offset(0, -3).Value
    .Range("C2").Value = c.Offset(0, 12).Value
    .Range("D2").Value = c.Offset(0, 13).Value
    .Range("E2").Value = c.Offset(0, 0).Value
    End With
 
End If
 
End Sub
Dans cette macro, les cellules vont etre copiées si le contenue de la cellule "c" est "CONTENEUR" or je voudrais que les cellules soient copiées si la cellule "c" contient le mont "CONTENEUR".

Autrement dit, à partir du moment ou dans la cellule il y a le mot "CONTENEUR", qu'il soit précédé ou non de d'autres terme la macro doit s'éxécutée.

est ce possible?

Cordialement