Userform + affichage cellules et graph

Version imprimable

20/04/2012, 16h40
jackborogar

Userform + affichage cellules et graph

Bonjour,

J'aimerais créer un Userform sous VBA dans mon Classeur 1 me permettant d'afficher une plage de cellule d'un autre classeur (Classeur 2) pour le bouton 1 et un graph également pour le bouton 2 se trouvant aussi dans le Classeur 2.
Les données que je souhaite afficher du Classeur 2 sont actualisées tout les jours donc il faut que l'actualisation se répercute automatiquement sur mon Classeur1 quand j'ouvre mon Userform.

J'espère avoir été assez clair,

Merci d'avance pour vos réponses.
20/04/2012, 16h45
Daniel.C

Bonjour,

Quel est l'utilité de l'userform ? Est-e que tu veux afficher les données ou le graphique à l'intérieur ?
20/04/2012, 16h54
jackborogar

L'utilité de mon userform est d'afficher des données (plage de cellule et graph) situé dans un autre classeur.
Donc l'userform disposera de deux boutons
- un pour la plage de cellule
- un autre pour afficher le graph

Donc oui je souhaite que ces données soit afficher à l'interieur. Sur ma feuille excel je créerais un bouton qui affichera ce UserForm qui lui affichera mes données :)

Cordialement

2 pièce(s) jointe(s)

Regarde les deux classeurs joints. Le userform se trouve dans le fichier cible. La référence "Microsoft Office Web Components" doit être cochée. Les deux classeurs doivent être ouverts. Le userform contient, outre les boutons, un contrôle SpreadSheet et un contrôle Image. Tout le code se trouve dans le module du userform :

Code:

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
39
40
41
42
Public Img As Control
Private Sub cbDonnées_Click()
    On Error Resume Next
    Me.Controls.Remove (Img.Name)
    With Me.Spreadsheet1
        .Visible = True
        Set plage = Workbooks("jackborogar source.xls").Sheets("Feuil1").Range("Plage")
        For Each c In plage
            .Cells(c.Row - plage.Row + 1, c.Column - plage.Column + 1) = c.Value
        Next c
    End With
End Sub
 
Private Sub cbExit_Click()
    Unload Me
End Sub
 
Private Sub cbGraphique_Click()
    Me.Spreadsheet1.Visible = False
    If Img Is Nothing Then
        Set Img = Me.Controls.Add("forms.Image.1")
        With Img
            .Left = 0
            .Width = Me.cbExit.Left
            .Height = Me.cbExit.Top
            .Top = 0
        End With
    Else
        Img.Visible = True
    End If
    With Workbooks("jackborogar source.xls").Sheets("Feuil1")
        On Error Resume Next
        Kill ThisWorkbook.Path & "\" & "tmpgraph.jpg"
        On Error GoTo 0
        .ChartObjects("Graphique 1").Chart.Export ThisWorkbook.Path & "\" & "tmpgraph.jpg", "JPG"
        Img.Picture = LoadPicture(ThisWorkbook.Path & "\" & "tmpgraph.jpg")
    End With
End Sub
 
Private Sub UserForm_Activate()
    Me.Spreadsheet1.Visible = False
End Sub

Je reste à ta disposition pour toute explication complémentaire.

23/04/2012, 10h08
jackborogar

Bonjour Daniel,

Excuse moi du retard mais j'ai passé mon week end sans ordinateur. Donc je reviens au boulot, donc ton code je le comprends pas mal mais je t'avoue que le "spreadsheet1" je ne le comprends pas. Car c'est un spreadsheet bien à toi et quand je veux le lancer dans mon userform sa me marque "membre de méthode ou de données introuvable". Comment l'instancié?
Enfin il y a juste ton Img à quoi sert il ici?
Peux tu m'en dire plus sur cette ligne: Set Img = Me.Controls.Add("forms.Image.1").

Je te remercie d'avance,

Cordialement
23/04/2012, 10h30
Daniel.C

Bonjour,

Citation:

le "spreadsheet1" je ne le comprends pas. Car c'est un spreadsheet bien à toi

Non, c'est un contrôle MS, bien qu'au démarrage, il affiche un massage comme quoi le contrôle peut être dangereux. Est-ce que tu as bien ajouté la référence "Microsoft Office Web Components" ? (dans la fenêtre VBE, menu "Outils", Références.)

Citation:

Peux tu m'en dire plus sur cette ligne:

Code:

Set Img = Me.Controls.Add("forms.Image.1")

Pour afficher le graphique, je fais un export du graphique au format JPG, je crée un contrôle Image dans lequel j'insère le fichier JPG. Je suis obligé de le créer et de la supprimer, car ce contrôle ne comporte pas de propriété "Visible" qui permettrait de l'occulter quand j'affiche la plage de données.
NB. Les deux classeurs doivent être ouverts pour le déroulement de la macro. Si ça t'arrange, je peux ouvrir le classeur source.
23/04/2012, 11h17
jackborogar

1 pièce(s) jointe(s)

Je t'ai envoyé mon fichier cible celui qui reçoit le graph et la plage de cellule appelé "plage". Regarde dans l'onglet Achat 2011- 2012, il y a un bouton Couverture et Objectif c'est cela que je veux faire.
Pourtant je pense avoir bien fait dans mon VBE, look le pour que tu me dises.
Sa me marque "Membre de méthode ou de données introuvable" avec en surligné en jaune la méthode Userform_Activate() et surligné en gris ".Spreadsheet1"

Merci de ton aide,

Cordialement
23/04/2012, 13h09
Daniel.C
Ce n'est pas la bonne référence. Mets la macro suivante dans un module standard du classeur cible et exécute-la. Tu devras ensuite ajouter le contrôle Spreadsheet dans la boîte à outils de l'userform et tu devras le redessiner.
Code:

1 2 3 Sub AjoutReference() ThisWorkbook.VBProject.References.AddFromGuid "{0002E558-0000-0000-C000-000000000046}", 1, 1 End Sub
23/04/2012, 13h19
kiki29

Salut, juste pour info voir ici
23/04/2012, 14h36
jackborogar

Bon alors on y est presque!

Déjà pour le graph c'est nickel, il s'affiche parfaitement et se réactualise en fonction des données de mon classeur source!

J'ai ensuite mis un spreadsheet dans ma boite à outils pour afficher "normalement" mes données du classeur source.
Cependant aucune données ne s'affichent lorsque j'appuie sur le bouton. Pourtant en regardant le code il va bien chercher la plage de données indiquée.

Désolé pour mes incompréhension de débutant,

Merci pour votre temps,

J'ai trouvé mon erreur, ça s'affiche bien merci beaucoup!

Cependant (je ne vous lache pas), dans mes données il y a des pourcentages et lors de la récup dans mon UserForm ils ne s'affichent pas du tout correctement, peut être s'avez vous une petite astuce pour qu'ils s'affichent!

Encore un grand merci,

La macro résout de format de nombre.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub cbDonnées_Click()
    On Error Resume Next
    Me.Controls.Remove (Img.Name)
    With Me.Spreadsheet1
        .Visible = True
        Set plage = Workbooks("jackborogar source.xls").Sheets("Feuil1").Range("Plage")
        For Each c In plage
            .Cells(c.Row - plage.Row + 1, c.Column - plage.Column + 1) = c.Value
            .Cells(c.Row - plage.Row + 1, c.Column - plage.Column + 1).NumberFormat = c.NumberFormat
        Next c
    End With
End Sub

24/04/2012, 09h54
jackborogar

dernier pb

On est presque au but, dernier problème et que quand j'appelle mon UserForm, il y a donc trois boutons:
- cbDonnées
- cbGraphique
- cbExit

J'ai remarqué que quand j'appuie sur cbDonnées pour aller ensuite sur cbGraphique et je reviens sur cbDonnées, si j'appuie une nouvelle fois sur cbGraphique une message d'erreur apparait fermant tout mes excels.

Ne faut-il pas faire une boucle?

Cordialement,

Teste le code suivant (remplace la macro dans l'userform) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub cbGraphique_Click()
    Me.Spreadsheet1.Visible = False
    On Error Resume Next
    Me.Controls.Remove (Img.Name)
    On Error GoTo 0
    Set Img = Me.Controls.Add("forms.Image.1")
    With Img
        .Left = 0
        .Width = Me.cbExit.Left
        .Height = Me.cbExit.Top
        .Top = 0
    End With
    With Workbooks("20120330SYRAL FUF.xls").Sheets("Achats 1112")
        On Error Resume Next
        Kill ThisWorkbook.Path & "\" & "tmpgraph.jpg"
        On Error GoTo 0
        .ChartObjects("Graphique 1").Chart.Export ThisWorkbook.Path & "\" & "tmpgraph.jpg", "JPG"
        Img.Picture = LoadPicture(ThisWorkbook.Path & "\" & "tmpgraph.jpg")
    End With
End Sub

24/04/2012, 11h41
jackborogar

Nope toujours la même erreur : l'objet invoqué s'est déconnecté de ses clients puis une nouvelle fenêtre microsoft excel a rencontré un probléme et va se déconnecté.

Bizarre...
24/04/2012, 11h45
jackborogar

Non c'est parfait Daniel j'ai trouvé l'erreur!

Je te remercie de ton aide durant ces quelques jours!

A bientôt

Cordialement,