Correction code et enchainement de deux sub

Question

Je recherche de l'aide car mon code fonctionnait sur un tableau de test et lorsque je le passe sur mon tableau réel ayant la même structure, cela ne fonctionne plus. Je cherche donc à savoir ce qui cloche dans mon code et si il n'y a pas des modifications à faire dedans. Ce code est censé faire la somme des cellules de la colonne L, si on trouve la même chaine de caractère sur deux ligne successives dans la colonne F. De plus il supprime la ligne qui a été ajouté à la seconde car je cherche à n'avoir qu'une ligne pour chaque chaine de caractères que l'on trouve plusieurs fois. Le code est le suivant : Sub somme_montants() dl = Cells(Rows.Count, "F").End(xlUp).Row For i = dl - 1 To 2 Step -1 If Cells(i + 1, "F") = Cells(i, "F") Then Cells(i, "L") = Cells(i + 1, "L") + Cells(i, "L") Rows(i + 1).Delete shift:=xlUp End If Next i End Sub Je souhaite également savoir si il est possible de mettrecle code une fois qu'il sera corrigé, à la suite du code ci dessous, afin de ne faire plus qu'une seule macro : Sub sup_les_lignes() Dim i As Integer Application.ScreenUpdating = False For i = Range("H" & Rows.Count).End(xlUp).Row To 18 Step -1 If LCase((Range("H" & i))) &lt;&gt; Range("A10") And Range("H" & i) &lt;&gt; "" Then Rows(i).Delete Next i End Sub Ce second code a pour but de supprimer les lignes ou l'on ne trouve pas la chaine ce caractère présente dans la cellule A10 (cellule arbitraire à titre d'exemple), ce dernier fonctionne lui très bien. Merci par avance pour votre aide...

Yvouille · Accepted Answer

Ce n’est vraiment pas évident de te venir en aide. Sur ton autre fil, tu avais présenté un fichier nommé ‘classeur excel de test’ et j’avais corrigé ta macro ‘sup_les_lignes’ en fonction de ce fichier. Dans le nouveau fichier nommé ‘classeur excel de test_V1’ que je t’avais fourni, ça fonctionne parfaitement . Cette macro a été remplacée par la nouvelle macro ‘Supprime’ dans le dernier fichier fourni ‘classeur test enchainement sub’ et elle ne fonctionne pas correctement ; à la fin du code, la ligne 13 – avec le titre ‘Tableau 2’ - par exemple a disparu !! Tes fichiers ne sont pas les mêmes d’une fois à l’autre, tu échanges des macros, les boutons mis en place sur les fichiers disparaissent ; désolé, mais je jette l’éponge Dans l’espoir que tu me comprennes, je te présente mes meilleures salutations...

ThauThème · Answer

Ton code prend en compte les cellules vides. C'est peut-être pour ça que ça ne convient pas. Une proposition des deux macros compilées : Sub Macro1() Dim i As Integer Dim dl As Integer Application.ScreenUpdating = False For i = Range("H" &amp; Rows.Count).End(xlUp).Row To 18 Step -1 If LCase((Range("H" &amp; i))) &lt;&gt; Range("A10") And Range("H" &amp; i) &lt;&gt; "" Then Rows(i).Delete Next i dl = Cells(Rows.Count, "F").End(xlUp).Row For i = dl - 1 To 2 Step -1 If Cells(i + 1, "F") = Cells(i, "F") And Cells(i, "F") &lt;&gt; "" Then Cells(i, "L") = Cells(i + 1, "L") + Cells(i, "L") Rows(i + 1).Delete shift:=xlUp End If Next i Application.ScreenUpdating = True End Sub...

Yvouille · Answer

J'ai bien reçu ton message en privé. Au lieu de dire ce qui ne joue pas dans ta macro, tu ferais mieux de dire ce que tu désires réaliser. En prenant comme base le fichier ci-joint, ta macro Sub somme_montants() recherche les lignes de la colonne F ayant une similitude entre elle. Comme tu commences à chercher depuis la dernière valeur de la colonne F, ton code passe en revue les lignes 30 et 31 et ne trouve pas d’analogie entre les cellules F30 et F31. Il continue et cherche une similitude entre F29 et F30 et ne trouve toujours rien. Entre F28 et F29, par contre, il trouve que ces deux cellules sont identiquement vides. Il applique donc ton souhait d’additionner les cellules L28 et L29, mais comme tu as des messages d’erreur dans ces deux cellules, le code bloque ! Non seulement le code bloque, mais veux-tu vraiment – dans le fichier ci-joint – additionner les totaux de ces deux cellules puis supprimer la ligne 29 ou ne voudrais-tu commencer à effectuer ce travail qu’à partir de la ligne 23, dans mon tableau 2 ? Oublions-donc ta macro et dis-moi avec des mots ce que tu désires réaliser dans le fichier ci-joint. Pour tes descriptions, utilises toujours les références aux objets Excel, tels que lignes, colonnes, plages de cellules, tableaux titrés, etc. Si jamais ce fichier ne présente pas tous les cas possibles à traiter, simule un fichier les présentant. Cordialement...

Yvouille · Answer

Tu m’avais dit en privé que ton ton chef te fait du forcing pour que le problème soit résolu de manière assez rapide, mais je vois que tu ne stresses pas plus que tant ! De plus tu sembles prendre le problème un peu à la légère et ne pas trop t’intéresser à ce que je t’écris. Je t’ai dit précisément que tu ne pouvais pas additionner les cellules L28 et L29 du dernier fichier que je t’ai fourni car ça bloque et maintenant tu me demandes de te fournir un fichier où ça bloque et d’additionner en remplacement les cellules des colonnes J et K à la place de la colonne L alors que dans la plage J28:K29, tu n’as strictement aucune donnée !!!! Si tu ne commences pas bientôt à t’intéresser à ton fichier, je pense que je vais abandonner également. Je t’avais demandé de simuler un fichier sur lequel ce problème apparaissait. Comme tu ne l’as pas fait - ou du moins pas clairement - j’ai ignoré cette partie du problème. Malgré cette instruction selon moi tout à fait imprécise, j’ai compris que tu désirais ne traiter que le tableau 2 – donc effectivement commencer la recherche qu’à partir de ce tableau – mais bien entendu ne pas traiter les tableaux 3 et 4. Je n’ai pas compris non plus si le début du tableau 2 est toujours à la ligne 13, mais dans le doute, j’ai créé un code qui recherche au préalable ce titre ‘Tableau 2’ dans la colonne E afin de savoir où il démarre. Pour la fin du tableau – puisque j’ai compris que le nombre de lignes peut varier, je vais rechercher le texte ‘Titre 4’ dans la colonne A, puisque selon ton exemple, tu as un texte précis à la fin de ce tableau 2. Dans le nouveau fichier exemple ci-joint, le tableau commence donc à la ligne 20 et se termine à la ligne 35. Si tu cliques sur le bouton ‘Contrôle Tableau 2’ mis en place dans la ligne 1, la nouvelle macro créée devrait répondre à ton attente. Si c’est bien le cas on verra comment l’on peut combiner encore tes deux macros. Je te prierais à cet effet de simuler un fichier avant le lancement de ces deux macros successives. Indique-moi également de quelle manière tu désires déclencher ces deux codes ensemble : par un bouton, par un évènement autre ? A te relire...