VBA Excel: chercher et extraire des mots clef Résolu

Question

Bonjour J’aurais besoin d’aide pour creer une macro qui puisse chercher dans une plage de cellule une serie de lettre et ensuite extraire cette ligne avant de passer a la ligne suivante. Par exemple, je cherche a extraire toutes les lignes qui contiennent les lettres EUR dans une colonne bien specifique qui peut contenir des textes tels que EUR/AUD, LD-EUR, EURAUD etc… Merci d’avance pour votre retour, Pour le moment je n’ai reussi qu’à créer une macro qui puisse trouver et copier de facon exaustive un texte exact et non pas une partie du texte Cf : '**Selection & copy sur une nouvelle feuille des donnees voulues Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = "USD" Sheets("Data").Select ActiveCell.SpecialCells(xlLastCell).Select Range(Selection, Cells(1)).Select For Each Rw In Selection.Rows Ligne = Rw.Row If Rw.Cells(1, 10).Value = "LD-USD" Or Rw.Cells(1, 10).Value "AUD/USD" Or Rw.Cells(1, 10).Value "EUR/USD" Or Rw.Cells(1, 10).Value = "GBP/USD" _ Or Rw.Cells(1, 10).Value = "USD/JPY" Or Rw.Cells(1, 10).Value "NZD/USD" Or Rw.Cells(1, 10).Value "USD/HKD" Or Rw.Cells(1, 10).Value = "USD/SGD" Then Rw.Select Rw.Copy Destination:=Worksheets("USD").Cells(Ligne, 2).EntireRow End If Next Rw

xpert12 · Accepted Answer

deuxième version corrigée :

Sub Macro1() 
' Macro1 Filtre automatique et critère : contenant "EUR" '
 Columns("C:C").Select ActiveSheet.Range("$C$1:$C$900").AutoFilter Field:=1, Criteria1:="=*EUR*", _ Operator:=xlAnd End Sub

 @+

lillith212 · Answer

Bonjour,

Je suis pas spécialiste du vba mais la commande InStr() ne peut-elle pas aider?
genre :

if instr(tacellule,"EUR")>0 then
   traitement
else
   cellulesuivante
end if

Bon courage

S.L.B.
<hr />

PCPT · Answer

salut,
en effet INSTR, ou peut-être RECHERCHEV qui doit plus correspondre pour VBA excel
++

<hr size="2" width="100%" />
Prenez un instant pour répondre à [sujet-SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

xpert12 · Answer

Salut,

Une solution simplissime. Regarde du côté des filtres automatiques dans excel avec la fonction personnalisation (contenant) :

Ca donne une macro de ce genre :
Sub Macro1()
'
' Macro1  Filtre automatique et critère : contenant "EUR"
'
    Columns("C:C").Select
    ActiveSheet.Range("$A$1:$A$900").AutoFilter Field:=1, Criteria1:="=*EUR*", _
        Operator:=xlAnd
End Sub


@+

Nibor332 · Answer

Merci a tous pour votre aide precieuse.
j'ai pu reussir a faire ce que je voulais avec le filtre auto. 
Je testerais la fonction INSTR qd j'aurais plus de temps
Cheers

VBA Excel: chercher et extraire des mots clef

5 réponses

Votre réponse

Discussions similaires