VB gestion taille et couleur de label HELP! Résolu

Question

Bonjour à tous, Totalement novice en VBA ! En abscisse j'ai mes occurences : le nombre de fois où un sujet revient. En ordonnée : le niveau de satisfaction avec lequel est exprimé le sujet. Dans mes statistiques, j'ai d'autres données intéressantes à montrer aux clients, mais que je n'arrive pas à rendre visuellement : L'implication : le texte grossi en fonction de l'implication Texte (label) gros si indice d'implication > 0.75 Texte (label) moyen si indice d'implication entre 0.5 et 0.75 Texte (label) petit si indice d'implication <0.5 L'émotionnel : Texte (label) rouge si le sujet est émotionnel (1) Texte (label) bleu si le sujet est rationnel (0) J'ai commencé par faire cette macro pour spécifié mes séries... Mais je n'y arrive pas !!! Mes questions : Comment agir sur le label et pas sur le point??? Comment appliquer la différence de taille sur le label? Comment appliquer la différence de couleur??? Et, enfin, comment utiliser des couleurs RVB??? BREF: beaucoup de questions je m'en rend compte, mais si quelqu'un peu m'aider ce serait super !!!!! Merci d'avance !! (Le fichier en pièce jointe : https://www.cjoint.com/?BCpsSBMKG6I ) Sub macro1() Dim nbpts As Long, nupt As Long Dim valY, Gr ' implication - série n° 3 Set Gr = ActiveSheet.ChartObjects(1).Chart valY = Gr.SeriesCollection(1).Values nbpts = Gr.SeriesCollection(1).Points.Count With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).Label .SelFontName = "Arial" With Gr.SeriesCollection(3).Points(nupt) If valY(nupt) >= 0.75 Then .SelFontSize = 20 ElseIf valY(nupt) >= 0.5 Then .SelFontSize = 15 ElseIf valY(nupt) < 0.5 Then .SelFontSize = 8 End If End With End With ' emotionnel - série n° 4 Set Gr = ActiveSheet.ChartObjects(1).Chart valY = Gr.SeriesCollection(1).Values nbpts = Gr.SeriesCollection(1).Points.Count With Worksheets(1).ChartObjects(1).Chart.SeriesCollection(1).Label .SelFontName = "Arial" With Gr.SeriesCollection(4).Points(nupt) If valY(nupt) = 1 Then .SelFontColor = 20 ElseIf valY(nupt) >= 0 Then .SelFontColor = 15 End If End With End With End Sub Message d'erreur : propriétés ou méthode non gérée ! Configuration: Mac OS X / Firefox 10.0.2

ccm81 · Answer

bonsoir  

un essai de gestion des étiquettes (taille-couleur police) de la série "satisfaction" 
https://www.cjoint.com/?0CpvjLJEFCX   

RQ1. dans ton premier essai de macro tu avais tenté d'agir sur les 'MarkerSize", j'en avais déduit que c'était sur la taille des points que tu voulais agir.  
RQ2. je ne comprends pas bien ce que tu veux faire 
- as tu enregistré ton fichier au format excel 2003 ? il est arrivé avec une seule série de données (satisfaction) sans macro et des alertes sur le format du fichier, alors que le premier était arrivé "normalement" 
- il est possible d'agir sur les propriétés d'une série (par ex satisfaction) en fonction des données dans une autre colonne (par ex émotionnel) 
- combien de séries doit intégrer ton graphique, la/lesquelles? 

bonne suite

ludovodul · Answer

Bonjour ccm81, 

J'avais compris aussi que le client souhaitait agir sur les MarkerSize des 4 séries, mais en fait c'est sur les labels d'une seule série qu'il souhaite agir. 

Son objectif : faire en sorte que les mots de la série "satisfaction" aient une couleur ou une taille différentes en fonction des paramètres "émotionnels" et "implications". 

(je ne sais pas trop si je suis claire... j'espère...)

J'ai donc repris le fichier sur lequel tu m'avais aidé et je l'ai transformé. Mais sans succès. Il me manque l'expérience...

Voici le lien : https://www.cjoint.com/?BCqiLkc47bf

Pour résumer : il n'y a qu'une seule série dans le graphique et son apparence est modifiée par les deux autres.

ccm81 · Answer

il y a un pb avec la transmission de ton fichier (format excel 2003, lien avec un autre classeur, .... )
J'ai donc repris la demande de ton premier message et tenté ceci
https://www.cjoint.com/?0CqkJGfbbCD

dans le code, les plages Emo et Impli sont en "dur", si elles sont déplacées, il faudra modifier le code, sinon, on peut faire mieux en les nommant dans la feuille de calcul, tu dis

je ne comprends pas bien pourquoi les titres des axes sont en dehors du graphique

bonne suite

ludovodul · Answer

Merci mille fois ccm81 !
C'est exactement le résultat que je voulais obtenir... Merci encore

Quand tu dis "les nommer dans la feuille de calcul" ça veut dire quoi exactement? 

Concernant les titres des axes, je les ai mis à la main car je ne savais pas les implémenter directement... Mais je t'avoue aussi que je n'ai pas vraiment cherché ! 
Je préférais me concentrer sur mon problème de Label. 

Si jamais tu as un conseil là-dessus !

Sinon, je te remercie encore !

Ludo

ccm81 · Answer

1. nommer les plages Emotionnel (G7:G16) et implication (F7:F16) 
avec Insertion/nom/Définir tu peux attribuer un nom à ces plages (et modifier le code de la macro  en conséquence),  
- si tu les déplaces dans la feuille, tu n'as plus besoin de modifier le code 
- on peut faire encore mieux si tu dois ajouter des lignes à tes séries, mais c'est un peu plus compliqué) 
2. pour les titres des axes tu les a dans Options du graphique

ludovodul · Answer

Bon... J'ai essayé d'inclure les titres des axes, mais ce n'est pas folichon. Le titre vient par-dessus, il n'est pas lier au titre de la colonne (il marque "Titre de l'axe")... Bref, c'est pas génial... mais bon, ça peut se corriger à la main donc c'est OK !

Concernant les séries c'était un peu la question que je me posais ! 
Ce tableau est un tableau d'essai mais, effectivement, je vais devoir rajouter des lignes. Dans ce cas, je peux aussi changer les coordonnées des cellules en "dur"... Ce ne sera pas parfait, mais si tu dis que l'autre solution est plus compliquée, ça me permettra d'avancer. 

Merci vraiment pour ton aide précieuse !

ccm81 · Answer

un exemple de ce qu'on peut faire avec des plages de données "dynamiques"
https://www.cjoint.com/?0CqpD1JcaCY 
RQ. on peut se passer du bouton OK et faire en sorte que l'ajout d'une ligne provoque à la fois la maj du graphique et des labels (en fin de projet)

bonne fin de journée

ludovodul · Answer

WAOU !!! Merci encore ccm81 ... Tu es une sorte de Dieu du VBA non?  
Merci encore et très bonne journée à toi !

ludovodul · Answer

Une dernière question : sur le dernier tableau que tu m'as corrigé, l'abscisse est en bas... Hors, j'aimerais qu'elle soit calée avec le "zéro" de l'ordonnée 
(potentiellement, il peut y avoir un +1 en ordonnée, cela signifie que l'abscisse ne serait pas tout en haut, mais en peu en dessous)

Peux-tu me dire comment je peux le régler???

Merci d'avance et bonne journée !

Ludo

ccm81 · Answer

clic-droit sur l'axe des ordonnées/Format de l'axe/Echelle/Axe des ordonnées (X) coupe à 0

bonne suite

ludovodul · Answer

Merci ccm81 ! Il fallait que j'agisse sur l'Axe des abscisses, mais ça marche nickel ! BON... J'abuse complétement mais je suis face à deux autres problèmes : - Dans la suite (ci-dessous) j'ai mis scrupuleusement le même nombre de "End If" que de If mais le message suivant apparaît : erreur de compilation End If sans Bloc If - J'ai rajouté une colonne que j'ai nommée Const plageUti = "PlageUti" Dans cette colonne je dois extraire les 10 plus grands nombres .... Mais je n'y arrive pas !!! J'ai essayé en regardant d'autre cas sur d'autres forums mais ça ne marche pas sur mon tableau ... Ce que j'aimerais c'est souligner les 10 plus grand nombre du tableau dans le graphique .... Si jamais quelqu'un à une idée???? Je ne m'en sors pas... MERCI !!! ' implication i = ActiveSheet.Range(plageImp).Cells(nupt, 1).Value If i <= 0.1 Then .Size = 8 ElseIf i >= 0.1 <= 0.2 Then .Size = 9 ElseIf i >= 0.2 <= 0.3 Then .Size = 10 ElseIf i >= 0.3 <= 0.4 Then .Size = 11 ElseIf i >= 0.4 <= 0.5 Then .Size = 12 ElseIf i >= 0.5 <= 0.6 Then .Size = 15 ElseIf i >= 0.6 <= 0.7 Then .Size = 19 ElseIf i >= 0.7 <= 0.8 Then .Size = 24 ElseIf i >= 0.8 <= 0.9 Then .Size = 30 ElseIf i >= 0.9 <= 1 Then .Size = 37 End If End If End If End If End If End If End If End If End If End If ' emotionnel i = ActiveSheet.Range(plageEmo).Cells(nupt, 1).Value ' couleur bleue If i <= 0.1 Then .Color = RGB(0, 40, 190) ElseIf i >= 0.1 <= 0.2 Then .Color = RGB(0, 70, 190) ElseIf i >= 0.2 <= 0.3 Then .Color = RGB(0, 90, 190) ElseIf i >= 0.3 <= 0.4 Then .Color = RGB(0, 110, 190) ElseIf i >= 0.4 <= 0.5 Then .Color = RGB(0, 130, 190) ' couleur rouge ElseIf i >= 0.5 <= 0.6 Then .Color = RGB(190, 40, 0) ElseIf i >= 0.6 <= 0.7 Then .Color = RGB(190, 70, 0) ElseIf i >= 0.7 <= 0.8 Then .Color = RGB(190, 90, 0) ElseIf i >= 0.8 <= 0.9 Then .Color = RGB(190, 110, 0) ElseIf i >= 0.9 <= 1 Then .Color = RGB(190, 130, 0) End If End If End If End If End If End If End If End If End If End If End With

ccm81 · Answer

pour ton code 1. ElseIf n'est pas la même chose que Else If avec ElseIf un seul EndIf (celui du If) avec Else If un End If par If 2. i>0.5 <=0.6 devrait s'écrire i>0.5 and i<=0.6 mais ce n'est pas utile (si tu es ici, c'est DEJA que i >0.5) 3. il y a beaucoup mieux en matière de choix multiple ' implication i = ActiveSheet.Range(plageImp).Cells(nupt, 1).Value Select Case i Case Is <= 0.1: .Size = 8 Case Is <= 0.2: .Size = 9 Case Is <= 0.3: .Size = 10 Case Is <= 0.4: .Size = 11 Case Is <= 0.5: .Size = 12 Case Is <= 0.6: .Size = 15 Case Is <= 0.7: .Size = 19 Case Is <= 0.8: .Size = 24 Case Is <= 0.9: .Size = 30 Case Else: .Size = 37 End Select pour le reste tu peux essayer une mise en forme conditionnelle avec la "formule est" et la fonction GRANDE.VALEUR bonne suite

ludovodul · Answer

Pour te répondre: 
1. Si je force End If à devenir EndIf ça ne fonctionne pas... Il se "décolle "automatiquement ... 

2. C'est ce que je pensais aussi c pour cela que je n'avais pas rajouter " and i" 
Merci ! 

3. J'ai réécrit le code en fonction, mais ça ne fonctionne pas... C'est très bizarre... Même la couleur ne fonctionne pas??  

Option Explicit 

Const plageEmo = "PlageEmo" 
Const plageImp = "PlageImp" 
Const plageUti = "PlageUti" 

Private Sub btOK_Click() 
Dim nbpts As Long, nupt As Long 
Dim i 
Dim Gr 
Set Gr = ActiveSheet.ChartObjects(1).Chart 
nbpts = Gr.SeriesCollection(1).Points.Count 
For nupt = 1 To nbpts 
  With Gr.SeriesCollection(1).Points(nupt).DataLabel.Font 

' implication 
    i = ActiveSheet.Range(plageImp).Cells(nupt, 1).Value 
    Select Case i 
      Case Is <= 0.1: .Size = 8 
      Case Is <= 0.2: .Size = 9 
      Case Is <= 0.3: .Size = 10 
      Case Is <= 0.4: .Size = 11 
      Case Is <= 0.5: .Size = 12 
      Case Is <= 0.6: .Size = 15 
      Case Is <= 0.7: .Size = 19 
      Case Is <= 0.8: .Size = 24 
      Case Is <= 0.9: .Size = 30 
      Case Else: .Size = 37 
    End Select 
     
    ' emotionnel 
    i = ActiveSheet.Range(plageEmo).Cells(nupt, 1).Value 
    Select Case i 
        ' couleur bleue 
      Case Is <= 0.1: .Color = RGB(0, 40, 190) 
      Case Is <= 0.2: .Color = RGB(0, 70, 190) 
      Case Is <= 0.3: .Color = RGB(0, 90, 190) 
      Case Is <= 0.4: .Color = RGB(0, 110, 190) 
      Case Is <= 0.5: .Color = RGB(0, 130, 190) 
        ' couleur rouge 
      Case Is <= 0.6: .Color = RGB(190, 40, 0) 
      Case Is <= 0.7: .Color = RGB(190, 70, 0) 
      Case Is <= 0.8: .Color = RGB(190, 90, 0) 
      Case Is <= 0.9: .Color = RGB(190, 110, 0) 
      Case Else: .Color = RGB(190, 130, 0) 
    End Select 

End With 
Next nupt 
Set Gr = Nothing 
End Sub

4. Grâce au bouton "Mise en forme conditionnelle" j'arrive à obtenir les 10 valeurs que je souhaite. J'aimerai qu'elles se traduise par le mot en gras dans le graphique...  On peut lier la fonction directement sur le graphique par un code??  
(je ne connais pas le "GRANDE.VALEUR") 
D'ailleurs, ce ne sont pas vraiment les grandes valeurs que je souhaite, c'est plutôt l'inverse... Comme ce sont des valeurs négatives, ce sont les valeurs les plus éloignées de zéro...  

 https://www.cjoint.com/?BCrmphzsQLS 
ou ce lien 
https://www.cjoint.com/?BCrmpI4U0yJ 

MERCI !!

ccm81 · Answer

1. désolé pour le End If qui est toujours "décollé"
3. le code fonctionne chez moi
https://www.cjoint.com/?0CrmIhxzdem 
pour la couleur, la plageEmo ne contenant que des 0 et des 1, il est normal de n'avoir que 2 couleurs
4. vois sur l'exemple l'utilisation de GRANDE.VALEUR 
si tu ne l'as pas à disposition elle est peut être dans les utilitaires d'analyse (Outils/options/Macros complémentaire)

ludovodul · Answer

3. Côté tailles et couleurs, tout fonctionne ! c'est super ... 
(Oups !!! je me suis trompé sur un détail dans le tableau)

4. Si si je le bouton a disposition !
Et dans le tableau cela marche très bien !
Une copie d'écran :https://www.cjoint.com/?BCrm3E3nQUf 

C'est la traduction de ces "10 valeurs" dans le graphique que je n'arrive pas à avoir. 

J'imagine que je dois créer 
Const plageUti = "PlageUti"

Mais comment je traduis que ces 10 valeurs sont soulignées et en gras (par exemple) dans le graphique? 
Est-ce que j'ai un moyen pour les cibler directement et leur pose un attribut différent??

ccm81 · Answer

quelque chose comme ça?

Const plageUti = "PlageUti"
Const pp = 5 ' pour traitement des pp plus petites valeurs de plageUti  

    ' utilité
    i = ActiveSheet.Range(plageUti).Cells(nupt, 1).Value
    If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageUti), pp) Then
      .Bold = True
      .Underline = xlUnderlineStyleSingle
    Else
      .Bold = False
      .Underline = xlNone
    End If
bon week end

ccm81 · Answer

1. je ne peux toujours pas lire ton fichier .xls, il y a des liaisons externes et les macros sont perdes à l'ouverture   

2. si tu as une erreur de compilation c'est que ton code est incorrect, ça n'a ri"n à voir avec une mauvaise définition de "plageUti" qui provoquerait une erreur à l'exécution.   
PlageUti n'est pas une fonction mais une constante   
as tu déclaré les deux constantes à la suite des autres constantes au début du code   

Const plageUti = "PlageUti"   
Const pp = 5 ' pour traitement des pp plus petites valeurs de plageUti  
3. plageUti doit être déclarée dans la feuille comme les autres plages (plageEmo, ...)  
Insertion/nom/définir   
le plus simple   
- tu te mets sur plageEmo   
- dans la fenêtre nom dans le classeur tu change le nom en plagUti   
- tu remplaces les 3 références de colonne G par  H   
- OK   
pour contrôler   
- Insertion/nom/definir   
- sélectionne plageUti   
- clic sur DECALER doit sélectionner la bonne plage sur la feuille   

4. ce que ça donne    
https://www.cjoint.com/?0CsuS2BeEAF   

bonne suite

ludovodul · Answer

Super ! merci ... c parfait maintenant !

Dernière question idiote ( et promis, après j'arrête!) : que veut dire "Const pp = 5"
Qu'est-ce que "pp"???

Merci !

Bonne journée et bonne semaine

ccm81 · Answer

pp est le nombre de cellules "soulignées" dans ta feuille, chez moi, j'ai mis 5 (ma liste est courte), chez toi, d'après ce que j'ai compris, ce sera 10  
pp intervient ici (Small est l'équivalent VBA de PETITE.VALEUR) 
    If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageUti), pp) Then 
      .Bold = True 
      .Underline = xlUnderlineStyleSingle 
    Else 
      .Bold = False 
      .Underline = xlNone 
    End If
bonne suite

ludovodul · Answer

Tu es prof de VBA non? 
Merci encore pour tout et pour ta pédagogie...

Bonne journée

ccm81 · Answer

pas du tout, disons plutôt que je suis en phase d'apprentissage et que ce forum est une source fabuleuse avec de sacrées pointures qui interviennent

bonne fin de journée

ccm81 · Answer

bonjour 

1.2. pour les séries d'abscisses et d'ordonnées, il te suffisait d'aller dans Insertion/nom/definir et de modifier les colonnes des plages plageSatX et plageStatY 
pour les étiquettes, il faut obligatoirement passer par une macro, j'ai donc rajouté la partie de code ainsi que la plage plageEti 
https://www.cjoint.com/?0CwljxVDODD  
3. je ne sais pas si on peut jouer sur la transparence au niveau des étiquettes 

bonne suite

ccm81 · Answer

sur ton envoi, je ne vois pas les entêtes de colonnes 
plageStatX correspond à la colonne Satisfaction (chez moi E, chez toi ? ) 
plageStatY correspond à la colonne Occurence (chez moi D, chez toi ? ) 

Pour simplifier la définition des "noms", j'ai ajouté la cellule C6, que j'ai nommé nbrpts, qui donne le nombre de points (voir l'encadré à droite) 

voir mon post précédent pour les etiquettes (as tu défini la plage des etiquettes, as tu modifié le code de la macro)

https://www.cjoint.com/?0CwnHxAhhGS  

bonne suite

ccm81 · Answer

j'ai excel 2003
je ne tiens pas à faire du SAV par téléphone ....
la récupération de ton fichier s'est encore mal passée, j'ai tout de même récupéré la feuille avec ton graphique, mais sans les macros
effectivement il manquait une instruction au niveau des étiquettes
j'ai donc fait avec ma macro, à toi d'adapter
https://www.cjoint.com/?0CwoSSirhDa 
RQ1. tu as bien nommé la cellule C6:nbrpts, par contre tu ne lui a rien mis dedans !!!
RQ2. tu n'as pas utilisé les plages nommées pour ton graphique (voir les données source), donc si tu ajoutes des lignes, il te faudra intervenir sur les données source. Si les données ne doivent pas ou peu évoluer, cette solution est jouable
RQ3. j'ai (quand même) corrigé ces deux défauts
RQ4. je t'ai ajouté un bouton de RAZ des étiquettes

bon courage

ludovodul · Answer

Je comprends, évidemment !

Là, le graphique à le bon aspect ... Ce qui me semble étrange c'est pourquoi il n'était pas bon avant?? Un mystère pour moi ...

Sinon, j'ai supprimé tout ce qui concerne "Uti" (puisqu'ils ne le veulent plus) mais les mots restent soulignés sur le graphique ...
D'où une question qui va te paraître élémentaire : comment faire fonctionner les boutons? 
Si j'appuie dessus il ne se passe rien ... Et la souris ne change pas d'aspect?? 

Et enfin (et après j'arrête de t'embêter), j'essaye de placer les axes différemment (celui à droite, je voudrais le mettre en haut, et celui du bas à droite) en rajouter les légendes et un titre... mais je n'y arrive pas. En passant par "Disposition Graphique" ce ne les changent pas???

Merci !!!

ccm81 · Answer

quelques questions  

1. comment faire fonctionner les boutons?  
1.1. jusqu'à maintenant, les boutons fonctionnaient ils?  
1.2. jusqu'à maintenant, comment faisais tu fonctionner ces macros?  
1.3. ce problème arrive t'il sur MON dernier envoi ou bien as tu mis toi même des boutons?  
1.4. vérifies outils/macros/sécurité (moyen)  

2. Là, le graphique à le bon aspect .  
2.1. il te faut lire attentivement les explications.... et répondre aux questions.  
2.2. le bouton RZA doit supprimer les soulignements, sinon clic sur les étiquettes et clic sur l'icône de soulignement de la barre des outils  

3. j'essaye de placer les axes différemment (celui à droite, je voudrais le mettre en haut, et celui du bas à droite) 
je ne comprends pas bien, si on fait ça, ça revient à permuter les séries d'abscisses et d'ordonnées, donc à le faire pivoter de 90°  

4. rajouter les légendes et un titre... mais je n'y arrive pas  
clic-droit sur le graphique/Options du graphique/Titres ...  

bonne suite

ccm81 · Answer

Les débuts sont toujours difficiles, ne te fais pas de souci. 
Et puisque j'ai commencé ....

RQ1. tu n'as pas répondu à ma question 1.3 (avec MON fichier ou avec un fichier à toi auquel tu as ajouté le code) ?
On peut se passer des boutons et les remplacer par des raccourcis clavier 
https://www.cjoint.com/?0Cwro228RK3 

RQ1.4. sur excel 2007 je ne sais pas trop où ça se trouve, mais du moment que les macros s'exécutent, ton niveau de sécurité convient

RQ3.
Les axes graduent les données source 
L'axe des abscisse est défini par les ValeursX, et celui des ordonnées par ValeursY
La seule chose qu'on peut faire, c'est mettre l'axe des abscisses en haut ou à n'importe quelle position horizontale, et l'axe des ordonnées à n'importe quelle position verticale
Tes valeurs X sont les "satisfaction" et tes valeursY sont les "occurences", on ne peut rien faire pour les axes, à part permuter les plages de données, ce qui fera pivoter ton graphique

ludovodul · Answer

Merci pour ta compréhension ....

RQ1. Je me suis servi de ton fichier. Ok pour les raccourcis clavier, ça fonctionne bien !

RQ3. 
C'est exactement ce que je veux ;-)
Avoir "occurence" à l'horizontal et "satisfaction" à la verticale ...
Pour le moment, je n'ai pas encore réussi, mais je m'accroche !

ccm81 · Answer

bonjour 

- il te suffisait d'intervertir les plages dans les données source 
- pour faire plus logique et plus lisible, j'ai fait quelques modifications  
1. j'ai défini plageSat la plage "satisfaction" et plageOcc la plage "occurences" 
2. j'ai redéfini les données sources du graphique (comme RQ3) 
valeursX ='graphique_kpam_07-3.xls'!plageOcc 
valeursY ='graphique_kpam_07-3.xls'!plageSat 
3. supprimé les plagesSatX et plageSatY 

https://www.cjoint.com/?0CxjeGfZVbU  

RQ. si tu dois (encore) intervertir, ce sera plus facile, il te suffira d'intervenir dans les données source en changeant les noms des plages

ludovodul · Answer

Merci ! C'est top ! vraiment !

Ultime question ; la valeur -4,76 se balade dans le graphique ... Je pense qu'elle n'est pas reliée correctement à l'étiquette Accord/Desaccord.
Comment puis-je modifier cela? (en dehors de le faire à la main bien sûr). 
Est-ce que je peux effacer la ligne et en recréer une, ou tu me conseilles autre chose? 

Bonne journée

Ludo

ccm81 · Answer

je ne vois pas où est le pb, le point "accord/Désaccord" (1.95 ; -4.76) est au bon endroit avec son étiquette à sa droite ( à moins que tu ne l'aies déplacé !!!) 

au passage, toutes ces étiquettes ne rendent pas très lisible ton graphique, ne serait il pas intéresant de n'afficher que des étiquettes "sélectionnées" ?

ccm81 · Answer

un bricolage vite fait 
https://www.cjoint.com/?0CxkN3tYRdH

ludovodul · Answer

Bon, je ne sais pas si les grands esprits se rencontrent mais j'ai l'impression qu'il doit y avoir un peu de ça ;-) !

Comme le résultat de toutes les données est assez "brouillon", comme tu l'as souligné, je pensais à une autre manière :
- Pourvoir sélectionner 10 ou 20 sujet principaux qui seront traités avec les caractéristiques "émotionnel" et "satisfaction" du code.
- Et laisser les autres étiquettes noir, ou blanche on s'en fiche, mais disons sans code (ni couleur, ni taille spécifique). 

Tu penses que c'est possible? 
Comme mon client ne veut pas voir les points (dans le rendu final) mais seulement les étiquettes; ( https://www.cjoint.com/?BCxl1z0yL4o  ) Je ne peux agir que sur ces dernières !

Je pense que le résultat sera surement bien meilleur!
Est-ce que c'est compliquer de demander au code cette sélection? 
Un peu à la manière de ce que faisait "utilité" avant finalement....

Je vais essayer de voir si je m'en sors en reproduisant la technique d'utilité... 
Mais par contre, je me demande dans quelle mesure ça les autres étiquettes resteront "normales"???????

ccm81 · Answer

1. à première vue, tu as ajoutés des If ... then
et tu n'a pas les End If correspondants
quand tu mets ton code dans un post, tu le sélectionnes et tu lui applique l'outil Code (à droite de B I S en haut du post), on y verra plus clair
d'une manière générale,
- il te faut indenter tes blocs de code
- quand tu écris un If  ... then, tu valides deux fois et tu écrit le End If au même niveau, puis tu remplis le bloc
- idem pour les for ... next, while ... wend, with ... end with etc ...
2. les messages d'erreurs du compilateur VBA ne sont pas un modèle du genre
3. pour les pp plus grandes valeurs, ce n'est plus la fonction Small mais la fonction Large qu'il te faut utiliser
4. As tu essayé mon dernier envoi (la case à cocher) et surtout est ce que ça a marché
5. as tu défini les tâches à réaliser (pour faire bref, sais tu exactement ce que tu veux faire?)

bon courage

ccm81 · Answer

Une question bête, est ce que tu disposes de la Boite à outils controles (Active X) 
Affichage/Barres d'outils/Boite à outils contrôles? 

peux tu répondre vite?

ccm81 · Answer

bonjour

j'ai lancé un appel concernant notre problème de boutons inactifs, apparemment c'est un problème lié à l'OS du Mac (les controles activeX de Windows n'existeraient pas sur le Mac)
est ce que ceci 
1. fonctionne mieux
2. correspond à ce que tu veux
https://www.cjoint.com/?0CyljF2OjXE
toutes les macros sont dans le Module 1

bonne suite

ludovodul · Answer

C'est juste GÉNIAL !!!!!
Tu es un artiste ... C'est excellent ! 

ça m'a l'air juste PARFAIT !!
Je ne sais tellement pas comment te remercier ... D'autant que je ne t'aie pas aidé du tout ...

Bon, je commence une formation développeur logiciel le 2 avril ... J'espère vraiment pouvoir un jour te rendre l'appareil par le forum !

A bientôt

Ludo

ludovodul · Answer

Oups .... Je viens de réagir qu'avec ce système, on ne voit pas les autres mots par défaut !!!!!
ça sélectionne en fonction des critères ... mais étiquettes qui n'entrent pas dans la sélection disparaissent ....


Penses-tu qu'il y ai un moyen de les voir quand même?????

https://www.cjoint.com/?BCysdZ9g7KD  

Merci !

ccm81 · Answer

De rien 
et voilà une bonne chose de faite, le problème était intéressant ....
RQ1. fais attention à la syntaxe si tu dois modifier la définition des données sources,
en cas de pépin, tu peux toujours sélectionner les plages Valeurs X et Valeurs Y "manuellement" (elles seront alors statiques)
RQ2. Peux tu (juste pour ma culture à propos du Mac) me dire si les boutons fonctionnent?

Bon week end et bon courage pour ta formation développeur

ludovodul · Answer

Je reconnais que je ne suis peut-être pas toujours très très claire .... désolé ;-(

- Sur l'implication :agir sur les 20 sujets les + près de 1
Les autres sujets (les plus près de 0 donc): taille de typo par défaut

- Puis, sur l'émotionnel :
N'agir que sur ces mêmes 20 sujets,
Les autres sujets : couleur par défaut 

Tu penses que c'est possible ça??? 

(autrement dit, on a toujours l'ensemble des étiquettes visibles ... On agit juste sur une sélection)

ccm81 · Answer

ce que j'ai compris 
P1. toutes les étiquettes doivent apparaitre avec un formatage (taille-couleur) par défaut ou spécial  
P2. seuls les 20 sujets les plus proches de 1 (Imp) doivent bénéficier d'un formatage spécial(taille-couleur) 

Q1. est ce que le point P2 n'est pas déjà traité avec le bouton +grandes (Imp) puisque les plus proches de 1 sont les plus grands (ils vont de 0 à 1) 

RQ. ça risque de faire beaucoup d'étiquettes sur le graphique,  
je verrai une case à cocher qui afficherait/Effacerait les étiquettes des sujets non sélectionnés 

Qu'en penses tu?

ludovodul · Answer

P1. C'est ça !

P2. Le filtre principal n'est pas l'émotionnel, mais l'implication. 
On agit d'abord sur l'implication (les 20 sujets + près de 1) puis, sur ces 20 sujets on applique les couleurs de l'émotionnel. 

RQ1. Si... Il est même très bien traité, et c'super ! Mon seul problème c'est que toutes les autres étiquettes deviennent alors invisibles ... Alors qu'elles devraient être là (mais blanches, par exemple, et petites)

RàRQ : CARRÉMENT !! ce serait top !
ça permettrait de pouvoir ajuster en fonction des études .... 

Merci ;-) !!!

ccm81 · Answer

P2. oui j'avais vu (et corrigé sur le post) mais ça n'a pas d'importance puisque la sélection est liée aux boutons radio
RQ1. j'ai ajouté une case à cocher et modifié légèrement le code de AjouteEtiquettes. A toi de voir pour les constantes de taille/couleur de la police
est ce que ceci correspond ?
https://www.cjoint.com/?0CzktVb49Vx

PS. si tu veux ajouter la cafetière n'hésites pas!

bon dimanche

VB gestion taille et couleur de label HELP!

43 réponses

Discussions similaires

Newsletters