erreur '1004' ca veux dire quoi? Fermé

Question

Bonjour,

j'ai créer un programme sur exel permettant de copier toutes les  lignes dont la valeur de la cellule de la colonne J est inférieur à un certain nombre. et les coller dans une autre feuille.

Mais je suis pas experte en VBA et j'obtiens ce message :

Erreur d'exécution '1004':
Erreur définit par l'application ou par l'objet

Je ne comprend pas ce que cela signifie. Si quelqu'un pourrait m'éclaircir.

Merci par avance

Polux31 · Answer

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

Polux31 · Answer

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

lermite222 · Answer

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+

amand · Answer

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

amand · Answer

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

Polux31 · Answer

Re,

En mettant ça, ça devrait le faire :

Sheets("SOI").Rows(NumLigneCopier).Select 

;o)

amand · Answer

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

Polux31 · Answer

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)

amand · Answer

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

Polux31 · Answer

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)

lermite222 · Answer

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

Erreur '1004' ca veux dire quoi?

11 réponses

Discussions similaires