Erreur '1004' ca veux dire quoi?

Bonjour,

Colle ici ton code en nous indiquant la ligne où l'erreur se produit, on pourra peut être t'aider.

Meric

;o)

Bonjour,

Colle ici ton code en nous indiquant la ligne où se produit l'erreur, nous pourrons peut être t'aider. Merci

;o)

Bonjour,
L'erreur 1004 est un peu le "Fourre-tout" d'excel mais est particulièrement utilisée quand l'objet spécifié n'est pas trouver, par exemple

Sheets("Feuil10").Activate

et que la Feuil10 n'existe pas ou qu'il y a une erreur de syntaxe, ou un espace en trop, ce qui est plus fréquent.
A+

j'ai résolu le problème de l'erreur 1004, d'autre erreur apparaisse mais je m'en sortirais je pense.

Merci

voici mon code

Private Sub CommandButton1_Click()
Dim NumLigneVide As Integer
Dim NumLigneCopier As Integer

Sheets("Remise à jour").Range("A2:J65536").Value = Null 'On remet la zone à zéro
NumLigneVide = 2

For Each Cell In Sheets("SOI").Columns("J:J") 'dans la colonne J
If Value < Date + 90 Then 'si une cellule à une valeur inférieur à aujourdhui + 90 jours alors
NumLigneCopier = ListIndex 'on associe à NumLigneCopier le numéro de la ligne de la cellule
Sheets("SOI").Rows("NumLigneCopier:NumLigneCopier").Select 'on sélectionne la ligne Selection.Copy 'on copie la selection
Sheets("Remise à jour").Select 'on va dans la feuille remise à jour
Rows("NumLigneVide:NumLigneVide").Select
ActiveSheet.Paste 'on colle ces cellules dans la feuille remise à jour à la ligne vide.
NumLigneVide = NumLigneVide + 1
End If

Next 'tri les lignes par ordre croissant selon la colonne J

Sheets("Remise à jour").Columns("J:J").Select
Range("A1:J5").Sort Key1:=Range("J2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

End Sub

le problème est maintenant sur la ligne souligné mais c'est une erreur 13 incompatibilité de type
Mais j'arrive pas à résoudre

Re,

En mettant ça, ça devrait le faire :

Sheets("SOI").Rows(NumLigneCopier).Select

;o)

En changeant comme tu m'as dis ca me remets erreur 1004. Je ne comprend pas où est l'erreur.

Oui effectivement je n'avais pas tout lu en détail.

D'où provient ListIndex(NumLigneCopier = ListIndex) ???

Si tu veux récupérer le numéro de la ligne, il faut faire:
NumLigneCopier = Cell.Row

;o)

En mettant NumLigneCopier = Cell.Row ou NumLigneCopier = Selection.Row ca marche toujours pas ...

Voilà ce que j'ai testé chez moi et ça marche nickel

Sub test()
Dim cel

    For Each cel In Worksheets(1).Range("A1:A100")
        If cel.Value < 5 Then
            Worksheets(1).Rows(cel.Row).Delete
        End If
    Next cel
    
End Sub

A toi d'adapter ça à ton code

;o)

Sans tout relire...
Pas oublier.. les lignes de la feuille commence à 1 et les lignes de la listBox commence à 0 !!
A+