Erreur : Application Defined Error - Or object definied error

[nonolegolfeur]

Je n'arrive pas à comprendre d'ou vient cette erreur !!!! Pour une fois que j'écris tout le code tout seul ca fonctionne pas !!

Private Sub CommandButton1_Click()
 
Dim i As Integer
Dim r1, r2, ranges As Range
Dim DebutX As Integer
Dim FinX As Integer
Dim j As Integer
Dim k As Integer
 
'Definition du i 
 
  If Cbo_device.Value = "a" Then
        i = 2
    ElseIf Cbo_device.Value = "b" Then
        i = 3
    ElseIf Cbo_device.Value = "c" Then
        i = 4
    ElseIf Cbo_device.Value = "d" Then
        i = 5
    ElseIf Cbo_device.Value = "e" Then
        i = 6
    ElseIf Cbo_device.Value = "f" Then
        i = 7
  End If
 
' Tentative de trouver le numéro de la collone correspondant
' correspondant à la selection dans une combobox, cette partie du code ne
' fonctionne pas               
 
For j = 2 To 256
 If j.value = cbo_debut.Value Then
    ActiveCell.Columns = DebutX
    End If
    Next j
 
For k = 2 To 256
 If k.value = cbo_fin.Value Then
    ActiveCell.Columns = FinX
    End If
    Next
 
'Definition des plages pour le graph       
Set r1 = Sheets("Data").Range(Cells(1, DebutX), Cells(1, FinX))
Set r2 = Sheets("Data").Range(Cells(i, DebutX), Cells(i, FinX))
Set ranges = Union(r1, r2)
 
    Charts.Add
    ActiveChart.ChartType = xlLineMarkers
    ActiveChart.SetSourceData Source:=ranges, PlotBy:= _
        xlRows
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Graph Alliance"
    With ActiveChart
        .HasAxis(xlCategory, xlPrimary) = True
        .HasAxis(xlValue, xlPrimary) = True
    End With
    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic
    ActiveChart.ApplyDataLabels Type:=xlDataLabelsShowValue, LegendKey:=False
 
End Sub

Tout fonctionne à part la partie ou je tente de trouver le numéro de la collone...

Merci d'avance si qq à une idée !
++ Arnaud

 

[Hervé]

Re : Erreur : Application Defined Error - Or object definied error

bonjour arnaud

tes variables debutX et finX renvoient 0, ce qui fait bugger le code ensuite ici :
Cells(1, DebutX)

tu as inversé les termes là : ActiveCell.Columns = DebutX

avec cette syntaxe tu ne stockes pas le numéro de colonne dans la variable debutX.

de plus tes boucles for to ne sont pas bonnes puisque tu n'incrementes pas ta cellule à l'interieur de ta boucle.

correction :

For j = 2 To 256
 If Cells(1, j).Value = cbo_debut.Value Then
    DebutX = j
    End If
    Next j

For k = 2 To 256
 If Cells(1, k).Value = cbo_fin.Value Then
    FinX = k
    End If
    Next

tu n'est pas obligé de boucler sur les 256 colonnes, mais seulement sur celles non vides.

salut

 

[nonolegolfeur]

Re : Erreur : Application Defined Error - Or object definied error

Hervé,

Génial !!!!!!!!!!!!!!!! Merci Milles fois...

Ca y est enfin ma macro graph fonctionne !!!!! Encore une fois je fais tout le code est une tout petite Erreur ma bloquée....

Tu as raison, je vais executer ma boucle que sur les cellules pleines !!!

Merci encore @+

 

[nonolegolfeur]

Re : Erreur : Application Defined Error - Or object definied error

En parlant d'executer mes boucle sur des cellules pleines .... Ca marche pas mal chez moi j'utilise :

For X = 2 To 256
    If Cells(1, X).Value = "" Then
        Else
            cbo_debut.AddItem Format(Sheets("Data").Cells(1, X), "mm/dd/yyyy")
        End If
      Next X

Sinon ma variable qui marche super bien avec des valeurs ne fonctionne plus avec des dates, j'ai essayé d'utiliser DateValue mais rien....

Je dois le rendre ce soir, je ne sais vraiment pas comment faire !

@+

Arnaud