Erreur 1004 définie par l\'application ou par l\'obj

[adebrux]

Erreur 1004 définie par l'application ou par l'obj

Salut le forum, B)

Ca y est les vacances sont finies... Les problèmes reviennent lol

Et celui ci vient d'une macro de tri un poil particulière.
toujours est-il que lorsque je lance ma macro après avoir rempli mes conditions, j'ai une erreur 'Erreur d'exécution 1004 - erreur définie par l'application ou l'objet' Autant dire un truc qu'excel ne liste même pas dans ces erreurs prédéfinies ... le con lol

Bon, voici donc la ligne qui se surligneen jaune :

If Sheets('feuil1').Cells(j, c).Value = Sheets('feuil1').Cells(i, c).Value Then

:unsure:
Et voilà le début du code qui va avec

Private Sub Testunique()
Sheets('Feuil1').Activate
For i = m To n
    j = o
    For j = o To p
        If Sheets('feuil1').Cells(j, c).Value = Sheets('feuil1').Cells(i, c).Value Then
                Rows(j).Select
                Selection.Cut
                Rows(i + 1).Select
                Application.CutCopyMode = False
                Selection.Insert Shift:=xlDown
                Cells(i, c).Select
                With Selection.Interior
                    .ColorIndex = 3
                End With
                Rows(i + 1, c).Select
                With Selection.Interior
                    .ColorIndex = 6
                End With
                i = i + 1
                n = n + 1
        End If
    Next j
Next i

End Sub

D'avance merci pour les éclaircissement que vous pourriez m'apporter

++
Arnaud

Message édité par: adebrux, à: 29/08/2005 12:27

Message édité par: adebrux, à: 29/08/2005 12:29

 

[PascalXLD]

Re:Erreur 1004 définie par l'application ou par l'

Bonjour


Dans ta ligne

If Sheets('feuil1').Cells(j, c).Value = Sheets('feuil1').Cells(i, c).Value Then

Quelle est la valeur de c ????

 

[PascalXLD]

Re:Erreur 1004 définie par l'application ou par l'

Re

De plus dans cette partie

For i = m To n
j = o
For j = o To p

Les m n o p sont des variables publiques ??

Sinon d'où viennent leur valeur ??

 

[adebrux]

Re:Erreur 1004 définie par l'application ou par l'

i, j et c sont des valeurs numériques récupérer dans un textbox d'une form de paramètrage
Enfin, je rentre un nombre, mais le format reste du text. G bien essayer un strtoint ('String To Integer' en Delphi), mais g rien trouvé d'équivalent

 

[adebrux]

Re:Erreur 1004 définie par l'application ou par l'

en fait toutes les variables m, n, o, p i, j etc viennent de:

Private Sub CommandButton1_Click()
m = TextBox1.Text
n = TextBox2.Text
o = TextBox5.Text
p = TextBox6.Text
c = TextBox7.Text
d = TextBox8.Text

 

[PascalXLD]

Re:Erreur 1004 définie par l'application ou par l'

Re

Dejà il faudrait que tu convertisses tes valeurs

du genre

m = CInt(TextBox1.Text)

ensuite il faut bien t'assurer que tes variables soient déclarées de façon à être 'lisible' dans ta procédure donc certainement de les déclarer Public dans un module

Bon courage

 

[adebrux]

Re:Erreur 1004 définie par l'application ou par l'

J'ai fait comme tu m'as dit, à savoir que la procédure d'ouverture n'est plus private mais public, et g aussi fait une conversion des format avec la fonction Cint, mais ca n'as rien changé.

Je te met le fichier en pièce jointe si t'arrive à qq chose.

A bientôt [file name=Recherchededoublons.zip size=26409]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Recherchededoublons.zip[/file]

 

[PascalXLD]

Re:Erreur 1004 définie par l'application ou par l'

Bonjour

En faity le problème vient de ce que je t'avais déjà dit

ensuite il faut bien t'assurer que tes variables soient déclarées de façon à être \\'lisible\\' dans
ta procédure donc certainement de les déclarer Public dans un module

Tes variables m n o p c n'etait pas déclarées et donc nepouvaient pas passer d'une procédure à une autre je te'ai fait quelques modifs

Mais tu auras d'autres erreurs je pense mais sur le coup là j'ai pas trop le temps [file name=Recherchededoublons1.zip size=23287]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Recherchededoublons1.zip[/file]

 

[adebrux]

Re:Erreur 1004 définie par l'application ou par l'

Merci beaucoup