VBA Recherche données dans excel à partir de selection dans un userform

Je crois que j'ai le même problème que dans cette discussion...

J'essaie de trouver une valeur (variable CreaClientWO) dans la sélection bB. Tel quel, on me retourne une erreur d'exécution 9: l'indice n'appartient pas à la sélection.

Voici le code que j'ai tricoté jusqu'à date. j'essai de trouver une solution simple car cette fonction reviendra plusieurs fois dans mon programme.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Private Sub CreaCliDoublValid() 'ThisWorkbook.CheckVides 'recherche de la prochaine ligne vide Dim i As Integer 'Dim j As Integer (useless) Dim bB As Range Dim z As Range     i = ThisWorkbook.LigneVideClients 'numéro de rangée disponible   Set bB = Sheets("Liste Clients").Range("B2:B" & i)   Set z = bB.Find(CreaClientWO, LookIn:=xlWhole, MatchCase:=False) If Not z Is Nothing Then CreaCliDoublRep = False Else: CreaCliDoublRep = True End If Set bB = Nothing Set z = Nothing End Sub

---

Merci de l'aide *(et si ca peu aider d'autre)

Bonjour Steve_mcn, tous.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

Sub Steve_mcn() Dim CreaClientWO As Variant Set f = Sheets("Liste Clients") CreaClientWO = "Le client6" result = CreaCliDoublValid(f, CreaClientWO, LigneVideClients) If result = False Then f.Cells(LigneVideClients, "B").NumberFormat = "" f.Cells(LigneVideClients, "B").Value = CreaClientWO End If End Sub Private Function CreaCliDoublValid(f, CreaClientWO, LigneVideClients) As Boolean Dim i As Long Dim bB As Range Dim z As Range   LigneVideClients = f.Cells(Rows.Count, "B").End(xlUp).Row + 1 i = f.Cells(Rows.Count, "B").End(xlUp).Row   Set bB = f.Range(f.Cells(2, "B"), f.Cells(i, "B"))   Set z = bB.Find(what:=CreaClientWO, LookIn:=xlFormulas, Lookat:=xlWhole, MatchCase:=False) If Not z Is Nothing Then CreaCliDoublValid = True Else CreaCliDoublValid = False End If   Set bB = Nothing Set z = Nothing End Function

---