Help erreur 13 incompatibilité type

Fermé

achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015 - 19 févr. 2015 à 09:52
achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015 - 25 févr. 2015 à 15:02

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

A voir également:

Help erreur 13 incompatibilité type
Erreur 0x80070643 - Guide
Fifa 13 apk - Télécharger - Jeux vidéo
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
Erreur 10016 epson - Forum Imprimante
+33 9 48 19 02 13 ✓ - Forum Mobile

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
25 févr. 2015 à 14:49

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.

achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015 1
25 févr. 2015 à 15:02

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,

Réponse 2 / 4

H_sergio Messages postés 185 Date d'inscription mardi 27 avril 2010 Statut Membre Dernière intervention 29 février 2016 7
19 févr. 2015 à 10:20

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

achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015 1
19 févr. 2015 à 10:42

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 :-)

Réponse 3 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
19 févr. 2015 à 10:23

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

achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015 1
19 févr. 2015 à 10:44

j'ai repris votre code, mais le problème persiste erreur d'exécution13
j'ai une question: vous codez sur quel editeur moi je code sur excel et c'est impeux pas beau lol
merci pour votre réponse :-)

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701 > achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015
19 févr. 2015 à 10:51

Re,

moi je code sur excel et c'est impeux pas beau lol J'utilise l'editeur VBA excel comme tout le monde

Il faudrait mettre votre fichier a dispo sans donnees sensibles, pour que nous puissions voir votre erreur
Pour transmettre un fichier,
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015 1
19 févr. 2015 à 10:54

lol j'aurais aimer le faire mais pour l'instant mes macros ne s'enregistre pas a chaque fois que je ferme le classeur mes macros disparaissent.
c'est mon premier jour de programmation sur VBA desoler je vais essayer de regler ce probléme la et je reviendrais merci beaucoup

Re,

enregistrez votre fichier en XLSM pas en xlsx :
Classeur excel (prenant en charge les macros) (*.xlsm)

achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015 1
19 févr. 2015 à 11:10

Re,

oui c'est ce que je fais mais il me dis que mon fichier.xla est en lecture seule et il me dis de donner au classeurs un nom différents dans la boite de dialogue mais ca ne marche pas

Réponse 4 / 4

achacheachache Messages postés 14 Date d'inscription jeudi 19 février 2015 Statut Membre Dernière intervention 25 février 2015 1
20 févr. 2015 à 09:58

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

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

Discussions similaires

Newsletters