XL 2010 Transfert donnée non continue

[Scorpio]

Bonjour à tous,
J'aurais bien besoin s'il vous plaît d'un petit coup de pouce pour ce classeur, merci.

J'ai ici un classeur dont je n'arrive pas trouver la solution.
En faite, sur la feuille "Bulletin Rose VBA" ce trouve un bouton, qui lance le formulaire.
Mais les données ne sont pas dans les bons Txt, et j'ai essayé de les déplacées mais ca fonctionne pas.
y aurait-il s'il vous plaît quelqu'un pour ce pr.
Merci et à +++++

 

[vgendron]

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..

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

 

[Scorpio]

Salut vgendron,
A voilà le soucis.
OK, et merci de ton aide, j'essaye tous ça.