IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Amélioration / Correction macro


Sujet :

Macros et VBA Excel

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Août 2013
    Messages
    30
    Détails du profil
    Informations forums :
    Inscription : Août 2013
    Messages : 30
    Par défaut Amélioration / Correction macro
    Bonjour,

    J'ai codé la macro suivante, mais j'aimerai améliorer la syntaxe du code et surtout des boucles car le fichier original contient beaucoup de données ce qui ralentit le traitement.

    Si les HardCoderz du forum peuvent y apporter des corrections/améliorations, tout en m'expliquant pourquoi, je suis preneur !

    Comment ce code doit marcher ?
    1) Dans le sheet "Feuil1" j'ai des données de la colonne A à P (P contient une référence unique pour chaque ligne)

    2) Dans "Feuil2" je copie des données de la colonne A à N (N contient une référence unique pour chaque ligne)

    3)je lance le code


    ==> Dans "Feuil2" il y a des références que l'on retrouve dans "Feuil1". La macro a pour but de supprimer les références de la colonne N dans ""Feuil2" qui sont déjà présentent dans "Feuil1".


    Merci et j'attends vos feedback

    Cheers !



    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
     
    Sub test_ctrl1()
     
    '**** declaration des variables ****
    Dim I As Integer
    Dim ref_deal As String
     
    Application.ScreenUpdating = False
     
    '**** scan et delete des references ****
    For I = 2 To 40 Step 1
    ref_deal = Worksheets("Feuil2").Cells(I, 14)
    Set MonDeal = Worksheets("Feuil1").Range("P2:P3000").Find(ref_deal, LookIn:=xlValues)
    If Not MonDeal Is Nothing Then Worksheets("Feuil2").Range("N2:N40").Find(ref_deal, LookIn:=xlValues).EntireRow.Delete 'j'aimerai supprimer la ligne correspondante que de la colonne A à N
    If I = 40 Then Exit For
    Next I
     
    Set MonDeal = Nothing
    For I = 2 To 20 Step 1
    ref_deal = Worksheets("Feuil2").Cells(I, 14)
    Set MonDeal = Worksheets("Feuil1").Range("P2:P3000").Find(ref_deal, LookIn:=xlValues)
    If Not MonDeal Is Nothing Then Worksheets("Feuil2").Range("N2:N21").Find(ref_deal, LookIn:=xlValues).EntireRow.Delete 'supprimer la ligne correspondante que de la colonne A à N
    If I = 20 Then Exit For
    Next I
     
    Set MonDeal = Nothing
    For I = 2 To 15 Step 1
    ref_deal = Worksheets("Feuil2").Cells(I, 14)
    Set MonDeal = Worksheets("Feuil1").Range("P2:P3000").Find(ref_deal, LookIn:=xlValues)
    If Not MonDeal Is Nothing Then Worksheets("Feuil2").Range("N2:N20").Find(ref_deal, LookIn:=xlValues).EntireRow.Delete 'supprimer la ligne correspondante que de la colonne A à N
    Next I
     
    MsgBox ("Le traitement est terminé")
     
    End Sub
    Fichiers attachés Fichiers attachés

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Amélioration/Correction syntaxe macro
    Par daddygraffiti dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 16/08/2013, 22h06
  2. Recherche de l'aide pour améliorer une macro excel
    Par Yul80 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 30/09/2008, 10h21
  3. question amélioration d´une macro
    Par jager57 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 20/08/2008, 11h06
  4. améliorer une macro
    Par casavba dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 10/08/2007, 06h02
  5. Améliorer une macro
    Par Thomas69 dans le forum Macros et VBA Excel
    Réponses: 17
    Dernier message: 30/05/2007, 22h33

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo