Application Defined - or Object error

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

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59

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

Elle est sur quelle ligne ton erreur ?

L'erreur est au niveau de la défnition des r1 et r2
et aussi des deux boucle For J... et For k ...

@+

Salut,

Lorsque tu as des erreurs : ce serait pas mal que tu nous les communiques ;)

Code:

---

Dim r1, r2, ranges As Range

---

Ici r1 et r2 sont déclarés comme Variant !!
Si tu veux que ce soit Range il faut :

Code:

---

Dim r1 As Range, r2 As Range, ranges As Range

---

Merci, je pensais que ça équivalais ...

Malheureusement l'erreur reste la même "Application defined...." à la ligne :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

For j = 2 To 256 If ActiveCell.Value = cbo_debut.Value Then ActiveCell.Column = DebutX End If Next j   For k = 2 To 256 If ActiveCell.Value = cbo_fin.Value Then ActiveCell.Column = FinX End If Next   'L'ERREUR EST SUR LES LIGNES SET R1 et SET R2 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)

---

Je pense que

Code:

---

1 2 3 4 5

For j = 2 To 256 If ActiveCell.Value = cbo_debut.Value Then ActiveCell.Column = DebutX End If Next j

---

n'est pas approprié pour trouver le numéro de la collone correspondant à la selection dans ma combobox !

Merci mille fois

Si DebutX sert à stocker le numéro de colonne, tu devrais plutôt écrire :

Code:

---

DebutX = ActiveCell.Column

---

Ou alors tu change ta macro en écrivant :

Code:

---

1 2 3 4 5 6

For j = 2 To 256 If ActiveCell.Value = cbo_debut.Value Then debutx = j exit for End If Next j

---

je pense que ça marchera aussi :)

t'a mis des msgbox pour voir si tu avais les bonnes valeurs dans tes variables ?

bonjour

je ne vois pas comment ta boucle evolue

Code:

---

1 2 3 4

For j = 2 To 256 If ActiveCell.Value = cbo_debut.Value Then 'la cellule active est toujours la meme quelque soit j ActiveCell.Column = DebutX End If Next j

---

essaye plutot

Code:

---

1 2 3 4

for j = 2 to 256 cells(j,no de colonne).value = cbo_debut.value then debutx = j

---

Citation:

---

Envoyé par patbou

bonjour

je ne vois pas comment ta boucle evolue

Code:

---

1 2 3 4 5

For j = 2 To 256 If ActiveCell.Value = cbo_debut.Value Then ActiveCell.Column = DebutX End If Next j

---

---

Et bien si elle évolue... :roll:

Code:

---

1 2 3 4 5

Pour j = 2 jusqu'à 256 Si cellule active = cbo_debut alors DebutX = Colonne de la cellule active Fin si J suivant c'est à dire j = j + 1

---

Il y a bien incrémentation

Citation:

---

essaye plutot

Code:

---

1 2 3 4

for j = 2 to 256 cells(j,no de colonne).value = cbo_debut.value then debutx = j

---

---

Essaie de compiler ça.... il va t'envoyer bouler sur le Then.
Et le pas il est où ?

Merci,

bravo ça marche bien maintenant, effectivement je me trompais avec activecell.column...

Il fallais donc bien que j'utilise :

Code:

---

1 2 3 4 5

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

---

Et là ça fonctionne !!!

Ma macro fontionne toujours bien avec du texte, mais avec une date ça ne fonctionne plus !!

j'ai pourtant essayer de spécifier le format ou d'utiliser DateValue mais rien y fait toujours cette erreur ... "Application Defined.....

Si qq sais comment ça fonctionne !

MErci et @+++

Arnaud

Montre nous ta macro pour voir comment tu utilise ta fonction datevalue pour voir ou est l'erreur ça sera plus simple a te corriger :)

Utilise effectivement DateValue, regarde aussi du coté de DateSerial, si jamais :)

Merci de cette réponse,

J'insère mes dates dans ma combobox cbo_debut et cbo_fin avec cette boucle :

Code:

---

1 2 3 4 5 6

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

---

Pour la boucle, j'utilise DateValue comme ça :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For j = 2 To 256 If Cells(1, j).DateValue = cbo_debut.DateValue Then DebutX = j End If Next j   For k = 2 To 256 If Cells(1, k).DateValue = cbo_fin.DateValue Then FinX = k End If Next

---

Je pensais pdt un moment que ct dû au format de mon calendrier sur mon ordi qui étais différent d'Excel mais maintenant j'ai tout remis pareil et ça ne change pas !

Merci d'avance ...

Ahhhhhhhhh :aie:

c'est normal que tu ai une erreur :) la fonction date value ne s'utilise pas de cette manière c'est une fonction :

Code:

---

1 2 3 4 5 6 7 8 9 10

For j = 2 To 256 If datevalue(Cells(1, j).value) = datevalue(cbo_debut.Value) Then DebutX = j End If Next j For k = 2 To 256 If datevalue(Cells(1, k).Value) = datevalue(cbo_fin.Value) Then FinX = k End If Next

---

Regarde du coté de ta valeur j et k si tu as la bonne valeur quand meme :) oarce que le problème la c'est que si a 256 il trouve ta date il va prendre la valeur a cette ligne la, alors que c'est peut etre pas celle la que tu veux ;)

Oui apparement je ne savais pas comment on utilisais DateValue (Dsl la première fois c'est jamais simple !)

Quand j'utilise ça, il me dis type mismatch...

Est-ce dû au Format de la date ???

Merci

type Mismach quoi ? :mrgreen:

Oui ça doit etre du a ton format de date :)

juste avant ta boucle, met un msgbox sur "Cells(1, 1).value" et"cbo_debut.Value" pour voir les valeurs qu'elles ont pour voir si c'est déja un bon format de date ou non, et voir ce que ça donne :)

bonjour,
essais ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11

For j = 2 To 256 If datevalue(Cells(1, j).value) = cbo_debut.Value Then DebutX = j End If Next j For k = 2 To 256 If datevalue(Cells(1, k).Value) = cbo_fin.Value Then FinX = k End If Next

---

car je ne suis pas sur que la fonction date s applique directement a un combo

Alors,

illight, le test c'étais une bonne idée, mais les deux boites de dialogue (sur la combobox et dans la 1ere cellulle) renvoi la même date !

Patbou, j'avais pensé pareil que toi donc j'ai essayé mais là non plus il me reste sur une erreur 13 : Type Mismatch sur cette ligne :

Code:

---

Set r1 = Sheets("Data").Range(Cells(1, DebutX), Cells(1, FinX))

---

DebutX et FinX renvoient 0 donc j'imagine que c'est parce qu'il n'à trouvé aucune valeur correspondante...
c'est pourquoi je pense que c'est un problème de format... Mais j'ai déjà réglé mon format dans la combobox et c'est le mm que dans ma feuille !

Code:

---

1 2 3 4 5 6

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

---

Ca va me rendre chèvre ce format !!!

Si pour DebutX il te trouve 0 c'est grave déja car tu pourra pas aller plus loin :)

je crois que l'on avait déja rencontré dans une combobx ce genre d'erreur faudrait que je retrouve le post..Je crois par ailleurs que c'était Ousk qui avait trouvé une solution mais je suis pas sur :) mais essayer de trouver

Oui il est claire que c'est un problème de date car si je garde la même boucle avec un Value tout bête et du texte il me construit mon graph sans pb ...

Je chercher aussi de mon côté, j'avoue que c'est bizare la date qu'il renvoi est la même !!

Mais surtout, les valeurs qui sont insérée proviennet directement du tableau, donc normallement il devrait les reconnaître puisqu'il les copient lui même...

@+

Dans la recherche, tape "Combobox date" tu trouvera plein de sujets à ce sujet, tu trouveras peut etre ta solution dans le tas :)

C'est dingue ça !

Je ne trouve pas de réponse en cherchant dans les files, beaucoup de problèmes de date mais apparement pas le mien exactement ...

je me pose une question maintenant, si le format spécifié dans la combobox est bien le même que celui spécifié dans la feuille, alors qu'est ce qui peut influer sur la boucle ????

apparement un combobox renvoie une valeur de type string
essaye de la convertir en variant

Code:

---

1 2	cvar(combobox.value)

---

c juste une idee

Je vais tester, merci,

le truc encore plus space c'est que lorsque je demande à ma form de copier dans une cellule la valeur que j'ai selectionnée dans ma combobox sur ma feuille et qu'ensuite je la vérifie avec un If de base... Ca fonstionne !

Donc c'est uniquement durant ma boucle !!!

@+

Bon normallement ça fonctionne !!

Merci à tous de m'avoir aiguillé un maximum vers la solutions...

PatBou, tu n'étais pas loin du tout, en convertissant tout en Date ça fonctionne !! je n'y aurais pas pensé sans toi...

Voilà comment j'ai fait pour la boucle :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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

---

et pour la définition de la combobox rien de spécial :

Code:

---

1 2 3 4 5 6 7 8 9

Dim X As Integer Dim Y As Integer   For X = 2 To 256 If Cells(1, X).Value = "" Then Else cbo_debut.AddItem Sheets("Data").Cells(1, X) End If Next X

---

Voilà je post mon code dès que tout est un peu plus fignollé !!!!!

@+++