Spreadsheet l'initialiser

[ascal44]

Bonjour , je voudrais mettre le contenu d'un tableau dans un Spreadsheet.
Et si je sélectionne une ligne de ce Spreadsheet , répartir les valeures dans des Textbox.
Je n'ai pas trouvé d'exemple dans ce forum . Pouvez vous me venir en aide ?

 

[Compte Supprimé 979]

Re : Spreadsheet l'initialiser

Salut Ascal44,

Tu peux essayer ceci

Private Sub Spreadsheet1_SelectionChange()
 Dim Lig As Long, Ind As Integer
 With Spreadsheet1
 Lig = .ActiveCell.Row
  For Ind = 1 To 7
    Me("TextBox" & Ind).Value = .Cells(Lig, Ind)
  Next
End With
End Sub

Mais avant il faut renommer tes TextBox de 1 à 9 dans l'ordre

A+

 

[ascal44]

Re : Spreadsheet l'initialiser

Merci Bruno cela fonctionne pour la répartition dans les textbox.
Mais comment mettre mon tableau C7:K18 dans le SpreadSheet à l'ouverture de l'Userform ?

 

[Compte Supprimé 979]

Re : Spreadsheet l'initialiser

re,

Si tu veux ramener tes données dans l'USF pourquoi utiliser un Spreadsheet 😕

Une ListBox ou ListView ça n'irait pas ?

Sinon je ne sait pas comment faire, désolé 😛

A+

 

[ascal44]

Re : Spreadsheet l'initialiser

Par ce que je veux voir mon tableau intégralement.
Il y a t il une autre solution qu'un Spreadsheet ?

 

[13GIBE59]

Re : Spreadsheet l'initialiser

Bonjour tout le monde

Essaie ces lignes de code, à adapter à ton cas :

Private Sub UserForm_Initialize()
    Dim cell As Range
    Range("Q65497").Select
    For Each cell In Range("tableau_spreadsheet")
        l = cell.Row
        c = cell.Column
        With Me.Spreadsheet1.Cells(l - 65496, c - 16)
            .Font.Color = cell.Font.Color
            .Font.Bold = cell.Font.Bold
            .Font.Size = cell.Font.Size
            .Value = cell.Value
        End With
    Next cell
 
End Sub

 

[Brigitte]

Re : Spreadsheet l'initialiser

Sans intérêt de l'avis général, arf. Je m'abstiens donc.

 

[ascal44]

Re : Spreadsheet l'initialiser

Jean Bernard pourrais tu commenter ton code afin que j'essaie de l'adapter ?
Tel quel j'ai un retour d'erreur sur "Range"

 

[13GIBE59]

Re : Spreadsheet l'initialiser

Bonsoir, Ascal44

Vois ce fil :

https://www.excel-downloads.com/threads/zone-donglet-dans-un-userform.107126/

Le code n'étant pas de moi, j'ai un peu de mal à te répondre...

Bon courage.