+ Reply to Thread
Results 1 to 6 of 6

Supprimer des lignes de plusieurs feuilles à partir d'une liste donnée Répondre

  1. #1
    Registered User
    Join Date
    12-23-2020
    Location
    Nice
    MS-Off Ver
    2016
    Posts
    2

    Supprimer des lignes de plusieurs feuilles à partir d'une liste donnée Répondre

    Bonjour à vous,

    Je me permets de vous écrire car je suis bloqué sur un problème.

    Étant donné une liste "Matériels" composée de 3 colonnes (Poids, Matériel, Longueur) , j'aimerais bien trouver un code VBA qui va parcourir mon dossier Excel (composé de plusieurs feuilles) à partir de cette liste de base "Matériels" et comparer que avec les données d'autres feuilles dont son nom comporte trois caractères ( les feuilles souhaite êtres parcouru sont les seules feuilles dans mon fichier dont son nom est composé de trois caractères, aucune autre feuille ne comportera seulement 3 lettres dans son nom.)

    Ce code devrait prendre en compte le trio (Poids, Matériel, Longueur) pour supprimer dans les feuilles traitées les lignes entiers qui n'ont pas fait partie de la feuille de base "Matériels" (c'est à dire: qui ne se trouve pas dans la liste de base "Matériels") , il devrait remplir dans la feuille de base "Matériels" la colonne E "Matériel trouvé ( Oui/Non )" oui: si le trio (Poids, Matériel, Longueur) est trouvé dans les feuilles traitées, non dans le cas contraire

    vous trouverez le code en-dessous qui ne fonctionne pas:

    Please Login or Register  to view this content.

    Avec mes remerciements pour votre soutien
    Attached Files Attached Files
    Last edited by AliGW; 12-23-2020 at 12:25 PM.

  2. #2
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    80,830

    Re: Supprimer des lignes de plusieurs feuilles à partir d'une liste donnée Répondre

    Administrative Note:

    Welcome to the forum.

    We would very much like to help you with your query, however you need to include code tags around your code.

    Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

    Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

    (Note: this change is not optional. Car vous êtes débutant ici, je l'ai fait pour vous cette fois.)
    Ali


    Enthusiastic self-taught user of MS Excel who's always learning!
    Don't forget to say "thank you" in your thread to anyone who has offered you help.
    You can reward them by clicking on * Add Reputation below their user name on the left, if you wish.

    Forum Rules (updated August 2023): please read them here.

  3. #3
    Banned User!
    Join Date
    02-06-2020
    Location
    Iowa City, IA, USA
    MS-Off Ver
    2016 - 365 / 2007
    Posts
    2,014

    Re: Supprimer des lignes de plusieurs feuilles à partir d'une liste donnée Répondre

    ce que vous faites actuellement n'est pas clair. pouvez-vous expliquer ce que fait actuellement votre code? Je n'ai pas téléchargé votre fichier. alors, que fait-il?

  4. #4
    Registered User
    Join Date
    12-23-2020
    Location
    Nice
    MS-Off Ver
    2016
    Posts
    2

    Re: Supprimer des lignes de plusieurs feuilles à partir d'une liste donnée Répondre

    Pour bien comprendre ce que je voudrais faire je vous invite de bien vouloir télécharger le fichier joint

    mon idée de stocker les valeurs concaténées (Poids, Matériel, Longueur) de la feuille "Matériels" (la liste de base) dans une colonne à coté et les comparer avec les valeurs correspondantes dans les autres feuilles et supprimer ceux qui ne se trouvent pas dans la liste de base (je commence avec une feuille pour l'instant, c'est la feuille "AQW" par exemple)
    Voici le code utilisé


    Sub Supp_ligne_non_trouvee()
    Dim i As Integer
    Dim j As Integer
    Dim Ws1 As Worksheet
    Dim Ws2 As Worksheet

    Set Ws1 = Sheets("Matériels")
    Set Ws2 = Sheets("AQW")

    Application.ScreenUpdating = False
    For i = 2 To Ws1.Range("B" & Rows.Count).End(xlUp).Row
    Ws1.Range("I" & i) = Ws1.Range("B" & i) & Ws1.Range("C" & i) & Ws1.Range("D" & i)
    Next i
    For i = Range("A" & Rows.Count).End(xlUp) To 2 Step -1
    On Error Resume Next
    j = Application.WorksheetFunction.Match(Ws2.Range("D" & i) & Ws2.Range("C" & i) & Ws2.Range("J" & i))
    If j = 0 Then Ws2.Rows(i).Delete Shift:=xlUp
    Next i

    Ws1.Range("I:I").ClearContents


    End Sub

  5. #5
    Forum Expert Carim's Avatar
    Join Date
    04-07-2006
    Posts
    4,070

    Re: Supprimer des lignes de plusieurs feuilles à partir d'une liste donnée Répondre

    Bonjour,

    Est-ce-qu'il faut considérer la question initiale comme résolue ... ou pas ...?
    HTH
    Carim


    Top Excel Links

  6. #6
    Forum Moderator AliGW's Avatar
    Join Date
    08-10-2013
    Location
    Retired in Ipswich, Suffolk, but grew up in Sawley, Derbyshire (England)
    MS-Off Ver
    MS 365 Subscription Insider Beta Channel v. 2404 (Windows 11 22H2 64-bit)
    Posts
    80,830

    Re: Supprimer des lignes de plusieurs feuilles à partir d'une liste donnée Répondre

    Administrative Note:

    FOR THE SECOND TIME

    We would very much like to help you with your query, however you need to include code tags around your code.

    Please take a moment to add the tags. Posting code between tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

    Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

    (Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)

+ Reply to Thread

Thread Information

Users Browsing this Thread

There are currently 1 users browsing this thread. (0 members and 1 guests)

Similar Threads

  1. Replies: 3
    Last Post: 03-30-2020, 11:35 AM
  2. Comparer deux collones sur provenant de 2 feuilles différentes
    By Ronaldi94 in forum Non English Excel
    Replies: 1
    Last Post: 08-03-2017, 09:08 AM
  3. Replies: 0
    Last Post: 08-03-2017, 09:05 AM
  4. liste avec deux lignes discontinués
    By 11help11 in forum Non English Excel
    Replies: 1
    Last Post: 06-17-2016, 10:24 AM
  5. Supprimer retour chariot (dernière ligne vide)
    By Nyepalo in forum Non English Excel
    Replies: 1
    Last Post: 04-05-2015, 07:56 PM
  6. Replies: 5
    Last Post: 08-25-2014, 07:44 AM
  7. Replies: 1
    Last Post: 08-25-2014, 05:05 AM

Bookmarks

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts

Search Engine Friendly URLs by vBSEO 3.6.0 RC 1