XL 2016 Extraire deux lignes d'une même cellule

[Starnour]

Salut;
Si vous me permettiez voila mon problème.
Je voudrais que la cellule B3 me donne que ces 2 lignes qui se trouvent dans la cellule A3.
Ces 2 lignes commencent par TrunkPort Num et TrunkRes Num. D'une autre façon je voudrais comme ce résultat figurant dans la colonne B et ainsi de suite.
La cellule comme B6 dans mon exemple s'est vide puisqu'il n'y a pas "TrunkPort Num" et "TrunkRes Num" dans la cellule A6.
Comment je dois écrire la formule qui me donne le résultat figurant dans la colonne B d'une façon automatique et surtout s'il y ' aura un changement dans la colonne A?.

Cordialement...

 

[Jacky67]

Salut;
Si vous me permettiez voila mon problème.
Je voudrais que la cellule B3 me donne que ces 2 lignes qui se trouvent dans la cellule A3.
Ces 2 lignes commencent par TrunkPort Num et TrunkRes Num. D'une autre façon je voudrais comme ce résultat figurant dans la colonne B et ainsi de suite.
La cellule comme B6 dans mon exemple s'est vide puisqu'il n'y a pas "TrunkPort Num" et "TrunkRes Num" dans la cellule A6.
Comment je dois écrire la formule qui me donne le résultat figurant dans la colonne B d'une façon automatique et surtout s'il y ' aura un changement dans la colonne A?.

Cordialement...

Bonjour,
Une proposition par vba en pj

Sub testJJ()
    Dim C, i&
    Columns(2).ClearContents
    For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
        'Recherche "TrunkPort Num" et "TrunkRes Num"
        For Each C In Split(Cells(i, 1), ";")
            If InStr(C, "TrunkPort Num") Then Cells(i, 2) = C
            If InStr(C, "TrunkRes Num") Then Cells(i, 2) = Cells(i, 2) & C
        Next
    Next
End Sub

 

[Starnour]

Bonjour,
Une proposition par vba en pj

Sub testJJ()
    Dim C, i&
    Columns(2).ClearContents
    For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
        'Recherche "TrunkPort Num" et "TrunkRes Num"
        For Each C In Split(Cells(i, 1), ";")
            If InStr(C, "TrunkPort Num") Then Cells(i, 2) = C
            If InStr(C, "TrunkRes Num") Then Cells(i, 2) = Cells(i, 2) & C
        Next
    Next
End Sub

Re;
Je vous remercie infiniment.
Comment je peux ajouter cette formule à un autre classeur?
Cordialement...

 

[JHA]

Bonjour à tous,

Un début de solution par formule

JHA

 

[Starnour]

Bonjour à tous,

Un début de solution par formule

JHA

Bonjour;
Oui elle s’exécute parfaitement ,mais j'ai constaté ce que suit:
-Si le point-virgule sera absent je n'obtiens pas la bonne réponse
-Si le chiffre augmente aussi je n'obtiens pas la bonne réponse
Cordialement....

 

[Jacky67]

Re;
Je vous remercie infiniment.
Comment je peux ajouter cette formule à un autre classeur?
Cordialement...

Re...
Ce n'est pas une formule proprement dite, mais une procédure vba
Ce code peut-être utilisé dans tous les classeurs, il suffit de le copier/coller.
Si comme précisé, le point-virgule peut-être absent, alors utiliser ce code.

Sub testJJ()
    Dim C, i&
    Columns(2).ClearContents
    For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
        'Recherche "TrunkPort Num" et "TrunkRes Num"
        For Each C In Split(Cells(i, 1), Chr(10)) ' modifier
            If InStr(C, "TrunkPort Num") Then Cells(i, 2) = C
            If InStr(C, "TrunkRes Num") Then Cells(i, 2) = Cells(i, 2) & vbLf & C ' modifier
        Next
    Next
End Sub

 

[Starnour]

Bonjour;
Mais ou je vais là coller?
Cordialement...

 

[Jacky67]

Re..
Une proposition sous forme de fonction personnalisée
Dans un module standard, ceci

Function Decortique(Cel, Mot1, Mot2)
    Dim C, tmp As String
    For Each C In Split(Cel, Chr(10))
        If InStr(C, Mot1) Then tmp = C
        If InStr(C, Mot2) Then tmp = tmp & vbLf & C
    Next
    If tmp <> "" Then Decortique = tmp Else Decortique = ""
End Function

Dans une cellule
=decortique(A3;"TrunkPort Num";"TrunkRes Num")

 

[Jacky67]

Utilisation de la fonction
Alt+F11
Menu insertion==>module
Dans la fenêtre de droite coller le code de la fonction
Retour sur la feuille et utiliser la fonction par la formule
=decortique(A3;"TrunkPort Num";"TrunkRes Num")

 

[Starnour]

Un grand merci...
Maintenant comment savoir combien y'a-t-il de cellules(résultats)identiques et semblables?


Cordialement

 

[Starnour]

Utilisation de la fonction
Alt+F11
Menu insertion==>module
Dans la fenêtre de droite coller le code de la fonction
Retour sur la feuille et utiliser la fonction par la formule
=decortique(A3;"TrunkPort Num";"TrunkRes Num")

Re;
si j'appuie sur Alt+F11 une nouvelle feuille s'ouvre!!!!

 

[chris]

Bonjour à tous

Strictement identique ou en découpant les valeurs entre / ?

 

[Jacky67]

Un grand merci...
Maintenant comment savoir combien y'a-t-il de cellules(résultats)identiques et semblables?


Cordialement

Re..
Peut-être voir du coté de Nb.si() ...Non?
=NB.SI(B:B;B3)

 

[Starnour]

Re;
Comment avoir comme ce résultat là?

Merci...

 

[Jacky67]

Re..
Une piste, avec en colonne C , s'il y a doublons le nombre d'extraction identique