Erreur d'execution '1004'

Résolu

iroko45 Messages postés 215 Date d'inscription Statut Membre Dernière intervention -
thautheme - 22 mars 2015 à 22:33

Bonjour,

Quand j'essaie d'exécuter le programme ci-dessous, le message Erreur d'exécution '1004' apparait.
Merci de bien vouloir m'aider.

==========================================================

Sub create_periode()
      Dim duree_annee As Integer
      duree_annee = Range("C5") - 1
    
      Range(C2).Select
    
        For i = 1 To duree_annee
    
         ActiveCell.Offset(0, 2).Select
         ActiveCell.FormulaR1C1 = "=DATE(YEAR(RC[-3]), MONTH(RC[-3])+1, DAY(RC[-3]))"
         ActiveCell.Offset(0, 3).Select
         Selection.NumberFormat = "m/d/yyyy"
         ActiveCell.FormulaR1C1 = "=EOMONTH(RC[-1],0)"
         ActiveCell.Offset(0, 2).Select
    
        Next
End Sub

==========================================================

Afficher la suite

A voir également:

Erreur d'execution 1004 impossible d'executer la macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Erreur 3005 france tv - Forum TV & Vidéo
Instagram connexion impossible erreur inattendue ✓ - Forum Instagram
Jitbit macro recorder - Télécharger - Confidentialité
Dans la table des matières du document à télécharger, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word

2 réponses

Réponse 1 / 2

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention 1 715

Bonjour,

Range("C2").Select

thautheme

Range("AU" & ligne).Value = "=If(Or(Today()<RC[-45],RC[-45]>EoMonth(RC[-1],0)),"",If(And(RC[-45]<EoMonth(RC[-1],0),RC[-16]="",Today()<=EoMonth(RC[-1],0)),Today()-RC[-45]+1,If(And(RC[-45]<EoMonth(RC[-1],0),RC[-16]="",Ttoday()>EoMonth(RC[-1],0)),EoMonth(RC[-1],0)-RC[-45]+1,If(And(RC[-45]<EoMonth(RC[-1],0),RC[-16]<EoMonth(RC[-1],0)),RC[-16]-RC[-45]+1,If(And(RC[-45]<EoMonth(RC[-1],0),RC[-16]>EoMonth(RC[-1],0)),EoMonth(RC[-1],0)-RC[-45]+1)))))"
me aider se il vous plaît

Réponse 2 / 2

ThauTheme Messages postés 1442 Date d'inscription Statut Membre Dernière intervention 160

Bonjour iroko, bonjour le forum,

Le problème vient du manque de guillemets dans Range(C2) : Range("C2")
Mais je te recommande d'éviter autant que possible les Select qui ne font que ralentir l'exécution du code.

Essaie comme ça :

Sub create_periode()
Dim duree_annee As Integer
Dim J As Integer
Dim I As Integer

duree_annee = Range("C5") - 1
J = 3
For I = 1 To duree_annee
    Cells(2, J + 2).FormulaR1C1 = "=DATE(YEAR(RC[-3]), MONTH(RC[-3])+1, DAY(RC[-3]))"
    Cells(2, J + 5).FormulaR1C1 = "=EOMONTH(RC[-1],0)"
    Cells(2, J + 5).NumberFormat = "m/d/yyyy"
    J = J + 7
Next I
End Sub

À plus,
ThauTheme

iroko45 Messages postés 215 Date d'inscription Statut Membre Dernière intervention 2

Bonjour,
Merci à f894009 et aussi et surtout à ThauTheme. C'est une intervention qui me fait énormément de bien.
Cordialement

Discussions similaires

Arrêt d'exécution d'un code vba

Arrêt automatique macro

[Access] Forcée Arret boucle infini

Erreur d'éxecution 1004

VBA erreur 1004

masquer le déroulement d'une macro sous excel

Votre réponse

Discussions similaires