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 Long If MsgBox("Confirmez-vous l'ajout de ce nouveau lien?", vbYesNo, "Demande de confirmation d'ajout") = vbYes Then L = Sheets("Liste_liens").Range("A65536").End(x1Up).Row + 1 'Pour placer le nouveau lien à la première ligne du tableau non vide Range("A" & L).Value = Num_ordre Range("B" & L).Value = Jdate & "-" & Mdate & "-" & Adate Range("C" & L).Value = CrosscomatombiALC & "x" & CrosscomatombiOSN Range("D" & L).Value = CrosscomatombiOSN1 & "x" & CrosscoCTS Range("E" & L).Value = Destination Range("F" & L).Value = Statut Range("G" & L).Value = AdminA Range("H" & L).Value = AdminB Range("I" & L).Value = NodeA Range("J" & L).Value = NodeB Range("K" & L).Value = Bandwidth Range("L" & L).Value = Circuit_rate End If End Sub
S'il vous plait, pouvez-vous m'aider.
A voir également:
Erreur d'execution 1004 erreur definie par l'application ou par
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").
