Bug, dans macro suppression de ligne

Question

J'ai fais une macro qui me supprime les lignes ou il n'y a pas de "0" ou de cellules vides mais elle ne marche plus, je ne sais pas pourquoi. aider moi s'il vous plait Jawst...

MFerrand · Accepted Answer

Bon ! Ta macro était un agrégat d'éléments disparates !

Réécrite entièrement, elle donne finalement le résultat attendu, bien qu'un peu lente à mon goût (mais c'est un peu inhérent à la méthode utilisée) . Du coup, je ne sais quel était exactement le problème...

Sub Copierpage()
    Dim i As Integer, DernLigne As Integer
    With Worksheets("extrait")
        Worksheets("Qualite").Range("A1:AZ4000").Copy .Range("A1:AZ4000")
        DernLigne = .Range("A" & Rows.Count).End(xlUp).Row
        .Range("T2:T" & DernLigne).Value = .Range("T2:T" & DernLigne).Value
        .Range("A:E,I:J,P:Q,AA:AG,AJ:AT").Delete
        For i = DernLigne To 2 Step -1
            If Year(.Cells(i, 1).Value) = 2014 Then .Rows(i).Delete
            If UCase(.Cells(i, 2).Value) = "TRANE" Then .Rows(i).Delete
            If .Cells(i, 15) <> 0 And .Cells(i, 15) <> "" Then .Rows(i).Delete
        Next i
    End With
End Sub

J'ai introduit une ligne avant suppression des colonnes pour passer la colonne T (qui est conservée) en valeurs, ses formules étant cassées par la suppression de la colonne AG.

Cordialement.

MFerrand · Answer

Tu testes un "0" valeur texte, si tu as un 0 nombre il n'est pas identifié. Cordialement...

MFerrand · Answer

Si le zéro que tu testes est un nombre, il vaudrait mieux pas... mais

En fait il faut savoir quel est l'objectif, car si tu mets <> 0 And <> "" cela a pour résultat d'exclure les cellules vides.

pierre.jy · Answer

Et si cela fonctionné... il faudrait qu'il se passe quoi ...

MFerrand · Answer

Il faudrait que tu mettes un fichier pour qu'on voit sur pièces, et que tu précises les conditions de suppression...

MFerrand · Answer

Oui ça fonctionne, donc on ne peut rien voir. Cela doit tenir au type de données de ton fichier...

MFerrand · Answer

Je débute par une erreur 1004 !

Avec des qualifications telles que Worksheets(2), feuille qui est devenue la 1, et ActiveSheet toujours susceptible de variation si la macro n'est pas affectée à un bouton qui oblige à être sur cette feuille pour la lancer (sécurité relative car si elle peut être lancée de la boîte de dialogue, on peut donc être n'importe où).

Je vais reprendre.

Tu cumules avec une telle définition de plage :

Worksheets(1).Range(Range("A1").Offset(A, b), Range("AZ4000").Offset(f, g))

Je suis étonné que cela ne déclenche pas d'erreur. J'ai testé pour voir quelle plage était renvoyée, c'est A1:AZ4000 !

Est-ce bien cette plage là qui est recherchée ? Pourquoi ces Offset inopérants alors ?

pierre.jy · Answer

Si cela "te met une erreur" la première chose à faire c'est de lire ce message d'erreur ...! puis nous dire pour qu'elle ligne de code il apparaît ...

MFerrand · Answer

Bonjour pierre-jy,

A ce que j'ai compris, il ne s'agissait pas d'une erreur d'exécution mais du fait que la macro ne produisait pas le résultat attendu...

J'ai eu des erreurs lors d'un premier test parce que le fichier avait été "simplifié" pour le forum mais la macro n'avait pas été adaptée en conséquence des simplifications. Ensuite comme elle était formé par l'agrégation d'au moins 4 éléments d'origines différentes faits indépendamment, le mieux était de commencer par la réécrire... Moyennant quoi, elle donne le résultat prévu ! (ça j'ai passé du temps à le vérifier).

Cordialement.