Microsoft 365 Extraction de données dans Excel

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

jeannoelanderruthy

XLDnaute Nouveau
Bonjour,
J'ai une (seule) colonne avec, dans chaque cellule, des valeurs comme :
bracelet améthyste
collier aigue-marine AA
etc.
Je souhaiterais extraire uniquement les noms des pierres en m'appuyant sur un tableau qui contient la liste complète :
améthyste
aigue-marine
etc.
En bref, c'est une manière de nettoyer la colonne sans en passer par une suppression des données situées avant ou après (le nom de la pierre peut se trouver à n'importe quel endroit de la cellule qui, elle-même peut contenir des informations très différentes).
J'avais l'impression que ça pouvait être fait avec rechercheX mais, d'une certaine manière, la démarche est, dans ce cas, inverse.
Merci pour votre aide ou vos suggestions.
 
Bonjour jeannoelanderruthy, et bienvenu sur XLD.
N'auriez vous pas un petit fichier test, cela éviterait de répondre à coté, ou de fournir une solution que vous devriez ré adapter.
D'autre part, acceptez vous le VBA ?
 
Salut,
Un début de piste.
VB:
Sub JeCherche()
Dim xlWbk As Workbook
Dim xlWsh As Worksheet
Dim lastRow As Long
Dim strCrit As Variant
Dim i As Integer, j As Integer

Set xlWbk = ThisWorkbook
Set xlWsh = xlWbk.Worksheets("Feuil1")

lastRow = xlWsh.Cells(xlWsh.Rows.Count, 1).End(xlUp).Row
strCrit = xlWsh.Range("F1")

For i = 2 To lastRow
    If InStr(1, Range("A" & i), strCrit) <> 0 Then
        j = j + 1
        Range("C" & j + 1 & ":C" & j + 1) = Range("A" & i & ":A" & i).Value
    End If
Next i
End Sub
20220827_2.jpg
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
563
Retour