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

Afficher la suite

A voir également:

Help erreur 13 incompatibilité type
Fifa 13 - Télécharger - Jeux vidéo
Erreur 3005 france tv - Forum TV & Vidéo
Test redmi note 13 5g - Accueil - Téléphones
Erreur 3000 france tv - Forum Lecteurs et supports vidéo
Erreur t32 ✓ - Forum Livebox

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention 2 762

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 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,

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

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

Réponse 3 / 4

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention > 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...

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

f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention > 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)

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

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

Discussions similaires

Voxbone ? qui est-ce ?

Erreur d'exécution 13 Incompatibilité de type

erreur 13 incompatibilité de type VBA excel

Erreur d'exécution '13': Incompatibilité de Type

Erreur exécution 13 : incompatibilité de type

Votre réponse

Discussions similaires