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

Fermé

fedorville - Modifié par pijaku le 25/08/2014 à 10:10
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 25 août 2014 à 16:18

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
Erreur 0x80070643 - Guide
Iptv erreur de lecture - Forum TV & Vidéo
Erreur 1004 vba ✓ - Forum Excel
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
Erreur g030 - Forum Bbox Bouygues

3 réponses

Réponse 1 / 3

Iama Messages postés 319 Date d'inscription mercredi 13 janvier 2010 Statut Membre Dernière intervention 27 mars 2020 14
25 août 2014 à 09:54

Bonjour fedorville

A quelle ligne du code SVP?

cordialement

Réponse 2 / 3

rEVOLV3r Messages postés 223 Date d'inscription jeudi 12 août 2010 Statut Membre Dernière intervention 21 septembre 2022 28
25 août 2014 à 16:11

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

Réponse 3 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
Modifié par f894009 le 25/08/2014 à 16:19

Bonjour,

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

Discussions similaires

VBA erreur 1004

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

"Aucune application permettant d'ouvrir cette URL"

Discussions similaires

Newsletters