définir un Range dans un Spreadsheet

[eriiic]

Bonjour à tous,

Je n'arrive pas à boucler sur des cellules d'une plage lorsque la feuille est objet d'un userform.
Je dois mal m'y prendre ou il doit manquer quelque chose mais quoi ?
A chaque fois j'ai 'incompatibilité de type'...

Private Sub Spreadsheet1_SelectionChange()
    Dim c As Range
    ' ligne correcte
    UserForm1.Spreadsheet1.Worksheets(1).Cells(1, 1) = "ok"
    ' si sélection je récupère bien la plage
    MsgBox (Spreadsheet1.Selection.Address)
    ' mais impossible de boucler dessus
    For Each c In Spreadsheet1.Selection
        c = 3
    Next c
    ' impossible de boucler également sur une plage fixée
    For Each c In UserForm1.Spreadsheet1.Worksheets(1).Range("A2:A5")
        c = "ok"
    Next
End Sub

Merci pour votre aide

eric

PS: sélectionner une plage dans le spreadsheet pour tester

 

[Pierrot93]

Re : définir un Range dans un Spreadsheet

Bonjour Eric,

essaye ainsi, fonctionne chez moi sous 2003 :

    Dim c As Variant
    For Each c In UserForm1.Spreadsheet1.Worksheets(1).Range("A2:A5")
        c.Value = "ok"
    Next

bonne journée
@+

 

[eriiic]

Re : définir un Range dans un Spreadsheet

Bonjour Pierrot,

Bonne idée, effectivement je n'ai plus d'erreur.

Mais... rien ne s'inscrit dans les cellules :-s
J'ai tenté un .refresh sans résultat.
et MsgBox (UserForm1.Spreadsheet1.Worksheets(1).Cells(3, 1)) me confirme que cette cellule est bien vide.

J'ai l'impression qu'il y a de sérieuses limitations mais ça me parait quand même étonnant que ce soit à ce point, et je ne vois pas comment l'écrire autrement.

Et je ne trouve aucune doc en ligne sur la gestion de cet objet...

Merci
eric

Edit : je n'avais pas corrigé le c en c.value, et là c'est tout bon
Grand merci et bonne journée

 

[MichelXld]

Re : définir un Range dans un Spreadsheet

Bonjour Eric, bonjour cher Pierrot,

En complément de la réponse de Pierrot, la définition de variable type Range du SpreadSheet doit être rédigée ainsi :

    Dim c As OWC11.Range

OWC11 étant à adapter en fonction de la version utilisée

bon dimanche
michel

 

[Staple1600]

Re : définir un Range dans un Spreadsheet

Bonjour à tous


Juste pour infos.

Ne fonctionne pas avec mon Excel 2000 malheureusement

Donc Toutes Versions (sauf mon Excel 2000)

edition: j'ai parle trop vite
https://www.excel-downloads.com/thr...atibilite-excel-2003-2000-spreadsheet.101058/

Je ne dois pas avoir installé les Microsoft Office Web Components sur mon poste

 

[eriiic]

Re : définir un Range dans un Spreadsheet

Bonjour Michel, Staple,

Je viens de tester rapidement dim c as OWC11.Range mais j'ai une erreur 'type défini par l'utilisateur non défini'.
En consultant j'ai pourtant la version 11.0.0.8304, je reprendrai les tests plus tard car là j'ai un anni (pas le mien) à préparer pour ce soir ;-)

Merci
eric

 

[eriiic]

Re : définir un Range dans un Spreadsheet

Bonsoir tout le monde,

Des news de mon pb...
Comme Dim c As OWC11.Range ne marchait pas chez moi j'ai voulu réinstaller OWC11 sur le lien fourni ici.
Hé bé plus rien ne marchait, à l'ouverture de mon fichier j'avais un beau message :
"Erreur système &H80040111 (-2147221231) ClassFactory..."

Après différent tatonnements voici comment s'en débarrasser :
Dans le répertoire 'C:\Program Files (x86)\Common Files\microsoft shared\Web Components\11' renommer OWC11.DLL puis faire une réparation d'Office.
La dll d'origine fait 7.6Mo, celle installée par le lien : 6.7Mo
Pourtant c'est bien la version française pour office 2003 (?)

Je vais me contenter de as variant ;-)
Merci de votre aide
eric