Extraire une ligne d'une cellule Excel

Bonjour ;

je veux extraire une ligne d'une cellule Excel :

Dans la cellule C2 j'ai :

Type: ANGLE

Class: 2500

SIZE: 80

Material: SA217 - C12A

Line No: BR402

PMC: BAH

Design Pressure( Mpa): 18

Design Tempreture (°C): 571

MOV: MOV

et dans C3 :

Type: GATE

Class: 2500

SIZE: 150

Material: A217-C12A

Line No: BR005

PMC: BAD

Design Pressure( Mpa): 18

Design Tempreture (°C): 571

MOV:

Voilà ce que je veux au juste c'est d'extraire la ligne " Line No: XXXXX" de chaque cellule ; sachant que le nombre de caractère des autres ligne change d'une cellule à l'autre .

Meci de votre aide .

Bonjour,

Et quel critère employer pour trouver " Line No: XXXXX"

A+

La tableau contient plus de 3000 cellule comme celle que je vient de donner comme exemple ; ce que j'arrive pas à réaliser c'est qu'à partir de chaque cellule , extraire la 5ème ligne.

Donc ce que tu veux c'est une liste avec

Line No: BR402
Line No: BR005
...

Tu dis

Effectivement.

Re,

Colle ce code dans un module et tu lance la procédure

Bien sûr, adapter les noms des feuilles

Option Explicit
Option Compare Text

Sub ExtrairLine()
Dim Lig As Long, C As Integer, Lig2 As Long
    Lig2 = 2
    With Sheets("Feuil1")
        For Lig = 2 To .Cells(Rows.Count, 3).End(xlUp).Row
            C = InStr(1, .Cells(Lig, 3), "line")
            If C > 0 Then
                Sheets("Feuil2").Cells(Lig2, 1) = Mid(.Cells(Lig, 3), C, 14)
            End If
            Lig2 = Lig2 + 1
        Next Lig
    End With
End Sub

Au cas ou line ne serait pas trouver une cellule vide est générée pour la détecter.

A+

Bonsoir ;

Je suis encore débutant , j'ai essayer de faire ce que vous m'avez demander en cherchant sur internet sans résultat.

Donc si vous pouvez donner plus de détails sur la manière de faire tous ça j'en serait reconnaissant .

Merci d'avance et merci de votre effort

Re,

Ouvrir le classeur.

Taper Alt+F11 , ça ouvre l'éditeur de macro

Sur la barre du menu sélectionner ->Insertion -> Module

Dans la nouvelle feuille qui vient de s'ouvrir avec le nom Module1 faire un copier/coller de mon code ci-dessus.

Tes onglet doivent avoir comme nom Feuil1 et Feuil2 ou tu change ces noms dans le code par le nom de tes feuilles.

Quand le code est copier, mettre le curseur à l'intérieur de la Sub, sur la ligne Lig2 = 2 par exemple.

Ensuite taper F5

Note : Si tu dois souvent procéder à cette manip tu peu lier le code à un bouton.

A+

ça a marché !

Merci infiniment .