erreur d'éxecution '-2147417848'

Bonjour,

J'aurais besoin d'un petit coup de main pour me dépatouiller d'une erreur dont je ne trouve pas la cause.
Je veux, via un petit script VB, remplir les données de validation (Validation.InputTitle & Validation.InputMessage) d'un classeur excel, mais même avec le plus simple des scripts, ça plante :

Le script est de ce genre :

    sub validation()
    Worksheets("validation").Cells(1,1).Validation.InputTitle = "Titre de validation"
    end sub()


Le message d'erreur que j'obtiens est :

    Erreur d'éxecution '-2147417848 (80010108)':
    Erreur d'automation
    L'objet invoqué s'est déconnecté de ses clients

Quelqu'un saurait-il résoudre ce problème, ou me dire quelle est la procédure pour utiliser correctement l'écriture de données de validation via du VB ?

Merci par avance.

salut,
où et comment est déclaré Worksheets ?
et c'est du VB6 çà? c'est pas du VBA?

++

---

Prenez un instant pour répondre à ce sondage svp

Oups, désolé, je suis pas spécialiste dans le domaine, je ne connais pas la différence entre VBA et VB6.
Ce script est fait via le menu outil, macro, visual basic editor dans excel.

ok donc VBA... (tu le sauras comme çà )
je change la rubrique.
désolé je touche pas à VBA....

---

Prenez un instant pour répondre à ce sondage svp

Je pense qu'il doit manquer d'autres paramètres...
Tu veux quoi comme validation ? une liste, des nombres entre tel et tel....

Bref, met nous ce que tu veux faire, et on devrait te trouver un code qui va bien !

@++

  --Mortalino--
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Salut

Je ne suis pas un pro du VBA mais j'ai trouvé quelques infos dans la MSDN et ça donne cet exemple :

Sub Validation()
    With Worksheets("validation").Cells(1, 1).Validation
        On Error Resume Next
        .Add xlValidateWholeNumber, xlValidAlertInformation, xlBetween, "5", "10"
        On Error GoTo 0
        .Modify xlValidateWholeNumber, xlValidAlertInformation, xlBetween, "5", "10"
        .InputTitle = "Nombres entiers"
        .ErrorTitle = "Nombres entiers"
        .InputMessage = "Entrez un nombre entier compris entre cinq et dix "
        .ErrorMessage = "Vous devez entrer un nombre compris entre cinq et dix"
    End With
End Sub

Ca te va ?

Merci Dolphin Boy, a priori, ça marche, du moins chez moi, mais c'est pour le taff, donc je ne pourrai confirmer que demain, les versions d'excel n'étant pas les mêmes.
Je ne souhaite en fait utiliser que le InputMessage et InputTitle, pour donner des indications sur la cellule, pas limiter les données que l'on peut entrer, mais ça va, je fais le tri ;)

Dans ce cas :

Sub Validation()
    With Worksheets("validation").Cells(1, 1).Validation
        On Error Resume Next
        .Add XlInputOnly, xlValidAlertInformation
        On Error GoTo 0
        .InputTitle = "Nombres entiers"
        .InputMessage = "Entrez un nombre entier compris entre cinq et dix "
    End With
End Sub

J'ai laissé le On error ... car je ne sais pas où tu mets ce code. Normalement il doit être uniquement en début de prog et pas répété dans le reste du code.

Mais, j'ai oublié de préciser : le . Add est nécessaire.

Désolé pour le temps de réponse, j'ai pas eu le temps de m'en occuper les jours suivant mon message, et j'ai ensuite oublié de tester.

Et malheureusement, mauvaise nouvelle, ça ne marche pas sur l'ordi du taff :/
Alors, est-ce à cause d'une version différente d'excel (2003), d'un bloquage de sécurité par le responsable info, ou d'un ordinateur foireux... ?
Sachant que j'arrive à exécuter d'autres scripts sous excel sans soucis, mais pas avec les données de validation :'(