Discussion :

[Didpa]

Bonjour
Je cherche a inserer un tableau dans un USF, sachant que le nbre de colonne est fixe mais que celui des ligne evolue.

j'ai cherché un peu partous mais je n'ai pas trouver, on m'a parler de "SpreadSheet", mais je ne vois pas comment l'utiliser. Si quelqu'un a une idée ou des exemples.

Merci d'avance

[sabzzz]

bonjour Didpa,

copie ce code sur la page du userform,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub UserForm_Initialize()
Dim wks As OWC10.Spreadsheet
Set wks = Me.Controls.Add("OWC10.Spreadsheet.10", True)
With wks
    .DisplayToolbar = True
    .DisplayHorizontalScrollBar = True
    .DisplayWorkbookTabs = True
    .DisplayColumnHeadings = True
    .DisplayRowHeadings = True   
    For i = 1 To 3
    .Sheets(i).Name = "A" & i
    Next   
    For Each c In Sheets("Feuil1").Range("A1:C" & Range("A65536").End(xlUp).Row)
    .Sheets(1).Range(c.Address) = c
    Next    
    With .Sheets(1).Range("A1:C" & Range("A65536").End(xlUp).Row)
        .Font.Bold = True
        .Font.Color = "Blue"
        .Borders.Weight = xlThick
        .HorizontalAlignment = xlHAlignCenter
    End With   
End With
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub UserForm_Terminate()
On Error Resume Next
Dim LesRefs As Object
Set LesRefs = ThisWorkbook.VBProject.References
For i = 1 To LesRefs.Count
    If Left(UCase(LesRefs(i).Name), 4) = "OWC1" Then
      LesRefs.Remove LesRefs.Item(LesRefs(i).Name)
      Exit For
    End If
  Next
End Sub

et celui-ci servira à démarrer le userform, (dans un module)

Code :

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

1
2
3
4
Sub afficher_formulaire()
ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Fichiers communs\Microsoft Shared\Web Components\10\OWC10.DLL"
UserForm1.Show
End Sub

[Didpa]

bonjour

alors j'ai essayé, mais voilà j'ai ce message d'erreur "Erreur d'execution 1004"
l'accès par programme au projet Visual basic n'est pas fiable.

et c'est cette ligne là qui est surligné après débogage

Code :

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

1
2
3
Sub afficher_formulaire()
ThisWorkbook.VBProject.References.AddFromFile "C:\Program Files\Fichiers communs\Microsoft Shared\Web Components\10\OWC10.DLL"UserForm1.Show
End Sub

Cordialement et encore merci pour votre aide

[sabzzz]

bonjour Didpa,

il faut que la sécurité macro soit activé sur faible,
et vérifier le chemin d'accès pour OWC10

sur le fichier ci-joint il y a une macro "AfficherLesGuids_Propriétés" pour verifier le numéro du guid de ton owc, tu devra ensuite modifier la macro
"version" selon ta version.

http://cjoint.com/?eipPolsfO3

[patricktoulon]

bonjour a tous les deux

je n'ai pas le owc !!,
la macro de recherche fait choux blanc


(windows seven 64)
auriez vous une idée ???

je suis tres interessé par ce projet


merci d'avance

[sabzzz]

bonjour patricktoulon,

tu peut le télécharger sur microsoft,
voici le lien pour xl2002
http://www.microsoft.com/downloads/d...displaylang=EN
mais attention, si ce n'est pas ta version (xl2002), fait une recherche car c'est important de télécharger celui pour ta version.

[Didpa]

Salut

Merci encore, cela fonctionne, mais et oui il y a un mais,

1- Est t-il possible de remplir tableau une ligne sur 2 d'une couleur différente, et l'entête une autre
j'ai essayé mais je n'arrive pas a trouver le bon code.

2- Est il possible de modifier l'intérieur de la cellule, afin quelle remettre le tableau à jour ?

Cordialement

j'avais oublié, comment faire pour qu'il ne selectionne pas la ligne A1.
car comme ca il la sélectionne quand même.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub UserForm_Initialize()
Dim wks As OWC10.Spreadsheet
Set wks = Me.Controls.Add("OWC10.Spreadsheet.10", True)
With wks
    .DisplayToolbar = False
    .DisplayHorizontalScrollBar = False
    .DisplayWorkbookTabs = False
    .DisplayColumnHeadings = False
    .DisplayRowHeadings = False
    .Caption = "MySpreadSheet1"
    For i = 1 To 3
    .Sheets(i).Name = "A" & i
    Next
 
    For Each c In Sheets("Matériel").Range("A2:H" & Range("A65536").End(xlUp).Row)
    .Sheets(1).Range(c.Address) = c
    Next
 '----------Mise en forme du texte----------
    With .Sheets(1).Range("A2:H" & Range("A65536").End(xlUp).Row)
        .Font.Bold = False
        .Font.Color = "Red"
        .Borders.Weight = xlThick
        .HorizontalAlignment = xlHAlignCenter
        .EntireColumn.AutoFit 'ajuste la largeur des colonnes
    End With
 
 '-----------Taille du control & position----------
For Each Ctrl In Me.Controls
 If Ctrl.Caption = "MySpreadSheet1" Then
   Ctrl.Height = 156
   Ctrl.Width = 403
   Ctrl.Top = 152
   Ctrl.Left = 18
  End If
 
Next
End With
End Sub

Merci

[sabzzz]

bonjour Didpa,

j'essaie présentement de créer une Class pour les événement mais je n'y suis pas encore arrivé, dès que j'aurai réussi, je reviendrai vous en faire part.
bonne programmation!

[Invité]

Bonjour

Je vais vous donner un peu de lecture, il s'agit de deux tutos qui ont été utilisés dans un formulaire Access et non une User Form Excel, mais le principe d'utilisation du composant OWC est identique :

http://starec.developpez.com/tuto/msfcillimitee/
http://starec.developpez.com/tuto/listesowc/

Philippe

[sabzzz]

merci ! Philippe,