Aide pour macro VBA copie de cellules sous condition

bonjour,

assez novice sur excel, je recherche une macro VBA je pense qui est le plus approprié suivant mon cas

j'aimerai copier le contenu de la colonne B feuil 1 en fonction de la condition (colonne E feuil 1) :

explications : la colonne B recevra plusieurs numéro différents (un numéro par cellule), la colonne E recevra : Exon 1 ou Exon 2

j'aimerai ensuite que ces numéros soit rangés en fonction de leur condition (exon 1 ou 2) dans la feuil connex ( à partir de la ligne 36, colonne A et D)

Merci pour votre aide

bonjour,

une solution via une macro. j'ai fait l'hyopthèse que la condition à tester est colonne E de feuil1 contient Exon 1 ou Exon 2

Sub aargh()
    Set ws1 = Sheets("feuil1")
    Set ws2 = Sheets("CONNEX")
    x1 = 35
    x2 = 35
    For i = 2 To ws1.Cells(Rows.Count, "B").End(xlUp).Row
        Select Case ws1.Cells(i, "E")
        Case "Exon 1"
            x1 = x1 + 1
            ws2.Cells(x1, "A") = ws1.Cells(i, "B")
        Case "Exon 2"
            x2 = x2 + 1
            ws2.Cells(x2, "D") = ws1.Cells(i, "B")
        End Select
    Next i
End Sub

Bonjour,

à tester,

Sub testExon()
Dim sh1, sh2, lastRw As Long, i As Long
Set sh1 = Sheets("CONNEX")
Set sh2 = Sheets("Feuil1")
lastRw = sh2.Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To lastRw
  Select Case sh2.Cells(i, 5)
    Case "Exon 1": sh1.Range("A" & sh1.Cells(Rows.Count, 1).End(xlUp).Row + 1) = sh2.Cells(i, 2)
    Case "Exon 2": sh1.Range("D" & sh1.Cells(Rows.Count, 4).End(xlUp).Row + 1) = sh2.Cells(i, 2)
  End Select
Next
End Sub

c'est super ! un grand merci !