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 :
:unsure:
Et voilà le début du code qui va avec
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
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 :
Code:
If Sheets('feuil1').Cells(j, c).Value = Sheets('feuil1').Cells(i, c).Value Then
Et voilà le début du code qui va avec
Code:
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