Macro script pour rechercher du texte spécifique dans une colonne où la ligne continue de changer

Question

J'essaie de créer une macro qui passera par une colonne Let say Column A et dans cette colonne il y a une ligne qui contient un texte "l'utilisation du processeur est xx% "et à partir de cette ligne si la macro peut supprimer le" XX% "et mettre cette valeur dans une nouvelle feuille n'importe où dans le même classeur.

S'il vous plaît noter que la ligne n'est pas fixé le texte reste la même, mais les lignes vont changer et la colonne restent même

Sub Test() 
Dim ws As Worksheet 
Dim rFind As Range 
Set ws = ThisWorkbook.Worksheets("sheet2") 
Set rFind = Range("A:A").Find("*TOTAL*", LookIn:=xlValues) 
Worksheets("sheet1").Range("B11") = rFind 
End Sub 

Answer 1

Ce fut une assez facile, donc je l'ai fait très rapide. Rappelez-vous comme Gilles a dit, assurez-vous de montrer quelques efforts de votre part avant de poster ou votre question sera probablement fermé: voir https://stackoverflow.com/help/mcve pour plus d'informations.

Sub FindPhrase() 
Dim i As Long, searchCol As Long, dCell As Range, ws As Worksheet 

Set ws = ActiveSheet 

'column A 
searchCol = 1 

'output cell 
Set dCell = ws.Range("B1") 

'search through cells in specified column 
For i = 1 To ws.Cells(ws.Rows.Count, searchCol).End(xlUp).Row 
    If InStr(ws.Cells(i, searchCol), "The cpu utilization is ") > 0 And InStr(ws.Cells(i, searchCol), "%") > 0 Then 
     dCell.Value = CDbl(Replace(Mid(ws.Cells(i, searchCol), InStr(ws.Cells(i, searchCol), "%") - 2, 2), "%", "")) 
     Exit For 
    End If 
Next i 

End Sub