Discussion :

[Z20500]

Bonjour,
J'ai une macro qui génère un classeur excel avec des mises en forme conditionnelle.

Lorsque la macro est exécutée sur le poste de certains collègues, elle envoie un message d'erreur sur la ligne suivante :

Code :

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

.FormatConditions.Add Type:=xlExpression, Formula1:="=$F2<>$N2"

qui se trouve dans le bloc suivant :

Code :

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

1
2
3
4
5
6
7
8
Adresselignes = "N2:N" & Nblignes - 1 ' mise en forme conditionnelle des colonnes autres départements
With Range(Adresselignes)
    .FormatConditions.Delete
    .FormatConditions.Add Type:=xlExpression, Formula1:="=$F2<>$N2"
    .FormatConditions(1).Interior.Color = RGB(255, 0, 0)
    .FormulaLocal = "=si($F2<>0;$F2;" & Chr(34) & Chr(34) & ")"
    .NumberFormat = "[hh]:mm:ss"
End With

Ce que je ne comprends pas, c'est pourquoi ça plante seulement sur le poste de certains collègues.
Y a-t-il quelque chose d'incorrect dans le code ?

En vous remerciant d'avance pour vos réponse.
Bonne journée.

[zenpbb]

Bonjour,

L'erreur vient probablement de l'option "Style de référence L1C1" qui est activée sur les postes en question.
Vas voir du côté de Application.ReferenceStyle et adapte tes formules selon le contexte utilisateur (en utilisant par exemple Application.ConvertFormula en fonction de la valeur ReferenceStyle).

[Z20500]

Bonsoir,

merci pour votre réponse.
A priori, j'ai trouvé une parade en ajoutant la référence du nom du classeur et de la feuille :

Code :

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

1
2
3
Adresselignes = "N2:N" & Nblignes - 1 ' mise en forme conditionnelle des colonnes autres départements
With workbooks(nomclasseur).worksheets(1).Range(Adresselignes)
...

au lieu de

Code :

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

1
2
3
Adresselignes = "N2:N" & Nblignes - 1 ' mise en forme conditionnelle des colonnes autres départements
With Range(Adresselignes)
...

ça a l'air de marcher chez un des utilisateurs qui rencontrait l'erreur. S'il a toujours des erreurs chez d'autres utilisateurs, j'adopterai votre solution.

Cordialement,