vba excell , histogramme

vba excell , histogramme - VB/VBA/VBS - Programmation

Marsh Posté le 13-10-2005 à 15:47:21    

Salut , je suis face a un probleme que voici :  
 
Je voudrai afficher le contenu d'un tableau vba sous excell.  
Hors la méthode d'aquisition est :  

Code :
  1. ActiveChart.SetSourceData Source:=Sheets("Feuil1" ).Range("A5:H5" ), PlotBy:= _
  2.         xlRows


 
Le range prends donc dans cet exemple les cellules de A5 à H5 . Il faut qu'a la place du range , il prenne dans un tableau déclaré comme cela :

Code :
  1. Option Base 1
  2. Dim Tb(26) As Integer


 
Merci !

Reply

Marsh Posté le 13-10-2005 à 15:47:21   

Reply

Marsh Posté le 13-10-2005 à 18:52:49    

Je crains que tu ne sois obligé de copier le contenu du tableau dans les cellules :

'A5 = première valeur du tableau
cells(5,1).value = Tb(1)
 
'B5 = deuxième valeur du tableau
cells(5,2).value = Tb(2)
...


Message édité par olivthill le 13-10-2005 à 18:53:46
Reply

Marsh Posté le 14-10-2005 à 11:35:37    

Je ne sais pas si ma méthode fonctionne avec un tabelau typé autrement qu'en variant, mais la voici :
 

Dim rPlage As Range
Dim Tb() As Variant  
Dim oFeuille as Object
 
Set oFeuille = ActiveWorkbook.ActiveSheet
 
Set rPlage = oFeuille.Range(oFeuille.Cells(24, 1), oFeuille.Cells(73, 12))  
rPlage.Value = Tb
 


 
Pas besoin de boucler sur les cellules
Il te reste à adapter les valeurs à tes besoins

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed