Afficher des valeur de cellule dans une iterface graphique [Résolu]

Messages postés
11
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
16 mars 2009
- - Dernière réponse : cnt
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
- 12 mars 2009 à 18:28
Bonjour,
J'aimerais afficher dans un graphique 3 valeurs récuperé du classeur excel. ces valeurs ce trouvent dans 3 cellules differentes cote à cote sur une meme ligne. Je veux afficher les valeur se trouvant dans la ligne que j'aurais selectionné dans un formulaire.
merci 
Afficher la suite 

7 réponses

Meilleure réponse
Messages postés
273
Date d'inscription
lundi 12 janvier 2009
Statut
Membre
Dernière intervention
30 décembre 2015
1
3
Merci
Tu peut pas mettre de label dans ton formulaire?

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 223 internautes nous ont dit merci ce mois-ci

Commenter la réponse de Genildf
Messages postés
11
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
16 mars 2009
0
Merci
Bonjour,
J'aimerais afficher dans un graphique 3 valeurs récuperé du classeur excel. ces valeurs ce trouvent dans 3 cellules differentes cote à cote sur une meme ligne. Je veux afficher les valeur se trouvant dans la ligne que j'aurais selectionné dans un formulaire.
merci
Commenter la réponse de cs_tibons
Messages postés
11
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
16 mars 2009
0
Merci
SI je peux, mon probleme le voila. j'ai une liste déroulante dans un userform qui correspond à de nom de projet qui son present dans un tableau. le tableau contient aussi 3 autre colonnes où il y a des chiffre. Moi je veux faire appraitre dans l'interface la valeur des 3 cases sur la meme ligne du projet qu'on selectionné dans la liste déroulante 
Commenter la réponse de cs_tibons
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
0
Merci
Salut
 Oui on peut
Pour insérer un label, il faut récupérer la barre d'outils "Formulaires", puis ajouter le contrôle "Intitulé" dans la zone graphique.
Il y a aussi la barre d'outils "Dessin" qui permet d'ajouter une "zône de texte". Pour savoir comment écrire dans ces contrôles il vaut mieux enregister une MACRO pour avoir les bonnes syntaxes

CNTJC
Commenter la réponse de cnt
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
0
Merci
<title>Ajout d'éléments dans une liste à l'aide de la propriété List ou Column</title>
<style><![CDATA[import url(/Office.css);]]></style>
<link disabled= "" href="/MSOffice.css" type="text/css" rel="stylesheet" />

[javascript:hhobj_3.Click() tableau] à deux
dimensions contenant les éléments que vous voulez placer dans la liste.

</li>
<li class="LPROC">Définissez la propriété ColumnCount du contrôle
ListBox ou ComboBox afin qu'elle corresponde au nombre d'entrées
de la liste.

</li>
<li class ="LPROC">Choisissez l'une des options suivantes :
<li class= "LB2">Affectez au tableau la valeur de la propriété List . Ainsi,
le contenu du contrôle ListBox correspondra exactement au contenu du
tableau.

</li><li class ="LB2">Affectez au tableau la valeur de la propriété Column. Cette
propriété transpose les lignes et les colonnes de sorte que chaque ligne du
ListBox corresponde à la colonne équivalente du tableau.
</li></li>
</ol>



CNTJC
Commenter la réponse de cnt
Messages postés
11
Date d'inscription
mercredi 11 mars 2009
Statut
Membre
Dernière intervention
16 mars 2009
0
Merci
merci beaucoup pour ta reponse mais suis novice dans le domaine. peux tu stp me faire un exemple sur excel
Commenter la réponse de cs_tibons
Messages postés
219
Date d'inscription
lundi 21 novembre 2005
Statut
Membre
Dernière intervention
20 décembre 2010
0
Merci
Salut
Après ton cri d'alerte, j'ai créé un petit projet qui devrait
répondre à ton souhait pour ce que j'en ai compris

 Exemple de ComboBox à une ou plusieurs colonnes
 qui est liée à une plage source de données.
 Plus comment créer des labels dans une zone graphique
 et y attribuer les valeurs de la sélection de la ComboBox

Private Sub UserForm_Initialize()
    Dim NombreDeColonnes As Byte
   
    NombreDeColonnes = 1    ' ou 2, ou 3, ou 4
    Call AffecterPlage(NombreDeColonnes)
End Sub

Private Sub AffecterPlage(ByVal NbCol As Byte)
    ' Définir le nombre de colonnes du ComboBox
    ComboBox1.ColumnCount = NbCol
    ' Affectation à la ComboBox de la plage du tableau
    ' ici "Combo" désigne le nom de cette plage
    ' ou cela peut être une référence de plage "A1:D25"
    ComboBox1.RowSource = "Combo"   ' ou "A1:D25"
End Sub

Private Sub ComboBox1_Change()
    Dim Val1, Val2, Val3, Idx As Integer
   
    Idx = ComboBox1.ListIndex + 1
    Val1 = Range("Combo").Cells(Idx, 2).Value
    Val2 = Range("Combo").Cells(Idx, 3).Value
    Val3 = Range("Combo").Cells(Idx, 4).Value
    ' si plage source non "nommée", alors il faut écrire la référence complète de celle-ci comme suite:
    ' Val1 = Sheets("Données Sources").Range("Xn:Ym").Cells(Idx, 2).Value
    Call AjoutModif_Labels(Val1, Val2, Val3)
End Sub

Private Sub AjoutModif_Labels(ByVal Valeur1, ByVal Valeur2, ByVal Valeur3)
    Dim LargeurZoneGraphique As Integer
   
    ' Ici on a affaire à un graphique intégré dans une feuille de calcul
    Worksheets("Feuil1").ChartObjects(1).Activate
    ' Faire le changement si c'est une feuille Graphique
    ' Charts("Projets").Activate
    If ActiveChart.Shapes.Count = 0 Then
        LargeurZoneGraphique = Worksheets("Feuil1").ChartObjects(1).Chart.ChartArea.Width
        ActiveChart.Shapes.AddLabel(1, 10, 10, 100, 40).Name = "Label1"
        ActiveChart.Shapes.AddLabel(1, LargeurZoneGraphique / 2 - 100, 10, 100, 40).Name = "Label2"
        ActiveChart.Shapes.AddLabel(1, LargeurZoneGraphique - 120, 10, 100, 40).Name = "Label3"
    End If
    ActiveChart.Shapes("Label1").Select
    Selection.Characters.Text = Valeur1
    ActiveChart.Shapes("Label2").Select
    Selection.Characters.Text = Valeur2
    ActiveChart.Shapes("Label3").Select
    Selection.Characters.Text = Valeur3
End Sub

bonne soirée
CNTJC
Commenter la réponse de cnt