problème pour compter

lindakind89

XLDnaute Nouveau
Bonjour le forum,
j'ai deux fichiers excel l'un contenant la macro et l'autre un tableau variable où je souhaiterais faire des graphiques avec. Pour cette partie on m'a déjà aidé pour les problèmes que j'ai eu sauf que j'aimerais mettre des conditions sur les graphiques (type de graphe principalement). Le type de graphe se ferait selon le nombre de données dans une même colonne mais je n'arrive pas à avoir cette valeur là.
En gras c'est ma boucle pour savoir le nombre de données par colonne.
voici mon code :

Option Explicit
Sub Workbook_Open()
Dim Wbk As Workbook, Cht As Chart, RngTit As Range, RngDon As Range, _
ColDate As Long, Col As Long, Sér As Series, ligne As Double, cels As Double, c As Double
For Each Wbk In Application.Workbooks
If Wbk.Name <> ThisWorkbook.Name Then Exit For
Next Wbk
Set RngDon = Wbk.Worksheets(1).UsedRange
For ColDate = 1 To RngDon.Columns.Count
If IsDate(RngDon(2, ColDate).Value) Then Exit For
Next ColDate
If ColDate > RngDon.Columns.Count Then
ColDate = 1
End If
Set RngTit = RngDon.Rows(1)
Set RngDon = RngDon.Rows(2).Resize(RngDon.Rows.Count - 1)
Wbk.Worksheets(1).Activate
ligne = Application.WorksheetFunction.CountA(Columns(1))
For Col = 1 To RngTit.Columns.Count
If Col <> ColDate Then
Set Cht = Wbk.Charts.Add
Set Sér = Cht.SeriesCollection.NewSeries
Sér.Name = RngTit.Columns(Col)
Sér.XValues = RngDon.Columns(ColDate)
Sér.Values = RngDon.Columns(Col)
cels = O
For c = 2 To ligne
If Cells(c, Col) <> "" Then
cels = cels + 1
End If
Next c

If cels > 10 Then
Cht.ChartType = xlLine
End If
If cels > 6 Then
Cht.ChartType = xlPie
End If
End If
Next Col
End Sub
 

Discussions similaires


Haut Bas