M
Marco
Guest
Bonjour à tous,
J'ai le message d'erreur 'La méthode 'Range' de l'objet '_Global' a échoué' qui apparait lorsque mon programme en VBA arrive sur cette partie du code ci-dessous.
Alors que les autres lignes fonctionnent correctement, c'est la ligne Lbl_RE_value.Caption = Range('data!H' & Lig2).Value qui aparait en surbrillance.
Si qqun pouvait m'aider, ce serait vraiment, vraiment sympa car ca fait un moment que je galère !
Merci d'avance.
A+
---------------------------------------------------------
Private Sub UserForm_Initialize()
'Lbl_date.Text = 'Chr(10) & Range('values!A' & Lig).Value
Tata = Lig
Lbl_AC_type.Caption = Range('values!B' & Lig).Value
Lbl_MSN.Caption = Range('values!C' & Lig).Value
Lbl_paint_type.Caption = Range('values!D' & Lig).Value
Lbl_color.Caption = Range('values!E' & Lig).Value
Lbl_supplier.Caption = Range('values!F' & Lig).Value
Lbl_primer.Caption = Range('values!H' & Lig).Value
Lbl_airline.Caption = Range('values!G' & Lig).Value
Lbl_b1_l0.Caption = Range('values!I' & Lig).Value
Lbl_b4_l0.Caption = Range('values!J' & Lig).Value
Lbl_b6_l0.Caption = Range('values!K' & Lig).Value
Lbl_b1_l1.Caption = Range('values!R' & Lig).Value
Lbl_b4_l1.Caption = Range('values!S' & Lig).Value
Lbl_b6_l1.Caption = Range('values!T' & Lig).Value
Lbl_b1_l2.Caption = Range('values!U' & Lig).Value
Lbl_b4_l2.Caption = Range('values!V' & Lig).Value
Lbl_b6_l2.Caption = Range('values!W' & Lig).Value
Lbl_av_l0.Caption = Range('values!X' & Lig).Value
Lbl_av_l1.Caption = Range('values!Y' & Lig).Value
Lbl_av_l2.Caption = Range('values!Z' & Lig).Value
Lbl_RE_value.Caption = Range('data!H' & Lig2).Value
End With
Toto = Lig2
'Lbl_RE_value.Caption = Sheets('data').Range('H' & Lig2).Value
End Sub
J'ai le message d'erreur 'La méthode 'Range' de l'objet '_Global' a échoué' qui apparait lorsque mon programme en VBA arrive sur cette partie du code ci-dessous.
Alors que les autres lignes fonctionnent correctement, c'est la ligne Lbl_RE_value.Caption = Range('data!H' & Lig2).Value qui aparait en surbrillance.
Si qqun pouvait m'aider, ce serait vraiment, vraiment sympa car ca fait un moment que je galère !
Merci d'avance.
A+
---------------------------------------------------------
Private Sub UserForm_Initialize()
'Lbl_date.Text = 'Chr(10) & Range('values!A' & Lig).Value
Tata = Lig
Lbl_AC_type.Caption = Range('values!B' & Lig).Value
Lbl_MSN.Caption = Range('values!C' & Lig).Value
Lbl_paint_type.Caption = Range('values!D' & Lig).Value
Lbl_color.Caption = Range('values!E' & Lig).Value
Lbl_supplier.Caption = Range('values!F' & Lig).Value
Lbl_primer.Caption = Range('values!H' & Lig).Value
Lbl_airline.Caption = Range('values!G' & Lig).Value
Lbl_b1_l0.Caption = Range('values!I' & Lig).Value
Lbl_b4_l0.Caption = Range('values!J' & Lig).Value
Lbl_b6_l0.Caption = Range('values!K' & Lig).Value
Lbl_b1_l1.Caption = Range('values!R' & Lig).Value
Lbl_b4_l1.Caption = Range('values!S' & Lig).Value
Lbl_b6_l1.Caption = Range('values!T' & Lig).Value
Lbl_b1_l2.Caption = Range('values!U' & Lig).Value
Lbl_b4_l2.Caption = Range('values!V' & Lig).Value
Lbl_b6_l2.Caption = Range('values!W' & Lig).Value
Lbl_av_l0.Caption = Range('values!X' & Lig).Value
Lbl_av_l1.Caption = Range('values!Y' & Lig).Value
Lbl_av_l2.Caption = Range('values!Z' & Lig).Value
Lbl_RE_value.Caption = Range('data!H' & Lig2).Value
End With
Toto = Lig2
'Lbl_RE_value.Caption = Sheets('data').Range('H' & Lig2).Value
End Sub