cs_tibons
Messages postés11Date d'inscriptionmercredi 11 mars 2009StatutMembreDernière intervention16 mars 2009
-
11 mars 2009 à 17:44
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 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
cs_tibons
Messages postés11Date d'inscriptionmercredi 11 mars 2009StatutMembreDernière intervention16 mars 2009 11 mars 2009 à 17:45
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
cs_tibons
Messages postés11Date d'inscriptionmercredi 11 mars 2009StatutMembreDernière intervention16 mars 2009 11 mars 2009 à 17:59
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
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 11 mars 2009 à 18:30
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 11 mars 2009 à 18:40
<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>
cnt
Messages postés219Date d'inscriptionlundi 21 novembre 2005StatutMembreDernière intervention20 décembre 20101 12 mars 2009 à 18:28
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