eriiic
XLDnaute Barbatruc
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'...
Merci pour votre aide
eric
PS: sélectionner une plage dans le spreadsheet pour tester
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'...
Code:
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
eric
PS: sélectionner une plage dans le spreadsheet pour tester