recherche de mots dans feuille

[deltin3]

Je cherche une macro pour chercher tous les mots commencant par "EXTERNAL" dans toute la feuille "Work" et copier le contenu des cellulles juste 1 colonne avant "EXTERNAL" et copier le résultat dans une autre feuille.


Ex :
S'il trouve external en C2 je veux qu'il me copie la donnée présente en B2 en A1
dans ma feuille "Resultat"


je suis débutant si quelqu'un pouvait m'aider.

 

[Excel-lent]

Re : recherche de mots dans feuille

Bonsoir et bienvenu sur le forum Deltin3

dans toute la feuille "Work"

??? Tu es sur un forum spécialisé dans Excel (tableur de "la suite MS Office")!

Mais peut-être que quelqu'un parmi les internautes trainants dans le coin connaissent suffisamment ce logiciel concurrent pour te répondre?

Moi non! Désolé de ne pouvoir t'aider plus!

Bon WE

Cordialement

 

[deltin3]

Re : recherche de mots dans feuille

j'ai réussi à faire ca mais mon findnext ne marche pas

Sub Macro1()

Dim i As Integer
Cells.Find(What:="external", After:=ActiveCell, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _False, SearchFormat:=False).Activate
ActiveCell.Offset(0, -1).Select
Selection.Copy
Sheets("Feuil2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, -1).Select
Selection.Copy
For i = 0 To 10
Sheets("Feuil2").Select
Range("A" & i + 1).Select
ActiveSheet.Paste
Sheets("Feuil1").Select
Cells.FindNext(After:=ActiveCell).Activate
ActiveCell.Offset(0, -1).Select

Next

End Sub

 

[Guiv]

Re : recherche de mots dans feuille

Bonjour Deltin3, le forum,

Sub test()
Dim c As Range, l As Long

For Each c In Sheets("Work").UsedRange

    If c.Value Like ("EXTERNAL*") Then
    c.Offset(0, -1).Copy
    Sheets("Resultat").Select
    
        If Range("A1") = "" Then
        Range("A1").Select
        Else
        Range("A65536").End(xlUp).Offset(1, 0).Select
        End If

    ActiveSheet.Paste
    End If

Next c

End Sub

Attention, l'opérateur "Like" est sensible à la casse.

Cordialement,
Guiv

 

[deltin3]

Re : recherche de mots dans feuille

merci ca marche parfaitement