Help erreur 13 incompatibilité type [Fermé]

Signaler
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015
-
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015
-
Bonjour,

j'ai un probléme d'erreur d'exécution...malgres le faite que ma macro me fait ce que je veux...a chaque fois que je la lance elle me sort ERREUR d'EXECUTION '13' incompatibilité de type.
et elle me surligne en jaune de mon IF au then.
Désoler je débute en VBA c'est mon premier jour.
en vous remerciant par avance

voici mon code

Public Sub Essai()

Dim i As Integer, DerniereLigne As Integer

DerniereLigne = Range("A65536").End(xlUp).Row

For i = DerniereLigne To 1 Step -1
If (Worksheets("Situation 092014 à 012015").Cells(i, 2) = "" And Worksheets("Situation 092014 à 012015").Cells(i, 3) = "" And Worksheets("Situation 092014 à 012015").Cells(i, 4) = "" And Worksheets("Situation 092014 à 012015").Cells(i, 5) = "" And Worksheets("Situation 092014 à 012015").Cells(i, 6) = "" And Worksheets("Situation 092014 à 012015").Cells(i, 1) <> "Absence" And Worksheets("Situation 092014 à 012015").Cells(i, 1) <> "autres absences " And Worksheets("Situation 092014 à 012015").Cells(i, 1) <> "autres activités" And Worksheets("Situation 092014 à 012015").Cells(i, 1) <> "Présence activité syndicale" And Worksheets("Situation 092014 à 012015").Cells(i, 1) <> "" And Worksheets("Situation 092014 à 012015").Cells(i, 1) <> "sous total") Then Worksheets("Situation 092014 à 012015").Rows(i).Delete

'si une ligne du classeurs n'a aucune valeurs dans ces collones elle sera supprimer ..
'Absence, présence activité syndicale,autres activités, autres absences, les sous totaux,et les totaux ne serons pas supprimés



Next i

End Sub

4 réponses

Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 467
Bonjour tout le monde,

L'erreur 13, dans ce cas, est due aux erreurs #N/A présentes dans le fichier lignes 68 et 69.
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 57413 internautes nous ont dit merci ce mois-ci

Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015

Bonjour,

merci grâce a vous je viens de comprendre d'ou viens le problème je vous souhaite une bonne fin de journée.
Cordialement,
Messages postés
185
Date d'inscription
mardi 27 avril 2010
Statut
Membre
Dernière intervention
29 février 2016
7
bonjour
on dirait que le nom ta page "Situation 092014 à 012015" n'est pas rigoureusement identique à "Worksheets("Situation 092014 à 012015")"
il y a peut être un espace en trop ou en moins
le mieux serait de faire "renommer" ton onglet , copier le texte et le coller dans ta macro sur le Worksheets
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015

rcie pour votre réponse mais j'ai fais ce que vous m'avez demander mais le probléme est toujours la.
je ne crois pas que ca soit le probléme :-( merci comém :-)
Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
1 323
Bonjour,

pas d'erreur, ai un peu repris le code:

Public Sub Essai()
    Dim i As Integer, DerniereLigne As Integer
    With Worksheets("Situation 092014 à 012015")
        DerniereLigne = .Range("A65536").End(xlUp).Row

        For i = DerniereLigne To 1 Step -1
            If .Cells(i, 2) = "" And _
                .Cells(i, 3) = "" And _
                .Cells(i, 4) = "" And _
                .Cells(i, 5) = "" And _
                .Cells(i, 6) = "" And _
                .Cells(i, 1) <> "Absence" And _
                .Cells(i, 1) <> "autres absences " And _
                .Cells(i, 1) <> "autres activités" And _
                .Cells(i, 1) <> "Présence activité syndicale" And _
                .Cells(i, 1) <> "" And _
                .Cells(i, 1) <> "sous total" Then
                    .Rows(i).Delete
            End If
'si une ligne du classeurs n'a aucune valeurs dans ces colonnes elle sera supprimer ..
'Absence, présence activité syndicale,autres activités, autres absences, les sous totaux,et les totaux ne serons pas supprimés
        Next i
    End With
End Sub
Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
1 323 >
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015

Re,

Avez-vous ouvert le fichier xla qui est cite dans la boite a message
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015
>
Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020

re,
oui c'est dans ce fichier pwdMoniketConverter.xla qu'il y a ma macro
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015

pouvez vous m'aider
j'ai besoin d'inserrer une forume simple dans une cellule

mon code est
Range("B" & 9).Formula = "=SOMME(""B""&29;""B""&76)*N$2"

je veux mettre dans B9.....=SOMME(B29;B76)*N$2


merci
Messages postés
15267
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
8 août 2020
1 323 >
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015

Re,

Sauf erreur de ma part un XLA n'est pas modifiable directement, il faut le transformer en xls ou xlsx, faire les modif et ensuite le repasser en xla
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015

re,

Merci pour vos réponses.
j'ai enfin réussi a faire marcher ce code.

bonne journée a vous
Messages postés
14
Date d'inscription
jeudi 19 février 2015
Statut
Membre
Dernière intervention
25 février 2015

Bonjour ,
je reviens vers vous apres le probléme d'hier donc le probléme etait regler mais je m'appercois ce matin que le meme code de vba ne fonctionne pas correctement sur un autre fichier (pourtant un autre fichier identique je vous mets en piece jointe le fichier
donc la macro s'apelle Essai
la macro est enregister sur personell.xls et le boutton lance la macro <supprimer>
j'aimerais que ca me supprime tous les champs qui ont " " hormis quelque exception sur l'autre fichier ca marche nikel mais sur celuis la elle supprime que a partir de la ligne 74

Voici le lien https://www.cjoint.com/c/EBukhk0uQ1J
merci d'avance