[Excel] créer graphique avec variables

Résolu
LeTom46 Messages postés 30 Statut Membre -  
LeTom46 Messages postés 30 Statut Membre -
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 Statut Membre
 
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