VB gestion taille et couleur de label HELP!
Résolu
ludovodul
Messages postés
38
Date d'inscription
Statut
Membre
Dernière intervention
-
ludovodul Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
ludovodul Messages postés 38 Date d'inscription Statut Membre Dernière intervention -
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 !
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 !
A voir également:
- VB gestion taille et couleur de label HELP!
- Comment réduire la taille d'un fichier - Guide
- Excel cellule couleur si condition texte - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Vb - Télécharger - Langages
- Logiciel gestion locative gratuit excel - Télécharger - Comptabilité & Facturation
43 réponses
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
bonne fin de journée
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
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
Bonjour ccm81,
Merci pour ta réponse rapide.
Je ne comprends pas vraiment...
Voilà comme je fais, peux-tu me dire là où ça cloche ;
- Je sélectionne les nombres des colonnes Occurences et satisfaction
- Je vais dans insertion/nom/définir
- Je clique sur plageSatX - qui fait réf. à : =DECALER('mission mapping'!$C$7;0;0;NBVAL('mission mapping'!$C$7:$C$102);1)
- Je clique sur ajouter / ok
- Je vais dans graphique / nuage de points ....
Et là, je me retrouve avec mon graphique comme avant ... Le points sont bien placés mais les étiquettes ne correspondent pas (il y a écrit "Série 1" sur chacune des étiquettes !!!)
https://www.cjoint.com/?BCwlF6zobLg
??
Merci pour ta réponse rapide.
Je ne comprends pas vraiment...
Voilà comme je fais, peux-tu me dire là où ça cloche ;
- Je sélectionne les nombres des colonnes Occurences et satisfaction
- Je vais dans insertion/nom/définir
- Je clique sur plageSatX - qui fait réf. à : =DECALER('mission mapping'!$C$7;0;0;NBVAL('mission mapping'!$C$7:$C$102);1)
- Je clique sur ajouter / ok
- Je vais dans graphique / nuage de points ....
Et là, je me retrouve avec mon graphique comme avant ... Le points sont bien placés mais les étiquettes ne correspondent pas (il y a écrit "Série 1" sur chacune des étiquettes !!!)
https://www.cjoint.com/?BCwlF6zobLg
??
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
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
Tu as quelle version de Xcel? J'aimerai pouvoir t'envoyer le fichier...
Je ne sais pas quel format tu avais pu récupérer
https://www.cjoint.com/?BCwooX8gj5q
Sinon, voilà une copie d'écran
https://www.cjoint.com/?BCwopRDMlOe
Peut-être préférerais-tu que l'on s'appelle??
Si oui, je peux te passe mon n° de tél. (en écrivant un message que j'efface aussitôt)
Et voilà le code (j'ai retiré ce qui concerne Utilité).
Option Explicit
Const plageEmo = "PlageEmo"
Const plageImp = "PlageImp"
Const plageEti = "PlageEti"
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
' etiquette
For nupt = 1 To nbpts
i = ActiveSheet.Range(plageEti).Cells(nupt, 1).Value
With Gr.SeriesCollection(1).Points(nupt).DataLabel
.Characters.Text = i
End With
Next nupt
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
' bleu
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)
' 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
Je ne sais pas quel format tu avais pu récupérer
https://www.cjoint.com/?BCwooX8gj5q
Sinon, voilà une copie d'écran
https://www.cjoint.com/?BCwopRDMlOe
Peut-être préférerais-tu que l'on s'appelle??
Si oui, je peux te passe mon n° de tél. (en écrivant un message que j'efface aussitôt)
Et voilà le code (j'ai retiré ce qui concerne Utilité).
Option Explicit
Const plageEmo = "PlageEmo"
Const plageImp = "PlageImp"
Const plageEti = "PlageEti"
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
' etiquette
For nupt = 1 To nbpts
i = ActiveSheet.Range(plageEti).Cells(nupt, 1).Value
With Gr.SeriesCollection(1).Points(nupt).DataLabel
.Characters.Text = i
End With
Next nupt
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
' bleu
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)
' 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
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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 !!!
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 !!!
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
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
RQ1 : il faut croire que jusqu'à maintenant les boutons ne fonctionnaient pas ;-( ... Pour utiliser la macro, j'appuie sur le bouton "lecture " (Exécuter Sub / userform) de Visual Basic.
RQ1.4 : Je n'ai pas cette fonction ??: https://www.cjoint.com/?BCwp3cJdUqC
RQ2.2 : comme quand j'appuie sur le bouton il ne se passe rien, j'ai suivi ton conseil et j'ai enlevé manuellement les "gras" et "souligner".
RQ3 : Oui, c'est ça !
Ce qui me posé problème avant ce n'était pas le sens des axes mais la répartition des points dans le graphique qui ne correspondait pas aux valeurs du tableau. Là, maintenant, la disposition est bonne, elle suit bien les valeurs. Par contre, j'aimerai retrouver les axes d'avant ....
Je suis vraiment désolé si je ne suis pas claire dans mes explications ... Je suis tout à fait conscient du temps que tu y passes et de l'aide infiniment précieuse que tu m'apportes...
RQ4 : C bon ! merci ... J'ai retrouvé le bouton !
RQ1.4 : Je n'ai pas cette fonction ??: https://www.cjoint.com/?BCwp3cJdUqC
RQ2.2 : comme quand j'appuie sur le bouton il ne se passe rien, j'ai suivi ton conseil et j'ai enlevé manuellement les "gras" et "souligner".
RQ3 : Oui, c'est ça !
Ce qui me posé problème avant ce n'était pas le sens des axes mais la répartition des points dans le graphique qui ne correspondait pas aux valeurs du tableau. Là, maintenant, la disposition est bonne, elle suit bien les valeurs. Par contre, j'aimerai retrouver les axes d'avant ....
Je suis vraiment désolé si je ne suis pas claire dans mes explications ... Je suis tout à fait conscient du temps que tu y passes et de l'aide infiniment précieuse que tu m'apportes...
RQ4 : C bon ! merci ... J'ai retrouvé le bouton !
Ccm81,
concernant la transparence des étiquettes, je crois que je tiens une solution ...
En cherchant je suis tombé sur l'attribut .Opacity
' emotionnel
i = ActiveSheet.Range(plageEmo).Cells(nupt, 1).Value
Select Case i
' bleu
Case Is <= 0.1: .Color = RGB(0, 0, 255)
Case Is <= 0.1: .Opacity = 2
Case Is <= 0.2: .Color = RGB(0, 0, 255)
Case Is <= 0.2: .Opacity = 15
Case Is <= 0.3: .Color = RGB(0, 0, 255)
Case Is <= 0.3: .Opacity = 30
Case Is <= 0.4: .Color = RGB(0, 0, 255)
Case Is <= 0.4: .Opacity = 80
Case Is <= 0.5: .Color = RGB(0, 0, 255)
Case Is <= 0.5: .Opacity = 100
Pour l'instant ce n'est pas probant, mais j'imagine que je ne suis pas très loin ... Je te tiens au courant !
concernant la transparence des étiquettes, je crois que je tiens une solution ...
En cherchant je suis tombé sur l'attribut .Opacity
' emotionnel
i = ActiveSheet.Range(plageEmo).Cells(nupt, 1).Value
Select Case i
' bleu
Case Is <= 0.1: .Color = RGB(0, 0, 255)
Case Is <= 0.1: .Opacity = 2
Case Is <= 0.2: .Color = RGB(0, 0, 255)
Case Is <= 0.2: .Opacity = 15
Case Is <= 0.3: .Color = RGB(0, 0, 255)
Case Is <= 0.3: .Opacity = 30
Case Is <= 0.4: .Color = RGB(0, 0, 255)
Case Is <= 0.4: .Opacity = 80
Case Is <= 0.5: .Color = RGB(0, 0, 255)
Case Is <= 0.5: .Opacity = 100
Pour l'instant ce n'est pas probant, mais j'imagine que je ne suis pas très loin ... Je te tiens au courant !
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
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
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 !
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 !
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
- 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
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
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
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" ?
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" ?
Je ne l'ai pas déplacé mais de façon étrange elle apparaît dans le graphique sous la forme "4.76" plutôt que sous le nom de l'étiquette. Et si je lui applique une étiquette différente, elle me propose "série 1" ?????
Je suis tout à fait d'accord avec toi ... mais je pensais que ce ne serait pas possible ... C'est pour cela que je n'en ai même pas parlé ! ;-)
Je suis tout à fait d'accord avec toi ... mais je pensais que ce ne serait pas possible ... C'est pour cela que je n'en ai même pas parlé ! ;-)
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"???????
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"???????
J'ai essayé ce code :
Option Explicit
Const plageEmo = "PlageEmo"
Const plageImp = "PlageImp"
' Const plageUti = "PlageUti"
Const plageEti = "PlageEti"
Const pp = 5 ' pour traitement des pp plus petites valeurs de plageUti
Public Sub AjouteEtiquettes()
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
' etiquettes
i = ActiveSheet.Range(plageEti).Cells(nupt, 1).Value
With Gr.SeriesCollection(1).Points(nupt)
.HasDataLabel = True
.DataLabel.Characters.Text = i
End With
Next nupt
For nupt = 1 To nbpts
With Gr.SeriesCollection(1).Points(nupt).DataLabel.Font
' implication
i = ActiveSheet.Range(plageImp).Cells(nupt, 1).Value
If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageImp), pp) Then
Select Case i
Case Is <= 0.1: .Size = 5
Case Is <= 0.2: .Size = 7
Case Is <= 0.3: .Size = 9
Case Is <= 0.4: .Size = 10
Case Is <= 0.5: .Size = 12
Case Is <= 0.6: .Size = 14
Case Is <= 0.7: .Size = 15
Case Is <= 0.8: .Size = 16
Case Is <= 0.9: .Size = 17
Case Else: .Size = 18
End Select
' emotionnel
i = ActiveSheet.Range(plageEmo).Cells(nupt, 1).Value
If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageEmo), pp) Then
Select Case i
' bleu
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)
' 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
' 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
End With
Next nupt
Set Gr = Nothing
End Sub
Public Sub SupprimeEtiquettes()
Dim Gr
Set Gr = ActiveSheet.ChartObjects(1).Chart
Gr.SeriesCollection(1).HasDataLabels = False
End Sub
Mais il me met l'erreur suivante : Erreur de compilation, End With sans With ...
Mais si je regarde, il y a bien un with???
C'est à ni rien comprendre ....
Du coup, je ne peux pas voir si ça fonctionne??
De toute manière, j'ai peur que ça ne me fasse pas apparaître les valeurs en dehors du champs de pp .... Et si jamais je souhaite les 5 plus grandes valeurs, dois-je remplacer "pp" par "???"....
Option Explicit
Const plageEmo = "PlageEmo"
Const plageImp = "PlageImp"
' Const plageUti = "PlageUti"
Const plageEti = "PlageEti"
Const pp = 5 ' pour traitement des pp plus petites valeurs de plageUti
Public Sub AjouteEtiquettes()
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
' etiquettes
i = ActiveSheet.Range(plageEti).Cells(nupt, 1).Value
With Gr.SeriesCollection(1).Points(nupt)
.HasDataLabel = True
.DataLabel.Characters.Text = i
End With
Next nupt
For nupt = 1 To nbpts
With Gr.SeriesCollection(1).Points(nupt).DataLabel.Font
' implication
i = ActiveSheet.Range(plageImp).Cells(nupt, 1).Value
If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageImp), pp) Then
Select Case i
Case Is <= 0.1: .Size = 5
Case Is <= 0.2: .Size = 7
Case Is <= 0.3: .Size = 9
Case Is <= 0.4: .Size = 10
Case Is <= 0.5: .Size = 12
Case Is <= 0.6: .Size = 14
Case Is <= 0.7: .Size = 15
Case Is <= 0.8: .Size = 16
Case Is <= 0.9: .Size = 17
Case Else: .Size = 18
End Select
' emotionnel
i = ActiveSheet.Range(plageEmo).Cells(nupt, 1).Value
If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageEmo), pp) Then
Select Case i
' bleu
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)
' 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
' 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
End With
Next nupt
Set Gr = Nothing
End Sub
Public Sub SupprimeEtiquettes()
Dim Gr
Set Gr = ActiveSheet.ChartObjects(1).Chart
Gr.SeriesCollection(1).HasDataLabels = False
End Sub
Mais il me met l'erreur suivante : Erreur de compilation, End With sans With ...
Mais si je regarde, il y a bien un with???
C'est à ni rien comprendre ....
Du coup, je ne peux pas voir si ça fonctionne??
De toute manière, j'ai peur que ça ne me fasse pas apparaître les valeurs en dehors du champs de pp .... Et si jamais je souhaite les 5 plus grandes valeurs, dois-je remplacer "pp" par "???"....
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
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
Effectivement, c'était aussi simple que cela ... j'ai honte !
Par contre, j'ai toujours ce problème de With / End With, j'ai beau regarder, je n'ai qu'1 With et je le ferme avec un End With ...
Sur ton dernier envoi, ça fonctionne. Je mets des * dans les cases, et en appuyant sur le bouton lecture (Exécuter sub / user form) de Visual Basic, ça marche !
(par contre, comme pour les boutons avant, je ne peux pas cocher/décocher le "tout" que tu a mis en place... pourquoi? bonne question??? )
Sur les tâches précises, je pensais : me focaliser sur les sujets qui nous intéressent vraiment.
- Sur l'implication :
Agir que sur les 20 (le nb peut varier) sujets les + près de 1
10 (le nb peut varier) sujets - de 1 à 10 : très grosse typo
10 (le nb peut varier) sujets suivants - de 11 à 20 : grosse typo
Les autres sujets (les plus près de 0 donc), de 21 à 63 : taille de typo par défaut
- Puis, sur l'émotionnel :
Agir que sur ces mêmes 20 sujets (le nb peut varier)
Si supérieur ou égal à 0,5 : sujet rouge
Si inférieur à 0,5 : sujet bleu
Les autres sujets : couleur par défaut
Avec ça, ça devrait être beaucoup plus propre ... Mais par contre, ça suppose des liens que je n'arrivent pas à faire (notamment pour faire agir les couleurs d'"émotionnel" que sur les 20 "implications" !) ???
(https://www.cjoint.com/?BCxqnodKFPO )
Option Explicit
Const plageEmo = "PlageEmo"
Const plageImp = "PlageImp"
' Const plageUti = "PlageUti"
Const plageEti = "PlageEti"
Const pp = 5 ' pour traitement des pp plus petites valeurs de plageUti
Public Sub AjouteEtiquettes()
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
' etiquettes
i = ActiveSheet.Range(plageEti).Cells(nupt, 1).Value
With Gr.SeriesCollection(1).Points(nupt)
.HasDataLabel = True
.DataLabel.Characters.Text = i
End With
Next nupt
For nupt = 1 To nbpts
With Gr.SeriesCollection(1).Points(nupt).DataLabel.Font
' implication
i = ActiveSheet.Range(plageImp).Cells(nupt, 1).Value
If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageImp), pp) Then
Select Case i
Case Is <= 0.1: .Size = 5
Case Is <= 0.2: .Size = 7
Case Is <= 0.3: .Size = 9
Case Is <= 0.4: .Size = 10
Case Is <= 0.5: .Size = 12
Case Is <= 0.6: .Size = 14
Case Is <= 0.7: .Size = 15
Case Is <= 0.8: .Size = 16
Case Is <= 0.9: .Size = 17
Case Else: .Size = 18
End Select
' emotionnel
i = ActiveSheet.Range(plageEmo).Cells(nupt, 1).Value
If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageEmo), pp) Then
Select Case i
' bleu
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)
End Select
End If
' rouge
If i <= Application.WorksheetFunction.Large(ActiveSheet.Range(plageEmo), pp) Then
Select Case i
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 If
' 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
End With
Next nupt
Set Gr = Nothing
End Sub
Public Sub SupprimeEtiquettes()
Dim Gr
Set Gr = ActiveSheet.ChartObjects(1).Chart
Gr.SeriesCollection(1).HasDataLabels = False
End Sub
Par contre, j'ai toujours ce problème de With / End With, j'ai beau regarder, je n'ai qu'1 With et je le ferme avec un End With ...
Sur ton dernier envoi, ça fonctionne. Je mets des * dans les cases, et en appuyant sur le bouton lecture (Exécuter sub / user form) de Visual Basic, ça marche !
(par contre, comme pour les boutons avant, je ne peux pas cocher/décocher le "tout" que tu a mis en place... pourquoi? bonne question??? )
Sur les tâches précises, je pensais : me focaliser sur les sujets qui nous intéressent vraiment.
- Sur l'implication :
Agir que sur les 20 (le nb peut varier) sujets les + près de 1
10 (le nb peut varier) sujets - de 1 à 10 : très grosse typo
10 (le nb peut varier) sujets suivants - de 11 à 20 : grosse typo
Les autres sujets (les plus près de 0 donc), de 21 à 63 : taille de typo par défaut
- Puis, sur l'émotionnel :
Agir que sur ces mêmes 20 sujets (le nb peut varier)
Si supérieur ou égal à 0,5 : sujet rouge
Si inférieur à 0,5 : sujet bleu
Les autres sujets : couleur par défaut
Avec ça, ça devrait être beaucoup plus propre ... Mais par contre, ça suppose des liens que je n'arrivent pas à faire (notamment pour faire agir les couleurs d'"émotionnel" que sur les 20 "implications" !) ???
(https://www.cjoint.com/?BCxqnodKFPO )
Option Explicit
Const plageEmo = "PlageEmo"
Const plageImp = "PlageImp"
' Const plageUti = "PlageUti"
Const plageEti = "PlageEti"
Const pp = 5 ' pour traitement des pp plus petites valeurs de plageUti
Public Sub AjouteEtiquettes()
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
' etiquettes
i = ActiveSheet.Range(plageEti).Cells(nupt, 1).Value
With Gr.SeriesCollection(1).Points(nupt)
.HasDataLabel = True
.DataLabel.Characters.Text = i
End With
Next nupt
For nupt = 1 To nbpts
With Gr.SeriesCollection(1).Points(nupt).DataLabel.Font
' implication
i = ActiveSheet.Range(plageImp).Cells(nupt, 1).Value
If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageImp), pp) Then
Select Case i
Case Is <= 0.1: .Size = 5
Case Is <= 0.2: .Size = 7
Case Is <= 0.3: .Size = 9
Case Is <= 0.4: .Size = 10
Case Is <= 0.5: .Size = 12
Case Is <= 0.6: .Size = 14
Case Is <= 0.7: .Size = 15
Case Is <= 0.8: .Size = 16
Case Is <= 0.9: .Size = 17
Case Else: .Size = 18
End Select
' emotionnel
i = ActiveSheet.Range(plageEmo).Cells(nupt, 1).Value
If i <= Application.WorksheetFunction.Small(ActiveSheet.Range(plageEmo), pp) Then
Select Case i
' bleu
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)
End Select
End If
' rouge
If i <= Application.WorksheetFunction.Large(ActiveSheet.Range(plageEmo), pp) Then
Select Case i
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 If
' 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
End With
Next nupt
Set Gr = Nothing
End Sub
Public Sub SupprimeEtiquettes()
Dim Gr
Set Gr = ActiveSheet.ChartObjects(1).Chart
Gr.SeriesCollection(1).HasDataLabels = False
End Sub
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?
Affichage/Barres d'outils/Boite à outils contrôles?
peux tu répondre vite?
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
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
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
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
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 !
ç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 !
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
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
(désolé ... j'imagine que tu n'as pas encore vu mes derniers messages ;;. tu vas me tuer sur place ;-(((
RQ1. Merci pour le conseil .... j'y ferrai attention
RQ2. OUI !! cette fois les boutons marchent !! Bon... Je ne te cache pas que ça bugue un peu (de temps en temps le bouton disparaît par exemple (!)) mais l'essentiel c'est que je puisse les "cocher"... Et ça, ça fonctionne !! Merci !! (tu pourras le remonter aux autres!)
RQ1. Merci pour le conseil .... j'y ferrai attention
RQ2. OUI !! cette fois les boutons marchent !! Bon... Je ne te cache pas que ça bugue un peu (de temps en temps le bouton disparaît par exemple (!)) mais l'essentiel c'est que je puisse les "cocher"... Et ça, ça fonctionne !! Merci !! (tu pourras le remonter aux autres!)
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)
- 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)
J'ai un nouveau challenge, si tu veux m'aider !!!!
J'ai vu mon client avec le graphique hier ... Et j'ai quelques modifications, et quelques colles (tu t'en doutes!)
1_ comment rassembler trois colonnes sur un même point : pour faire claire, dans ma première colonne j'ai les étiquettes (Colonne1), dans la deuxième des nombres qui correspondent à l'ordonnée (Occurence) et dans la troisième des nombres qui correspondent à l'abscisse (Satisfaction).
Quelle manipulation je dois faire pour faire en sorte qu'il n'y ai qu'un point par occurence, avec l'étiquette correspondante et que ce point respecte bien l'abscisse et l'ordonnée des deux autres colonnes??
Par défaut, quand je créé un graphique, ça me fait apparaître 2 points !!!
https://www.cjoint.com/?BCwj025cKVU
On avait réussi avec le tableau sur lequel on travail depuis le début, mais je ne retrouve pas la manipulation... En sélectionnant les trois premières colonnes ça ne marche pas.... Et en sélectionnant les deux "Occurence" et "satisfaction" je n'ai pas les bonnes étiquettes ....
https://www.cjoint.com/?BCwj12Wa1ao
2_ Dans le tableau sur lequel nous avons travaillé les points sont mal placés !!!!! En abscisse, les point sont bons, mais en ordonnée, pas du tout !!! Je n'avais pas fait attention, mais la gradation n'est même pas bonne ... Normalement, tous les points (ou presque) devrait être très proche de l'abscisse .... Or, là, ils sont étendus sur toute la longueur du graphique .... et ça ne correspond pas aux nombres !!!!
https://www.cjoint.com/?BCwj12Wa1ao
https://www.cjoint.com/?0Cwj3wLFtEQ
3_ Je vais, finalement, supprimer "Utilité", et plutôt que de mettre 10 couleurs différentes pour "Emotionnel" je vais jouer sur la transparence. Du plus transparent au plus visible pour le rouge et le bleu.
Connais-tu l'attribut???
J'imagine que c'est .Alpha = 0 ou .Alpha = 100 mais je n'en suis pas sûr .... (c'est sur Photoshop ça !)
Merci d'avance pour ton aide !!!!!!!!
Bonne journée !
Ludo