Recherche occurrence dans 2 colonnes

Bonjour,

Je souhaiterais faire la recherche/extraction dans 2 colonnes différentes, je m'explique : mon 1er fichier s'appel "FICHIER INVENTAIRE TOURNANT" en tapant dans la fenêtre "Taper votre recherche" une occurrence EX: "robot" et en tapant sur extraire il alimente le fichier en recherchant dans la colonne 15 "O" du fichier "stock-85", ce que je souhaiterais c'est que la recherche se fasse aussi dans la colonne 11 qui contient des codes EX: je souhaiterais taper 344 et qu'il m'extrais tous les produits de cette colonne 11 contenant 344, je peux le faire mais il faut que je modifie la macro.

faudrait que je mette l'AutoFilter sur 11 au lieu de 15,

je voudrais éviter cette modification a chaque recherche, merci de votre aide.

j'ai oublié de joindre les 2 fichiers que voici.

Bonjour Daniel,

Si j'ai bien compris, si la saisie est un nombre on filtre sur la colonne 11, sinon la colonne 15

Donc voici une possibilité

Sub EXTRACTION()
  Dim Critere$, LR As Long
  Dim Col As Long
  With ThisWorkbook.Worksheets("Extraction")
    LR = .Cells(.Rows.Count, 2).End(xlUp).Row
    Critere = .TextBox1.Value
  End With
  ' Si le critère est un nombre = colonne 11, sinon colonne 15
  If IsNumeric(Critere) Then Col = 11 Else Col = 15
  ' Filtrer selon la colonne
  With Workbooks("stock-d85.xls").Worksheets(1).UsedRange
    .AutoFilter Col, "*" & Critere & "*"
    Application.Union(.Columns(15), .Columns(14), .Columns(11), .Columns(17)).Offset(1).Copy
    Workbooks("stock-d85.xls").Worksheets(1).AutoFilterMode = False
    ThisWorkbook.Worksheets("Extraction").Cells(LR, 2).Offset(1).PasteSpecial xlPasteValues
  End With
  Application.CutCopyMode = False
End Sub

Sinon, pourquoi ne pas mettre une combo pour choisir la colonne de recherche

A+

Bonjour Bruno,

Super ça fonctionne ! un grand merci à toi.

Daniel