Code VBA enlever lignes dans la même case

Salut j'ai besoin de votre aide (excel en pièce jointe)

Avec l'aide d'un bouton j'aimerais que toute les lignes (dans la même case F42) qui n'ont rien décrit avant l'espace+2 points ( :) soient enlevées.

Une image vaut milles mots... Merci!

Bonjour,

Peut-il y avoir plusieurs lignes à récupérer ?

Bonjour

Ci joint ma solution

A+ François

Salut,

Oui il peut y avoir plusieurs lignes à récupérer, donc la solution de fanfan38 ne fonctionne pas parfaitement.

Pas sur que cela fonctionne dans tous les cas :

Function MajCellule(ByVal Chaine As String) As String

Dim TabContenu As Variant
Dim I As Integer
Dim Chaine2 As String

    MajCellule = ""
    TabContenu = Split(Chaine, Chr(10))
    Chaine2 = Join(TabContenu, "")
    TabContenu = Split(Chaine2, ":  LBS ( $/LBS)")

    If UBound(TabContenu) = 0 Then Exit Function

    For I = LBound(TabContenu) To UBound(TabContenu)
        If TabContenu(I) <> " " Then
           MajCellule = MajCellule & TabContenu(I) & Chr(10)
        End If
    Next I

End Function

Est ce que ça correpond à tes souhaits?

A+ François

Salut!

Merci à vous deux, la solution de fanfan38 fonctionne!

Dim a, i As Long, machaine As String
  a = Split(Range("F42").Value, Chr(10))
 For i = LBound(a) To UBound(a)
  If Left(a(i), 2) <> " :" Then
   If Len(machaine) = 0 Then
    machaine = a(i)
   Else
    machaine = machaine & Chr(10) & a(i)
   End If
  End If
 Next
 Range("F42").Value = machaine

Eric Kergresse je ne sais pas comment utiliser ta fonction?

Il faut mettre la fonction dans un module standard et l'utiliser comme n'importe quelle fonction excel.