Help erreur 13 incompatibilité type

achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -  
achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   -
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:

4 réponses

Réponse 1 / 4
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
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.
4
achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   1
 
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,
0
Réponse 2 / 4
H_sergio Messages postés 188 Date d'inscription   Statut Membre Dernière intervention   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
0
achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   1
 
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 :-)
0
Réponse 3 / 4
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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
0
achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   1
 
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 :-)
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
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...
0
achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713 > achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention  
 
Re,

enregistrez votre fichier en XLSM pas en xlsx :
Classeur excel (prenant en charge les macros) (*.xlsm)
0
achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0
Réponse 4 / 4
achacheachache Messages postés 14 Date d'inscription   Statut Membre Dernière intervention   1
 
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
0

Discussions similaires

Voxbone ? qui est-ce ?
fanfan54 -
ntrece13 -

159 réponses
Erreur d'exécution 13 Incompatibilité de type
grace -
pijaku -

5 réponses
Erreur d'exécution '13': Incompatibilité de Type
SLM-BHY -
Heliotte -

8 réponses
erreur 13 incompatibilité de type VBA excel
monalisach -
monalisach -

2 réponses
Erreur 3005 sur France TV
Cambodgil -
PK -

5 réponses