Bonjour
remplace le code de la macro
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
TxtAdresse.Value = cell.Offset(0, 2) 'Adresse
TxtCP.Value = cell.Offset(0, 3) 'CP
TxtLieu.Value = cell.Offset(0, 4) 'Lieu
TxtInfo.Value = cell.Offset(0, 5) 'Info
TxtPayable.Value = cell.Offset(0, 6) 'Payable au
TxtCompte.Value = cell.Offset(0, 7) 'Compte bancaire
TxtRef.Value = cell.Offset(0, 19) 'N° de référence
TxtM1.Value = cell.Offset(0, 20) 'Montant 1
TxtM2.Value = cell.Offset(0, 21) 'Montant 2
TxtM3.Value = cell.Offset(0, 22) 'Montant 3
TxtM4.Value = cell.Offset(0, 23) 'Montant 4
TxtM5.Value = cell.Offset(0, 24) 'Montant 5
TxtM6.Value = cell.Offset(0, 25) 'Montant 6
TxtM7.Value = cell.Offset(0, 26) 'Montant 7
TxtM8.Value = cell.Offset(0, 27) 'Montant 8
TxtCts1.Value = cell.Offset(0, 29) 'Cst1
TxtCts2.Value = cell.Offset(0, 30) 'Cst2
End If
End Sub
par celui ci - tu avais des soucis d'offset..
VB:
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
TxtAdresse.Value = cell.Offset(0, 2) 'Adresse
TxtCP.Value = cell.Offset(0, 3) 'CP
TxtLieu.Value = cell.Offset(0, 4) 'Lieu
TxtInfo.Value = cell.Offset(0, 5) 'Info
TxtPayable.Value = cell.Offset(0, 6) 'Payable au
TxtCompte.Value = cell.Offset(0, 7) 'Compte bancaire
TxtRef.Value = cell.Offset(0, 19) 'N° de référence
TxtM1.Value = cell.Offset(0, 20) 'Montant 1
TxtM2.Value = cell.Offset(0, 21) 'Montant 2
TxtM3.Value = cell.Offset(0, 22) 'Montant 3
TxtM4.Value = cell.Offset(0, 23) 'Montant 4
TxtM5.Value = cell.Offset(0, 24) 'Montant 5
TxtM6.Value = cell.Offset(0, 25) 'Montant 6
TxtM7.Value = cell.Offset(0, 26) 'Montant 7
TxtM8.Value = cell.Offset(0, 27) 'Montant 8
TxtCts1.Value = cell.Offset(0, 29) 'Cst1
TxtCts2.Value = cell.Offset(0, 30) 'Cst2
End If
End Sub