Copier/coller avec conditions et sans les vides

Chers tous,

J'ai besoin de votre aide:

En fait dans le fichier Excel ci-joint, j'ai les colonnes A (nom) et L (contenu) qui sont mes données d'entrées.

Dans la colonne K (correspondance), je voudrais coller les éléments contenus dans la colonne A selon les critères suivants:

- si le 4ème caractère des élément des cellules de la colonne A est 1,

- si les 2 premiers caractères de ces éléments correspondent aux éléments de la cellule L

Alors on colle cet élément dans la cellule K. comme fait sur la feuille excel joint, qui contient aussi la macro que j'ai essayé de faire, qui lorsque je lance, rien ne se passe..

Merci d'avance.

Une fonction/formule Excel serait aussi bienvenue!

Bonjour Fertu, bonjour le forum,

Pas bien compris la seconde condition... Essaie comme ça :

Sub Macro1()
Dim O As Worksheet
Dim TV As Variant
Dim TL() As Variant
Dim I As Integer
Dim K As Integer

Set O = Worksheets("nom")
O.Columns(11).ClearContents
TV = O.Range("A1").CurrentRegion
K = 1
For I = 2 To UBound(TV, 1)
    If TV(I, 1) <> "" Then
        If Mid(TV(I, 1), 4, 1) = "1" Then
            ReDim Preserve TL(1 To K)
            TL(K) = TV(I, 1)
            K = K + 1
        End If
        If Left(TV(I, 1), 2) = O.Cells(I, "L") Then
            ReDim Preserve TL(1 To K)
            TL(K) = TV(I, 1)
            K = K + 1
        End If
    End If
Next I
If K > 1 Then O.Range("K1").Resize(UBound(TL), 1) = Application.Transpose(TL)
End Sub

Bonjour à tous,

En formule

Crdlmt

Perfecto!!!!!

Merci DjiDji59430!