Rechercher et importer dzans combobox

Bonjour,

je butte sur un point , je voudrais que dans une combobox s'affiche les Emails des cellules des colonnes E à K de la Feuil2 de la ligne correspondant à la valeur de la cellule A1 de la Feuil1 et que si je ne trouve pas mon bonheur dans la combobox l'email que je saisie dans celui-ci se copie à la suite du dernière email de cette même ligne en Feuil2

En l'attente

Cordialement

Bonjour,

Un début à tester.

Cordialement

Bonjour,

Je ne suis également penché sur ce problème, alors voici ma solution.

Cordialement.

Bonjour,

Méthode un peu différente. Lancement :

Sub afficheruserform()
    Dim ref$, n%, i%
    ref = "ABC" & ActiveSheet.Range("F6").Text
    With Worksheets("Email")
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 1 To n
            If .Cells(i, 1) = ref Then Set UserForm1.Rng = .Range("E" & i & ":K" & i)
        Next i
    End With
    With UserForm1
        For i = 1 To 7
            If .Rng.Cells(1, i) <> "" Then
                .ComboBox1.AddItem .Rng.Cells(1, i)
            Else
                Exit For
            End If
        Next i
        If i > 1 Then .Show
    End With
End Sub

Et niveau Userform :

Public Rng As Range

Private Sub CommandButton1_Click()
    Dim em$, k%
    With ComboBox1
        em = .Value
        If em <> "" Then
            If .ListIndex = -1 Then
                k = .ListCount + 1
                Rng.Cells(1, k) = em
            End If
            ActiveSheet.Range("H6") = em
        End If
    End With
    Unload Me
End Sub

Cordialement.

bonjour le forum,

Merci à tous,

cela fonctionne impeccable , il ne me manquait plus que cela pour achevé mon fichier.

Cordialement

Salut Keval,

Il serait intéressant de connaitre la solution que tu retiens.

Amicalement.

Bonjour yvouille,

J'ai compris plus facilement celle de Mferrand mais cest la tienne que j'ai retenu car elle a été plus facile a intégré à mon code .

Cordialement