XL 2010 Colonne A et B dans le Combobox

[Scorpio]

Salut à tous,
Voici un code, donc qui m'ouvre la colonne A dans la Combobox, et j'aimerais pour information qui m'informe de la colonne B.
Mais voili, voilà, je ne trouve pas
S'i l vous plaît, un gentil membre pour me donner un coup de pouce
Merci et à +++++

Private Sub CmbEntreprise_Change()
Dim cell As Range
Dim cherch As String, derlign As Long
derlign = Sheets("Base Mutuel").Range("A65536").End(xlUp).Row
cherch = CmbEntreprise
Set cell = Sheets("Base Mutuel").Range("A2:A" & derlign).Find(cherch, lookAt:=xlWhole)
If Not cell Is Nothing Then
CmbEntreprise.Value = cell.Offset(0, 1) 'Entreprise
TxtAdresse.Value = cell.Offset(0, 2) 'Adresse
TxtCP.Value = cell.Offset(0, 3) 'CP
TxtLieu.Value = cell.Offset(0, 4) 'Lieu
TxtLieu2.Value = cell.Offset(0, 5) 'Lieu2
TxtInfo.Value = cell.Offset(0, 6) 'Info
TxtDateFacture.Value = cell.Offset(0, 7) 'Date Facture
TxtCompte.Value = cell.Offset(0, 8) 'Compte bancaire
TxtCompteSalt.Value = cell.Offset(0, 9) 'N° Compte Salt
TxtFactureSalt.Value = cell.Offset(0, 10) 'N° Facture Salt
TxtPayableAu.Value = cell.Offset(0, 11) 'Payable au
TxtRef.Value = cell.Offset(0, 20) 'N° de référence
TxtM1.Value = cell.Offset(0, 21) 'Montant 1
TxtM2.Value = cell.Offset(0, 22) 'Montant 2
TxtM3.Value = cell.Offset(0, 23) 'Montant 3
TxtM4.Value = cell.Offset(0, 24) 'Montant 4
TxtM5.Value = cell.Offset(0, 25) 'Montant 5
TxtM6.Value = cell.Offset(0, 26) 'Montant 6
TxtM7.Value = cell.Offset(0, 27) 'Montant 7
TxtM8.Value = cell.Offset(0, 28) 'Montant 8
TxtCts1.Value = cell.Offset(0, 30) 'Cst1
TxtCts2.Value = cell.Offset(0, 31) 'Cst2
End If
End Sub

 

[ChTi160]

Bonjour Scorpio
Bonjour le fil,Le Forum
pas évident sans fichier
peut être comme ceux ci ;
après avoir définit le Combobox comme ayant deux colonnes

If Not cell Is Nothing Then
With CmbEntreprise
  .AddItem = cell                          'Colonne A
  .List(.ListCount, 1) = cell.Offset(0, 1) 'Entreprise Colonne B
End With
TxtAdresse.Value = cell.Offset(0, 2) 'Adresse

ou si une seule colonne

If Not cell Is Nothing Then
CmbEntreprise .AddItem = cell &" "&  cell.Offset(0, 1)               'Colonne A et Colonne B
TxtAdresse.Value = cell.Offset(0, 2) 'Adresse

ps :
je n'avais pas vu , tu recherches a partir du Combobox que tu veux alimenter ,pas possible??????
il faut que tu fasses cela lors du chargement du Combobox , mais ca ????
Bonne journée
Amicalement
Jean marie

 

[ChTi160]

re
une autre approche

Bonne fin de journée
Amicalement
Jean marie