Erreur 1004 Erreur définie par l'application ou l'objet
Christine
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je ne trouve pas l'erreur et aucune ligne n'est surlignée quand le message d'erreur apparait
"Erreur d'exécution '1004' : Erreur définie par l'application ou l'objet"
Voici le code :
Merci d'avance pour votre aide.
Je ne trouve pas l'erreur et aucune ligne n'est surlignée quand le message d'erreur apparait
"Erreur d'exécution '1004' : Erreur définie par l'application ou l'objet"
Voici le code :
Sub Moyenne_age()
'
' Moyenne_age macro
' Affiche la moyenne des âges des conducteurs
'
Dim MaxID As Double
MaxID = Application.WorksheetFunction.Max(Feuil6.Range("A1:A255"))
Range("J&(MaxID+3)").Activate
For ligne = 1 To MaxID + 1
For colonne = 10 To 10
Next colonne
Next ligne
Activatecell.FormulaR1C1 = "=AVERAGE (J2 : (MaxID+3))"
End Sub
Merci d'avance pour votre aide.
A voir également:
- Vba erreur 1004 erreur définie par l'application ou par l'objet
- Nommez une application d'appel vidéo ou de visioconférence - Guide
- Comment recuperer whatsapp supprimé par erreur - Guide
- Erreur 0x80070643 - Accueil - Windows
- Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
- Desinstaller application windows - Guide
2 réponses
Bonjour,
Pour corriger ton code, il faudrait tout d'abord comprendre ce que tu cherches à faire.
Pour cela, le plus simple est de joindre un fichier exemple via https://www.cjoint.com/ accompagné de quelques explications.
A+
Pour corriger ton code, il faudrait tout d'abord comprendre ce que tu cherches à faire.
Pour cela, le plus simple est de joindre un fichier exemple via https://www.cjoint.com/ accompagné de quelques explications.
A+
Bonjour,
L'erreur vient de l'insertion d'une variable dans
Lorsque tu fais ceci, la variable doit être en dehors des guillemets :
🎼 Cordialement,
Franck 🎶
L'erreur vient de l'insertion d'une variable dans
Range("J&(MaxID+3)").
Lorsque tu fais ceci, la variable doit être en dehors des guillemets :
Dim MaxID As Integer 'Integer car un numéro de ligne n'est jamais décimal
'pour une question de logique le + 3 doit être ici :
MaxID = Application.WorksheetFunction.Max(Feuil6.Range("A1:A255")) + 3
'Et donc :
Range("J" & MaxID).Activate
🎼 Cordialement,
Franck 🎶
