Aller chercher des indices dans une case
Résolu
gerard
-
gerard -
gerard -
Bonjour,
Sous Excel, je souhaiterai aller chercher une référence dans une case pour l'intégrer dans la formule que définit la zone de données d'un graphique.
Le cas concret est:
Données sources du graphique, dans la feuille "Evolution':
='Evolution'!$B$1:$W$3
J'amerais automatiser cette formule pour qu'en mettant par exemple le chiffre 4 dans la case A1 de la feuille 'Evolution', la formule
='Evolution'!$B$1:$W$fonction(va chercher la valeur en 'Evolution'!A1)
soit comprise dans le champ du graphique comme étant
='Evolution'!$B$1:$W$4
Merci d'avance !
Sous Excel, je souhaiterai aller chercher une référence dans une case pour l'intégrer dans la formule que définit la zone de données d'un graphique.
Le cas concret est:
Données sources du graphique, dans la feuille "Evolution':
='Evolution'!$B$1:$W$3
J'amerais automatiser cette formule pour qu'en mettant par exemple le chiffre 4 dans la case A1 de la feuille 'Evolution', la formule
='Evolution'!$B$1:$W$fonction(va chercher la valeur en 'Evolution'!A1)
soit comprise dans le champ du graphique comme étant
='Evolution'!$B$1:$W$4
Merci d'avance !
A voir également:
- Aller chercher des indices dans une case
- Aller à la ligne dans une case excel - Guide
- Excel case choix multiple - Guide
- Comment cocher une case sur word - Forum LibreOffice / OpenOffice
- Insérer une case à cocher dans word - Forum Word
- Case à cocher word ne fonctionne pas ✓ - Forum Word
6 réponses
Je ne sais pas si ma question a été très claire. En gros, dans l'exemple précédent, j'aimerais simplement que le nombre 3 à la fin de la formule
='Evolution'!$B$1:$W$3
puisse être allé cherché dans une case, et être ainsi modifiable automatiquement.
Merci
='Evolution'!$B$1:$W$3
puisse être allé cherché dans une case, et être ainsi modifiable automatiquement.
Merci
Merci beaucoup pour la réponse !
Petite question subsidiaire: si la case qui contient l'info n'est pas dans Feuil1, quelle manip doit être faite ? J'ai essayé quelque chose, mais il n'a pas l'air d'apprécier...
Petite question subsidiaire: si la case qui contient l'info n'est pas dans Feuil1, quelle manip doit être faite ? J'ai essayé quelque chose, mais il n'a pas l'air d'apprécier...
Pas de problème, tu change la ligne..
par..
Mais regarde la macro j'ai fait un changement entretemps.
EDIT:
Mais alors pour éviter les erreurs il faut aussi changer cette ligne de la même facon..
par
Ad = "='Evolution'!$B$1:$W$" & FL1.Range("A1")
par..
Ad = "='Evolution'!$B$1:$W$" & Sheets("LeNomDeLaFeuille").Range("A1")
Mais regarde la macro j'ai fait un changement entretemps.
EDIT:
Mais alors pour éviter les erreurs il faut aussi changer cette ligne de la même facon..
If FL1.Range("A1").value < 1 then exit Function
par
If Sheets("LeNomDeLaFeuille").Range("A1").value < 1 then exit Function
Apparemment le fait que Feuil1 ne soit pas une véritable feuille mais un graphique (Graph1), la ligne
Set FL1 = Worksheets("Graph1")
ne veut pas compiler et renvoie l'erreur "L'indice n'appartient pas à la sélection"
Set FL1 = Worksheets("Graph1")
ne veut pas compiler et renvoie l'erreur "L'indice n'appartient pas à la sélection"
Wouahhh, ca t'a pas dit que c'était une feuille graph..
Je refais la macro et.. Minute
Ou Plutôt dit-moi..
Le nom de la feuille Graph
Le nom de la feuille où sont les données du graph
Le nom de la feuille où tu prend A1
Comme ca je pourais la faire directement fonctionnelle.
Je refais la macro et.. Minute
Ou Plutôt dit-moi..
Le nom de la feuille Graph
Le nom de la feuille où sont les données du graph
Le nom de la feuille où tu prend A1
Comme ca je pourais la faire directement fonctionnelle.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bon, je vais au dodo, alors voila la macro, adapte le nom des feuilles..
NB: Impossible d'activer la feuille graph dans cette macro, faut donc clic sur l'onglet pour la voire.
A+
Sub MyMacroPlage()
Dim Ad As String
Dim Lig As Integer
Application.Volatile
Lig = Sheets("Feuil1").Range("A1")
Ad = "='Evolution'!$B$1:$W$" & Lig
Sheets("Graph1").SetSourceData Source:=Range(Ad)
End Sub
NB: Impossible d'activer la feuille graph dans cette macro, faut donc clic sur l'onglet pour la voire.
A+
Tu colle la macro ci-dessous dans un module (VBA).. Alt+F11
Function MyMacroPlage() Dim FL1 As Worksheet Dim Ad As String Application.Volatile Set FL1 = Worksheets("Feuil1") If FL1.Range("A1").value < 1 then exit Function Ad = "='Evolution'!$B$1:$W$" & FL1.Range("A1") ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Activate ActiveChart.SetSourceData Source:=Range(Ad) FL1.Range("A1").Select End FunctionChanger Feuil1 par le nom de la feuille où est le graph.
Set FL1 = Worksheets("Feuil1")
Retour dans Excell..
Dans la cellule A2 tu met
=MyMacroPlage()
ensuite tu tape le nombre que tu veux dans A1
Si pas de modif tu tape F9
A+