Erreur d'exécution '1004'

[guenfood]

Bonjour,

J'ai le message d'erreur d'exécution '1004' avec le code suivant :

Function FinDispatch(numligne)

'procédure qui vérifie que tout a été saisie
Dim CellVide As Boolean
Dim Contenu As Variant
   
    Contenu = Sheets('opcopie').Range('AO' & numligne)
If Sheets('trésoprod').Range('A' & numligne).Value <> '' Then
    If Contenu = '' Then
        CellVide = False
        Sheets('Accueil').Select
   End If
Else
    CellVide = True
    MsgBox 'La saisie ne s'est pas déroulée correctement. Merci de recommencer ou de vérifier.'
End If
End Function

La ligne surlignée est 'Contenu = Sheets('opcopie').Range('AO' & numligne)'

????? Au secours, j'ai besoin d'aide )

 

[PascalXLD]

Bonjour

Soit tu n'as pas de feuille opcopie ou ton numligne n'est pas renseigné

Tu es sûr de bien le renseigner quand tu vas chercher ta fonction ???

 

[guenfood]

Merci pour ta réponse.
Pourtant, j'ai bien une feuille 'opcopie', et le numligne est renseigné dans le code précédent qui appelle ce nouveau code.
Voici le code en question :

Sub RenseigneLigneBonneDate()
Dim derligne As Long

numligne = 8
    
    Workbooks('Reporting Files prod.xls').Activate
    Sheets('trésoprod').Activate
    Range('B8').Activate
    derligne = ActiveCell.End(xlDown).Row
    DateTraitement = Sheets('trésocopie').Range('$G$1')

    For Each cell In Sheets('trésoprod').Range('A8:A' & derligne)
     
        'If cell = Sheets('trésocopie').Range('$G$1') Then
        If cell = DateTraitement Then
            Call RemplissageLigneTresoRecus(numligne)
            'MISE EN COMMENTAIRE DE TOUTE LA PARTIE ALIMENTANT LES virements de TRESO TRAITéS
            'numligne = numligne + 1
            'RemplissageLigneTresotraites (numligne)
            Sheets('opprod').RemplissageLigneOPRecus (numligne)
            'MISE EN COMMENTAIRE DE TOUTE LA PARTIE ALIMENTANT LES Ordres de Paiement TRAITéS
            'numligne = numligne + 1
            'Sheets('opprod').RemplissageLigneOPTraites (numligne)
            Exit For
        End If
        numligne = numligne + 1
    Next cell
    
    Call FinDispatch(numligne)
    
sortieRenseigneLigneBonneDate:
    Exit Sub
End Sub

 

[PascalXLD]

Bonjour

Tu as essayé de mettre un point d'arrêt juste avant pour voir la valuer de numligne (elle serait pas 0 par hasard) ??

 

[guenfood]

Non, la valeur de numligne = 65537 !!!!!!!

Y a un hic là non ?

 

[PascalXLD]

Re

Oui car le numéro de ligne maxi est 65536

 

[guenfood]

Je sèche !!!!
Pourtant mes variables me semblaient bien définies !!!
Où est ce que cela coince ?

 

[PascalXLD]

Pourrais-tu envoyer un morceau du fichier pour voir

 

[guenfood]

Voici le fichier que je joins.
Je n'arrive pas à ôter toutes les protections.
Mais les mots de passes sont 'coucou'.

C'est un fichier qui existait déjà et que je remodifie suite à des changements.

En gros, quand je clique sur le bouton dans l'onglet 'opcopie', cela doit me remplir les onglets 'opprod' et 'trésoprod' en fonction des Sub 'RemplissageLigneTresoRecus' et 'RemplissageLigneOpRecus' (pas les traites).

 

[PascalXLD]

Re

Il n'y a pas de fichier

Il faut un .zip sans accent ni caractères spéciaux n i espaces dans le nom et moins de 50 ko

 

[guenfood]

Le fichier fait 72 ko.

Je réessaie en changeant le nom !

 

[guenfood]

Ben ca passe pas :unsure:

Fichier trop gros de 21 ko !!!

 

[guenfood]

Mais ce que je ne comprends pas, c'est pourquoi j'ai une valeur de 65537 alors que je donne une valeur de 8 à numligne ???
A croire qu'il ne prend pas en compte cette ligne de code !

 

[PascalXLD]

Re

Tu commences à 8 mais après tu as dans ta boucle

numligne = numligne + 1

Donc tout dépend du nombre de fois que tu boucles

 

[guenfood]

La boucle ne se fait qu'une fois par jour.
En fait, le premier jour, cela doit incrémenter ma ligne 8.
Une fois que celle ci est remplie, le lendemain, lorsque je relance, cela doit m'incrémenter la ligne 8 + 1.

Mais ce n'est visiblement pas ce que fait ce maudit code !