Erreur 1004 Erreur définie par l'application ou l'objet

Fermé

Christine - Modifié par pijaku le 11/12/2014 à 14:26
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 11 déc. 2014 à 14:29

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 :

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
Erreur 0x80070643 - Guide
Vente objet occasion entre particulier - Guide
Iptv erreur de lecture - Forum TV & Vidéo
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
Erreur g030 - Forum Bbox Bouygues

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
11 déc. 2014 à 12:27

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+

Réponse 2 / 2

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
Modifié par pijaku le 11/12/2014 à 14:29

Bonjour,

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 🎶

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