Sujet Précédent Sujet Suivant

[Excel] créer graphique avec variables

Résolu/Fermé
LeTom46 Messages postés 30 Date d'inscription mardi 7 mars 2006 Statut Membre Dernière intervention 15 mai 2008 - 30 janv. 2008 à 10:26
LeTom46 Messages postés 30 Date d'inscription mardi 7 mars 2006 Statut Membre Dernière intervention 15 mai 2008 - 30 janv. 2008 à 11:39
Bonjour,
J'aimerai passer la taille de mon graphique en paramètre.
Je déclare la variable ligne comme string et ensuite j'utilise cette variable pour faire des graphiques ou tableau, seulement je ne sais pas comment passer ligne en variable par la suite.

Voici un exemple ou j'aimerai utiliser ligne :

Sub tab_antivirus()
'derniere ligne pleine'
Dim ligne As String
ligne = "R1C3"

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
"antivirus!R1C2:ligne").CreatePivotTable TableDestination:="", TableName:= _
"Tableau croisé dynamique4", DefaultVersion:=xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.Name = "Tab Antivirus"
ActiveSheet.Move after:=Worksheets(Worksheets.Count)
End Sub

Si quelqu'un peut m'aider ça serait vraiment simpa...

Merci d'avance

Sportivement
Tom
A voir également:

1 réponse

Réponse 1 / 1
LeTom46 Messages postés 30 Date d'inscription mardi 7 mars 2006 Statut Membre Dernière intervention 15 mai 2008
30 janv. 2008 à 11:39
Bon j'ai trouvé une solution de secours, bon c'est pas très beau mais ça marche, donc je la poste si quelqu'un aurait le même problême :

Sub tab_os_service_pack()


Dim Address As String
Dim ligne As String
ligne = ActiveSheet.UsedRange.Rows.Count
Address = "os_service_pack!R1C1:R" & ligne & "C4"

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
salut).CreatePivotTable TableDestination:="", _
TableName:="Tableau croisé dynamique9", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.Name = "Tab_os_service_pack"
ActiveSheet.Move after:=Worksheets(Worksheets.Count)
End Sub


Si vous ne comprenez pas n'hésitez pas
0