VBA - graph variable selon selection
Résolu/Fermé
Pyvoudelet
Messages postés
166
Date d'inscription
jeudi 11 février 2010
Statut
Membre
Dernière intervention
18 mai 2020
-
7 mai 2011 à 21:21
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 - 10 mai 2011 à 22:15
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 - 10 mai 2011 à 22:15
A voir également:
- VBA - graph variable selon selection
- Outil selection illustrator ne fonctionne pas ✓ - Forum Illustrator
- Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
- L'indice n'appartient pas à la sélection vba ✓ - Forum VB / VBA
- Inverser selection excel - Forum Excel
- Erreur 1004 vba ✓ - Forum VB / VBA
9 réponses
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
9 mai 2011 à 20:58
9 mai 2011 à 20:58
bonsoir,
peux tu envoyer ton fichier au format excel 2003
bonne suite
peux tu envoyer ton fichier au format excel 2003
bonne suite
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
9 mai 2011 à 21:44
9 mai 2011 à 21:44
Bonjour Pyvoudelet,
Petite question, est-ce que les catégorie se suivent ou il peut y avoir des saut ( votre exemple de 1,2,3,4 et 5 ou 1,2,3,7, 10) ?
Petite question, est-ce que les catégorie se suivent ou il peut y avoir des saut ( votre exemple de 1,2,3,4 et 5 ou 1,2,3,7, 10) ?
Pyvoudelet
Messages postés
166
Date d'inscription
jeudi 11 février 2010
Statut
Membre
Dernière intervention
18 mai 2020
12
9 mai 2011 à 22:03
9 mai 2011 à 22:03
Bonjour,
Merci Le Pingou de l avoir transformé en 2003.
Pour répondre à ta question, oui il peut y avoir des sauts, justement(!), et l'utilisateur n'est pas obligé de sélectionner toutes les catégories, ni dans le bon ordre. C'est pour ça que y a les boutons ADD. En fait je voudrais pouvoir faire un graph avec juste les catégories sélectionnées par l'utilisateur.
MErci de vous pencher sur le cas en tout cas!
Merci Le Pingou de l avoir transformé en 2003.
Pour répondre à ta question, oui il peut y avoir des sauts, justement(!), et l'utilisateur n'est pas obligé de sélectionner toutes les catégories, ni dans le bon ordre. C'est pour ça que y a les boutons ADD. En fait je voudrais pouvoir faire un graph avec juste les catégories sélectionnées par l'utilisateur.
MErci de vous pencher sur le cas en tout cas!
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
9 mai 2011 à 22:19
9 mai 2011 à 22:19
Bonsoir,
Merci pour l'information.
J'ai une petite idée... patience.
Merci pour l'information.
J'ai une petite idée... patience.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
10 mai 2011 à 09:11
10 mai 2011 à 09:11
Bonjour,
Ma proposition : https://www.cjoint.com/?3EkjkSBBVvg
Ma proposition : https://www.cjoint.com/?3EkjkSBBVvg
Pyvoudelet
Messages postés
166
Date d'inscription
jeudi 11 février 2010
Statut
Membre
Dernière intervention
18 mai 2020
12
10 mai 2011 à 19:23
10 mai 2011 à 19:23
Merci beaucoup!! C'est tout à fait ce que je voulais!!! t'es un As!
Pyvoudelet
Messages postés
166
Date d'inscription
jeudi 11 février 2010
Statut
Membre
Dernière intervention
18 mai 2020
12
10 mai 2011 à 19:33
10 mai 2011 à 19:33
en fait j'essaye de l'adapter, pour pouvoir mettre le tableau de données de base sur une autres feuille (je sais, j aurais du le dire plus tôt!!...).
j'ai essayé de juste changer les ref de Sheets() mais avec le bloc with, je suis un peu perdu....
je comprend s pas tout le fonctionnement ( notamment les fonction match) mais en tout cas ça fait l effet désiré!
j'ai essayé de juste changer les ref de Sheets() mais avec le bloc with, je suis un peu perdu....
je comprend s pas tout le fonctionnement ( notamment les fonction match) mais en tout cas ça fait l effet désiré!
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
Modifié par Le Pingou le 10/05/2011 à 21:51
Modifié par Le Pingou le 10/05/2011 à 21:51
Bonjour,
Merci pour le message.
Faites moi savoir se qui ne marche pas .....
Sur quoi voulez-vous une explication ?
Sur quelle feuille se trouve:
1.- la plage de données ?
2.- Les 2 listes déroulantes ?
3.- la liste des catégories ?
4.- Le graphique ?
Salutations.
Le Pingou
Merci pour le message.
Faites moi savoir se qui ne marche pas .....
Sur quoi voulez-vous une explication ?
Sur quelle feuille se trouve:
1.- la plage de données ?
2.- Les 2 listes déroulantes ?
3.- la liste des catégories ?
4.- Le graphique ?
Salutations.
Le Pingou
Pyvoudelet
Messages postés
166
Date d'inscription
jeudi 11 février 2010
Statut
Membre
Dernière intervention
18 mai 2020
12
10 mai 2011 à 22:01
10 mai 2011 à 22:01
Finalement, j'ai réussi, en supprimant totalement le bloc with, et en ajoutant a chaque fois la référence de la feuille concernée. ça à l'air de bien fonctionner ainsi. cela me donne ceci:
Sub MonGraphRad()
Dim ad1, ad2, mescat, nomcat
Dim plage As String
Dim c As Long, nbcat As Long, nuco
plage = "$A$3:$A$6"
Application.ScreenUpdating = False
mescat = Application.Transpose(Sheets("Feuil1").Range("listcate").Value)
nbcat = Sheets("Feuil1").Range("listcate").Count
For c = 1 To nbcat
If nbcat = 1 Then
nuco = WorksheetFunction.Match(mescat, Sheets("Feuil2").Rows(3), 0)
Else
nuco = WorksheetFunction.Match(mescat(c), Sheets("Feuil2").Rows(3), 0)
End If
Set nomcat = Sheets("Feuil2").Cells(3, nuco)
ad1 = nomcat.Address
ad2 = WorksheetFunction.Substitute(ad1, 3, 6)
plage = plage & "," & ad1 & ":" & ad2
Next
Sheets("Feuil1").ChartObjects("Graphique 1").Activate
ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(plage)
Application.ScreenUpdating = True
Range("a1").Select
End Sub
MErci encore pour vos conseils.
Sub MonGraphRad()
Dim ad1, ad2, mescat, nomcat
Dim plage As String
Dim c As Long, nbcat As Long, nuco
plage = "$A$3:$A$6"
Application.ScreenUpdating = False
mescat = Application.Transpose(Sheets("Feuil1").Range("listcate").Value)
nbcat = Sheets("Feuil1").Range("listcate").Count
For c = 1 To nbcat
If nbcat = 1 Then
nuco = WorksheetFunction.Match(mescat, Sheets("Feuil2").Rows(3), 0)
Else
nuco = WorksheetFunction.Match(mescat(c), Sheets("Feuil2").Rows(3), 0)
End If
Set nomcat = Sheets("Feuil2").Cells(3, nuco)
ad1 = nomcat.Address
ad2 = WorksheetFunction.Substitute(ad1, 3, 6)
plage = plage & "," & ad1 & ":" & ad2
Next
Sheets("Feuil1").ChartObjects("Graphique 1").Activate
ActiveChart.SetSourceData Source:=Sheets("Feuil2").Range(plage)
Application.ScreenUpdating = True
Range("a1").Select
End Sub
MErci encore pour vos conseils.
Le Pingou
Messages postés
12042
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
24 avril 2024
1 426
10 mai 2011 à 22:15
10 mai 2011 à 22:15
Bonjour,
Merci pour l'information.
C'est une autre manière d'écriture de code, le principal est que cela fonctionne.
Salutations.
Le Pingou
Merci pour l'information.
C'est une autre manière d'écriture de code, le principal est que cela fonctionne.
Salutations.
Le Pingou
9 mai 2011 à 21:28
Le voici en 2003 : https://www.cjoint.com/?3EjvCqJkLFv
Bonne suite.