[XL-2000] Erreur validation range

[djtef]

Bonjour, j'ai une erreur sous Excel 2000 que je n'arrive pas à maitriser, des fois ça marche des fois non, et je ne sais pas pourquoi, voilà l'extrait du code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim area As Range
(...)
Set area = Range(Sheets(1).Cells(i, j), Sheets(1).Cells(i, j+8))
With area
        .Borders(xlEdgeLeft).Weight = xlThin
        .Borders(xlEdgeRight).Weight = xlThin
        .Borders(xlEdgeBottom).Weight = xlThin
        .Interior.ColorIndex = 2
        .Validation.Delete
        .Validation.Add Type:=xlValidateWholeNumber, AlertStyle:=xlValidAlertStop, _
                 Operator:=xlBetween, Formula1:="0", Formula2:="1" 'ça plante ici
        .Locked = False     
    End With

J'ai "erreur d'exécution 1004
Erreur définie par l'application ou par l'objet"

J'ai essayé d'insérer un ".select" avant la validation pour comprendre, et des fois même ça plante.
Je sais par exemple que si on ne met pas le ".delete" et qu'il y a déjà une validation ça plante à tous les coups, mais là... je vois vraiment pas !

Merci d'avance pour votre aide

[mercatog]

ça à l'aire de fonctionner

Code :

1
2
3
4
5
6
7
8
9
10
Set area = Sheets(1).Range(Sheets(1).Cells(i, j), Sheets(1).Cells(i, j + 8))
With area
    .Borders(xlEdgeLeft).Weight = xlThin
    .Borders(xlEdgeRight).Weight = xlThin
    .Borders(xlEdgeBottom).Weight = xlThin
    .Interior.ColorIndex = 2
    .Validation.Delete
    .Validation.Add Type:=xlValidateDecimal, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="0", Formula2:="1" 'ça plante ici
    .Locked = False
End With

[djtef]

Ben juste cet extrait oui, mais quand je suis au boulot j'ai une erreur, alors :

-Soit ça vient de Excel 2000
-Soit ça vient des lignes d'avant

[mercatog]

cette ligne me gêne quand même

Code :

Set area = Range(Sheets(1).Cells(i, j), Sheets(1).Cells(i, j+8))

il fallait:

Code :

Set area = sheets(1).Range(Sheets(1).Cells(i, j), Sheets(1).Cells(i, j+8))

[djtef]

Oui effectivement, je l'avais mis au début et j'avais vu que ça marchait en l'enlevant, je vois pas trop l'intérêt de le mettre partout, pour moi dès qu'on met :
sheets(1).range(...) on sait que la plage est est dans la feuille 1, enfin bon c'est sûrement plus propre.

[mercatog]

si sheets(1) n'est pas la feuille active, tu auras des désagréments
c'est pas un choix

[djtef]

Justement dans mon cas c'était pas le feuille active et ça avait l'air de marcher mais bon effectivement on ne maîtrise pas le fonctionnement à 100% je suis d'accord.