Discussion :

[laurentabj]

Bonjour,

Je dispose d'une macro xla intégrant une feuille de calcul. cette dernière me sert de "base de données", mais n'est donc pas visible par l'utilisateur.
Est-il possible d'insérer dans un userForm un contrôle spreadsheet qui servirait d'interface visuelle pour accéder en lecture/écriture/calcul à une partie de ma feuille de calcul.
Si oui, quelle est la syntaxe à utiliser pour "linker" mon objet spreadsheet avec ma feuille de calcul ?

Merci d'avance

[SilkyRoad]

bonjour

Tu peux utiliser ce type de syntaxe

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub UserForm_Initialize()
    Dim Plage As Range, Cell As Range
 
    Set Plage = Range("A1:H10")
 
    For Each Cell In Plage
        Me.Spreadsheet1.Cells(Cell.Row, Cell.Column) = CStr(Cell)
    Next Cell
End Sub

michel

[laurentabj]

Merci pour ta réponse.

Si je comprends bien ton code, tu insères dans mon objet spreadsheet une replication d'une plage de ma feuille de calcul.

Problème : dans ce cas, les éventuelles modifications que j'apporterai à mon objet spreadsheet ne viendront pas modifier ma feuille de calcul. Or, c'est bien ce que je veux (un peu comme un formulaire Access en mode feuille de données)

Suis-je clair ?

[SilkyRoad]

A ma connaissance il n'existe pas de fonction pour ça.

Avant la fermeture du UserForm, tu devras boucler sur les cellules du SpreadSheet pour écrire les données dans la feuille de calcul.


ou éventuellement utiliser l'evenement Spreadsheet1_SheetChange afin de mettre à jour automatiquement la feuille de calcul.

Code :

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

1
2
3
4
5
Private Sub Spreadsheet1_SheetChange(ByVal Sh As OWC11.Worksheet, _
    ByVal Target As OWC11.Range)
 
    MsgBox Target.Address
End Sub

michel

[laurentabj]

OK, Merci beaucoup Michel.
Je vais explorer cette piste.