Discussion :

[LoloXBlade]

Bonjour à tous et à toutes,

J'ai parcouru pas mal de sujets sur cette erreur, mais je n'arrive toujours pas à trouver la cause de mon problème Je vous explique, je travaille sur un fichier hérité d'un collègue, qui permet de suivre les problèmes et les actions correctives mises en place par la suite. Le fichier était très fourni en mises en formes conditionnelles, pour de manière visuelle voire s'il y a ou non des retards dans les actions.
L'ennui c'est que comme beaucoup de collègues étant amenés à travailler dessus, j'ai voulu automatiser pas mal de choses. J'avais donc coder les formules activant les mises en forme conditionnelles, mis tout ça dans une boucle, et ainsi obtenu ce code ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
Private Sub workbook_open()
 
Sheets("suivi des actions").Protect ("ccp")
 
 
Sheets("Liste déroulante").Protect ("ccp")
 
Dim ii As Integer
ii = 12
'ii=2 signifie que la boucle démarre en ligne 12
Do While Not (IsEmpty(Sheets("Liste").Cells(ii, 1)))
'la boucle s'applique tant que la condition est remplie, soit ici le fait que les cellules en colonne 1 'ne soient pas vides.
 
    Sheets("Liste").Cells(ii, 16).FormulaR1C1 = _
        "=IF(RC[-1]="""","""",""r"")"
 
    Sheets("Liste").Cells(ii, 18).FormulaR1C1 = _
        "=IF(RC[1]<>"""",""r"","""")"
 
    Sheets("Liste").Cells(ii, 21).FormulaR1C1 = _
        "=IF(RC[-9]=""CU"",""x"",IF(RC[1]<>"""",""r"",""""))"
 
    Sheets("Liste").Cells(ii, 25).FormulaR1C1 = _
        "=IF(RC[-23]="""","""",IF(RC[-6]="""",""N"",""O""))"
 
    Sheets("Liste").Cells(ii, 26).FormulaR1C1 = _
        "=IF(RC[-11]="""","""",IF(RC[-7]="""","""",IF(RC[-7]=RC[-11],""N"",IF(RC[-7]>RC[-11],""O"",IF(RC[-11]<R10C4,""O"",""N"")))))"
 
    Sheets("Liste").Cells(ii, 27).FormulaR1C1 = _
        "=IF(RC[-25]="""","""",IF(RC[-12]="""","""",IF(RC[-8]<>"""","""",IF(RC[-12]>R10C4,""N"",IF(RC[-12]=R10C4,""N"",""O"")))))"
 
 
    Sheets("Liste").Cells(ii, 28).FormulaR1C1 = _
        "=IF(RC[-26]="""","""",IF(RC[-13]<>"""","""",""O""))"
 
    Sheets("Liste").Cells(ii, 29).FormulaR1C1 = _
        "=IF(RC[-26]="""","""",IF(RC[-8]=""x"",""N"",""O""))"
 
    Sheets("Liste").Cells(ii, 30).FormulaR1C1 = _
        "=IF(RC[-28]="""","""",IF(RC[-8]<>"""",""O"",""""))"
 
    Sheets("Liste").Cells(ii, 31).FormulaR1C1 = _
        "=IF(RC[-29]="""","""",IF(RC[-10]<>"""","""",IF(RC[-9]<>"""","""",""O"")))"
 
 
ii = ii + 1
'intégration des lignes, pour le passage à la ligne suivante
Loop
 
End Sub

J'enregistre, je partage le fichier à l'ancienne car personne n'utilise Onedrive chez nous, je rouvre le fichier et...l'erreur 1004 apparaît. Je n'arrive pas à comprendre d'où vient le problème, quelqu'un aurait-il une idée ?

Merci d'avance en tout cas !

[nonesofar]

Bonsoir,

Ce serait plus facile si tu nous disais quelle ligne génère cette erreur.

Cela ne fonctionne plus aprés le partage sur onedrive?

Cordialement.

[Menhir]

Quelle est la valeur de ii après plantage ?
Est-ce qu'une partie des actions est réalisée ?

[eriiic]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim ii As Integer

un Integer ne va que jusque 32767. Pour des lignes mettre As Long si tu peux dépasser ce nombre.
eric

[LoloXBlade]

Bonjour,

Merci pour vos idées ! Le code fonctionne très bien hors partage, et c'est dès qu'il est partagé que j'ai le message d'erreur. Par contre, impossible pour moi d'entrer dans VBA en mode partage, dans VBA je reçois le message "projet verrouillé, le projet ne peut être affiché". Difficile donc de savoir ce qui plante, d'où mon incompréhension ...

Concernant la variable ii, je ne suis pas trop calée là dessus, je sais qu'elle me permet de démarrer la boucle à partir la ligne 12 mais je n'en sais pas plus.

Sinon ! Ce matin j'ai eu besoin d'accéder aux feuilles protégées, mais impossible de cliquer sur "ôter la protection" dans Révision. J'ai donc départagé, enlever les lignes de codes de protection, fait ma bidouille et remis le partage. Plus tard, j'ai rouvert le fichier...il n'y a plus de message d'erreur 1004 après avoir enlevé les lignes de protection avec mot de passe.
J'avoue ne pas comprendre en quoi elles posaient problème, même si quelque part le problème est résolu.

[Menhir]

Comme il est régulièrement dit sur ce forum : il est déconseillé d'utiliser Excel en mode partagé.
De part sa conception même, il n'est pas fait pour.

Si tu veux partager une base de données, utilise un gestionnaire de bases de données comme Access ou Libre Base.
Si c'est un outil de calcul, duplique-le pour que chacun utilise sa version.

[LoloXBlade]

Rebonjour,

Oui, là c'est en attendant d'avoir mieux, et les collègues trouvent excel plus simple qu'access donc on a pris au plus facile. Et surtout, nous aurons une version développée en ERP de cet outil d'ici un an ou deux ans, donc c'est une solution provisoire.
En tout cas merci pour vos conseils !

[joe.levrai]

Bonjour, la protection (ou le fait de l'enlever) est une fonctionnalité non prise en charge sur un classeur partagé

C'est la raison de ton erreur 1004, que tu as également constaté en voulant le faire manuellement

Je te conseille de bien consulter cette rubrique Microsoft, où tout y es listé

https://support.office.com/fr-fr/art...2-c1c59a628534