erreur d'execution 1004 erreur definie par l'application ou parFermé

Question

Bonjour, 
ce bout de code me renvoie le message: erreur d'execution 1004 erreur definie par l'application ou par l objet

Private Sub Nouveau_lien_Click()Dim L As LongIf MsgBox("Confirmez-vous l'ajout de ce nouveau lien?", vbYesNo, "Demande de confirmation d'ajout") = vbYes ThenL = Sheets("Liste_liens").Range("A65536").End(x1Up).Row + 1 'Pour placer le nouveau lien à la première ligne du tableau non videRange("A" & L).Value = Num_ordreRange("B" & L).Value = Jdate & "-" & Mdate & "-" & AdateRange("C" & L).Value = CrosscomatombiALC & "x" & CrosscomatombiOSNRange("D" & L).Value = CrosscomatombiOSN1 & "x" & CrosscoCTSRange("E" & L).Value = DestinationRange("F" & L).Value = StatutRange("G" & L).Value = AdminARange("H" & L).Value = AdminBRange("I" & L).Value = NodeARange("J" & L).Value = NodeBRange("K" & L).Value = BandwidthRange("L" & L).Value = Circuit_rateEnd IfEnd Sub

S'il vous plait, pouvez-vous m'aider.

Configuration: Windows 7 / Firefox 31.0

Iama · Answer

Bonjour fedorville

A quelle ligne du code SVP?

cordialement

rEVOLV3r · Answer

Bonjour,

Utiliser la fonction Range est souvent compliqué dans ces situations, je préfère la fonction Cell(ligne,colonne). La fonction range est le contraire : Range("ColonneLigne").

pour la fonction Cells() : A=1, B=2 etc

Essayez donc :

Cells(L,1).Value = Num_ordre

f894009 · Answer

Bonjour, L = Sheets("Liste_liens").Range("A65536").End(x1Up).Row + 1 pour xlUp, c'est un l minuscule pas un 1 qu'il faut mettre.

Erreur d'execution 1004 erreur definie par l'application ou par

3 réponses

Newsletters