help erreur 13 incompatibilité type Fermé

Question

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

pijaku · Accepted Answer

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.

H_sergio · Answer

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

f894009 · Answer

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

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

Help erreur 13 incompatibilité type

4 réponses

Discussions similaires