Message d'erreur et solution

[Marco]

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

 

[sigma]

salut marco,

ta feuille ne serait elle pas protégée par hasard ?

A+

 

[Marco]

Ben...non 🙁

 

[Marco]

Merci pour vos réponses super rapides !

Oui, effectivement j'avais fait un peu de ménage avant de poster, mais ca a crée quelques erreurs. Donc voici ce qui en est excatement.
Par ailleurs, qu'est ce qui cloche au niveau du label 'date' ?

Merci encore !

------------------------------------
Private Sub UserForm_Initialize()



'Lbl_date.Text = 'Chr(10) & Range('values!A' & Lig).Value

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 Sub

 

[Marco]

Oui, j'ai mis l'apostrophe car ca ne marchait pas. C'est là qu'est le pb.

 

[Marco]

Désolé pour mes questions au coup par coup mais quelle difference y a til entre :

Lbl_RE_value.Caption = Range('data!H' & Lig2).Value

et

Lbl_RE_value.Caption = Sheets('data').Range('H' & Lig2).Value

Merci

 

[Marco]

Alors JMPS, merci bcp !

Désolé de t'ennuyer avec mes pb mais :unsure: mon pb concernant la ligne

Lbl_RE_value.Caption = Sheets('data').Range('H' & Lig2).Value

n'est toujours pas OK, je ne vois pas le pb.

Il me semble que la variable Lig2 est toujours vide alors la variable Lig, utilisée dans les meme conditions est ok (une valeur lui est affectée d'apres le debugger).

Aurais tu une petite idée (ou une grosse...)

Merci d'avance

 

[Marco]

Désolé pour mon incompétence mais tu n'initialises où cette p... de variable, au dessus ou au dessous de 'private sub...' ou bien ailleurs car sa valeur est affectée dans le code d'un autre userform du même classeur.

En tout cas, mci bcp pour ta patience, avec moi, il en faut... B)

 

[Marco]

Eureka !!! Ca marche !

Merci infiniment.

A+

 

[Marco]

Salut José !

Désolé pour ma réponse tardive mais je suis parti.. en week end entre temps !

Donc, le problème était que ma varible Lig2 n'était effectivement pas déclarée dans le module 'Déclarations' alors que la varible Lig l'était.