Recherche macro

Bonjour,

Personnellement, je ne vois ce qui l'en empêcherait. As-tu essayé ?

RempliComboUnik doit être une fonction que tu as créée. Tu peux donc en
faire ce que tu veux.

--
Patrick

"David" <(Pas de Spam)direction-ternoise@wanadoo.fr> wrote in message
news:uYHfrF3xEHA.2200@TK2MSFTNGP09.phx.gbl...

Bonsoir à tous

Pour remplir un Combo j'utilise ceci :
RempliComboUnik Sheets("BDEnvoi").Range("B2:B" &
Sheets("BDEnvoi").Range("B65536").End(xlUp).Row), FicheFacture.cmbClient

Est'il possible d'aller regarder dans 2 feuilles, c'est à dire "compiler"
ces deux lignes :
RempliComboUnik Sheets("Feuil1").Range("B2:B" &
Sheets("Feuil1").Range("B65536").End(xlUp).Row), FicheFacture.cmbClient
RempliComboUnik Sheets("Feuil2").Range("B2:B" &
Sheets("Feuil2").Range("B65536").End(xlUp).Row), FicheFacture.cmbClient

Merci une nouvelle fois pour votre aide si précieuse

David

Bonjour patrick

J'ai fais comme ceci :

RempliComboUnik Sheets(Array("BDEnvoi", "BDArchive")).Range("B2:B" &
Sheets(Array("BDEnvoi", "BDArchive")).Range("B65536").End(xlUp).Row),
FicheFacture.cmbClient

Pas concluant : erreur 438 Propriété ou méthode non gérée par cette objet

Merci de l'aide apportée

David

RempliComboUnik doit être une fonction que tu as créée

heu pas moi (merci à lui) mais la voiçi :

Sub RempliComboUnik(Plage As Range, QuelCombo As MSForms.ComboBox)
Dim C As Range
Dim Tbl As New Collection
Dim i As Integer
On Error Resume Next
For Each C In Plage
If Not IsError(C) Then
If C <> "" Then Tbl.Add C.Value, CStr(C.Value)
End If
Next C
On Error GoTo 0

With QuelCombo
.Clear
For i = 1 To Tbl.Count
.AddItem Tbl(i)
Next i
.ListIndex = 0
End With
Set Tbl = Nothing
End Sub