[VBA] Optimisation de code

Optimisation de code [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 07-09-2012 à 15:53:38    

Bonjour,
Je suis novice en VBA, mais j'ai des bases en programmation.
Pour la mise en contexte, je souhaite prendre des données d'un onglet, et les transférer dans un autre onglet tout en les réorganisant.
J'ai créé une macro qui scan dans une plage voulu les données à copier, puis qui copie les cellules sélectionnées dans l'autre onglet.
De plus, lorsque je réexécute le code, les données ayant été déplacé lors de la première exécution sont toujours présentent, et celle de l'exécution actuelle s'y rajoute... je dois donc supprimer les données une par une avant chaque exécution.
 
Le problème que j'ai est que lorsque j'exécute le code, le temps d'exécution est d'au moins 30secondes...
Est ce que il y aurait moyen d'optimiser mon code pour gagner en temps d'exécution ???
 
Je ne sais pas si j'ai été bien claire, mais si quelqu'un arrive à me répondre merci d'avance !!!
 

Code :
  1. Public Sub FindManagementPFS()
  3. Dim Trouve As Range
  4. Dim Adresse1 As String
  5. Dim domaine As String
  6. Dim ColonneCopie As Range
  7. Dim MaLigne As Variant
  8. Dim MaPlage As Range
  9. Dim LaPlage As Range
  11.     'On sélectionne la colonne domaine de la phase ciblée
  12.     Set MaPlage = Range("PlageDomainePFS" )
  13.     'On sélectionne le domaine recherché
  14.     domaine = "Management"
  15.     'On associe le fait de trouver le domaine recherché à une variable
  16.     Set Trouve = MaPlage.Find(domaine)
  17.     'On initialise le compteur qui nous permettra d'insérer les lignes au bon endroit
  18.     ComptMan = 0
  19.    
  20.     If Not Trouve Is Nothing Then
  21.         Adresse1 = Trouve.Address
  22.         Do
  23.             'On sélectionne l'onglet source
  24.             With Sheets("DS PFS" )
  25.                 'On sélecionne les 3 cellules que l'on veut copier
  26.                 Set LaPlage = Application.Union(Cells(Trouve.Row, 3), Cells(Trouve.Row, 4), Cells(Trouve.Row, 6), Cells(Trouve.Row, 7))
  27.                 Range(LaPlage.Address).Copy
  28.             End With
  29.             'On sélectionne l'onglet de destination
  30.            
  31.             With Sheets("DS PFS-FS-DEF-C0-C1-C2-D" ).Range("PlageManMulti" )
  32.             'Sheets("DS PFS-FS-DEF-C0-C1-C2-D" ).Select
  33.                 MaLigne = .Address
  34.                 MaLigne = Range(MaLigne).Row
  35.                 'On décale la sélection
  36.             End With
  37.            
  38.             Sheets("DS PFS-FS-DEF-C0-C1-C2-D" ).Select
  39.             Sheets("DS PFS-FS-DEF-C0-C1-C2-D" ).Range("PlageManMulti" ).Offset(ComptMan).Select 'offset à incrémenter selon le nombre de passage ds la boucle
  40.      
  41.            
  42.             ActiveSheet.Paste
  43.             'On coche la phase où se déroule la tâche
  44.             Sheets("DS PFS-FS-DEF-C0-C1-C2-D" ).Cells(MaLigne + ComptMan, 7).Value = "x"
  45.                
  46.             'On boucle pour supprimer les doublons lorsque l'on réexécute le programme
  47.             While Sheets("DS PFS-FS-DEF-C0-C1-C2-D" ).Cells(MaLigne + ComptMan + 1, 3).Value <> "arc"
  48.                 Sheets("DS PFS-FS-DEF-C0-C1-C2-D" ).Rows(MaLigne + ComptMan + 1).Delete
  49.             Wend
  50.            
  51.             'On ajoute une ligne où sera copier la tâche suivante
  52.             Sheets("DS PFS-FS-DEF-C0-C1-C2-D" ).Cells(MaLigne + ComptMan + 1, 3).EntireRow.Insert Shift:=xlUp
  53.             ComptMan = ComptMan + 1
  54.             Set Trouve = MaPlage.FindNext(Trouve)
  55.         Loop While StrComp(Adresse1, Trouve.Address) <> 0
  56.     End If
  57.    
  58. End Sub


Message édité par bat001 le 07-09-2012 à 15:56:16
Reply

Marsh Posté le 07-09-2012 à 15:53:38   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed