Boucle dans code VBA

Version imprimable

Bonjour à tous,

Je viens vers vous car j'ai créé un code VBA pour effectuer une action. Il fonctionne sur le principe, mais il est hyper lourd !
Je répète du code à bloc, alors qu'avec une boucle je pense que se serait plus léger !!
Mais voila, je galère avec les boucles !!! :lol:

Pourriez vous m'aider !

L'explication du code est simple, il regarde sur un onglet ("Casiersafermer") la plage F15 à F18 ( y a des références dans cette plage, style HB1, HB2, ect...) et regarde dans un autre onglet ("BasedeDonnées") qui est ma BDD, s'il voit une référence qui se trouve dans ma plage F15 à F18 du premier onglet, il doit l'effacer dans ma base de donnée.

Pour Infos Sur ma BDD, les références se trouve en colonne 17.
A titre d'info puisque je ne maitrise pas la fonction clear, j'ai "triché" en allant copier une cellule déjà vide la A1 de l'onglet "Casiersafermer" :ptdr:

Voici le code dégueulasse que j'ai fait :( :
Code:

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 36 37 Sub miseàjourVest() Dim F1 As Worksheet Dim F2 As Worksheet Set F1 = Sheets("BasedeDonnées") Set F2 = Sheets("Casiersafermer") Dim plage As Range Set plage = F1.Range("Q3:Q800") codrecherché = F2.Range("F15").Value Application.ScreenUpdating = False For Each cell In plage If cell.Value = codrecherché Then F1.Cells(cell.Row, 17) = F2.Range("A1") End If Next cell codrecherché = F2.Range("F16").Value Application.ScreenUpdating = False For Each cell In plage If cell.Value = codrecherché Then F1.Cells(cell.Row, 17) = F2.Range("A1") End If Next cell codrecherché = F2.Range("F17").Value Application.ScreenUpdating = False For Each cell In plage If cell.Value = codrecherché Then F1.Cells(cell.Row, 17) = F2.Range("A1") End If Next cell codrecherché = F2.Range("F18").Value Application.ScreenUpdating = False For Each cell In plage If cell.Value = codrecherché Then F1.Cells(cell.Row, 17) = F2.Range("A1") End If Next cell Application.ScreenUpdating = True End Sub
Désolé de vous montrer ce code les gars !!! J'ai honte !!!!:oops:

En vous remerciant d'avance.

Bonne journée à tous... ;)

Cordialement,

Bonjour,
Pour effectuer un travail répétitif, outre la boucle, il est intéressant de créer une procédure avec arguments. Par exemple la plage source et la plage cible.
On crée ainsi une boucle qui cherche, sélectionne ou ouvre suivant les cas les plages concernées et invoque la procédure en question en lui passant les arguments.

Petit exemple d'une boucle qui invoque la procédure nommée ProcessStandard en lui passant les deux arguments
Code:

1 2 3 4 5 6 7 8 9 10 Sub t() Dim rngSource As Range ' Plage source Dim Table() Dim Elem As Integer Table = Array("T_Data_1", "T_Data_2", "T_Data_3") ' Nom de trois tables structurées For Elem = 0 To UBound(Table) ProcessStandard Range("T_Source"), Range(Table(Elem)) Next Set rngSource = Nothing: Set oTable = Nothing End Sub
Code:

1 2 3 4 Sub ProcessStandard(SourceTable As Range, TargetTable As Range) ' Code VBA Debug.Print SourceTable.Address, TargetTable.Address End Sub
Tutoriel à lire éventuellement sur le sujet La gestion des boucles dans Excel

Pour comparer le contenu de 2 colonnes en affichant les données qui sont communes ou qui sont absentes, il existe une fonction native d'excel EQUIV en imbriquant éventuellement en plus ESTNA et NON
Voir ces deux billets sur le sujet

Comment comparer (matcher) des données dans Excel
Exporter les données comparées (« Matchées »)

Cette formule d'excel peut être bien entendu placée à l'aide d'une procédure VBA

Autre proposition :
C'est du code non testé, tu auras donc peut-être du débugage à faire.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub miseàjourVest()
   Dim F1 As Worksheet
   Dim F2 As Worksheet
   Dim Test(4) As Variant
   Dim cell as Range
 
   Set F1 = Sheets("BasedeDonnées")
   Set F2 = Sheets("Casiersafermer")
   Test(1) = F2.Range("F15").Value
   Test(2) = F2.Range("F16").Value
   Test(3) = F2.Range("F17").Value
   Test(4) = F2.Range("F18").Value
 
   Application.ScreenUpdating = False
 
   For Each cell In F1.Range("Q3:Q800")
      Select Case cell.Value
      Case Test(1), Test(2), Test(3), Test(4)
         F1.Cells(cell.Row, 17) = F2.Range("A1")
      End Select
   Next cell
End Sub

Il aurait sans doute été plus élégant de faire ça avec un Find.

Salut.

Je te propose une approche sans hardcoding du nombre des valeurs et de leur emplacement. L'utilisation des tableaux structurés suppriment de ton code VBA le nombre de données à chercher ainsi que les adresses des plages et des cellules. Je pars de deux tableaux structurés, Tableau1 qui contient les valeurs à supprimer éventuellement, et Tableau2 qui contient les valeurs de test (celles que l'on recherche dans Tableau1 pour les supprimer).

L'idée est de boucler sur les valeurs à chercher (les trois valeurs dans le cas que tu évoques) et de les rechercher par Application.Match, en bouclant tant que Match ne renvoie pas d'erreur. Tu délègues ainsi à Excel le fait de rechercher, ce qui est plus rapide en général que deux boucles imbriquées. Ici, j'ai testé avec un tableau de 100000 lignes parmi lesquelles on cherche à supprimer les valeurs se trouvant dans un tableau de 10 lignes.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub Test() Dim i As Long Dim Index Application.ScreenUpdating = False For i = 1 To Range("tableau2[test]").Count Do Index = Application.Match(Range("tableau2[test]")(i).Value, Range("tableau1[valeurs]"), 0) If Not IsError(Index) Then Range("tableau1[Valeurs]")(Index).Delete Loop While Not IsError(Index) Next i End Sub
En passant les noms des plages structurées en arguments, tu peux rendre ce processus générique. Note toutefois que la taille des tableaux a ici son importance, et que l'on pourrait optimiser pour de plus grands tableaux, notamment en triant le grand tableau pour accélérer la recherche avec MATCH, par exemple.

Cela dit, si c'est pour un oneshot, une solution Excel sans vba est très rapide également.