Boucle for next

Bonjour à tous,

Petit nouveau sur ce forum et en VBA, j'ai tenté une 1er expérience et ça m'a permis de faire un bon de géant. Vraiment super.

Je reviens à la charge avec un autre bout de code qui me bloque. C'est ma 1er boucle que je fais, et je n'arrive pas à trouver le problème. C'est une boucle que j'aimerais qui me réalise la chose suivante:

1 - Choisir deux critère dans la feuil 1, le mois en en ligne 12 avec colonne incrémenté de i +1, et l'année en ligne 11 avec la même incrémentation.
2 - Appliquer le filtre sur les données en feuil2
3 - Recueillir la valeur max des données filtrées
4 - Mettre le résultat en feuil 1 à la ligne 53 avec colonne incrémenté i+1

Recommencer la procédure de i = 2 à 14...

Voici le code. C'est certainement pas le plus beau en ville, mais je commence tranquillement à mieux comprendre le code...

Merci d'avance pour votre aide!!

** Note, le code marche num. 1 sans la boucle...

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

Sub max_baseUS_offre_2()   'Met à jour la valeur max des bases $US des offres reçus Dim Max As Double Dim i As Integer     For i = 2 To 14     'Premier critère de filtre par mois en colonne 17 dans enregistrement Worksheets("Enregistrements").Range("$A$3:$AB$17").AutoFilter Field:=17, _ Criteria1:=ActiveSheet.cell(12, i).Value, VisibleDropDown:=False   'Deuxième critère de filtre par annee en colonne 19 dans enregistrement Worksheets("Enregistrements").Range("$A$3:$AB$17").AutoFilter Field:=19, _ Criteria1:=ActiveSheet.cell(11, i).Value, VisibleDropDown:=False   'Déterminer la valeur maximum de la plage obtenu Max = WorksheetFunction.Max(Sheets("Enregistrements").Range("h4:h1048572").SpecialCells(xlCellTypeVisible))   'Placer le résultat à la bonne place dans le feuille active ActiveSheet.Range.Cells(53, i) = Max   'Désactiver le filtre dans enregistrement Worksheets("Enregistrements").AutoFilterMode = False   Next i Do While i < 14 i = i + 1   Loop   End Sub

---

Bonjour,
Un filtre répond à des critères.
Est-ce vraiment utile de passer par une procédure VBA, avec boucles de surcroît, pour connaître la valeur maximale de données filtrées (donc répondant à des critères) alors qu'une simple fonction BDMAX peut faire l'affaire ?

Effectivement, j'avais envisagé cette solution, mais mon premier objectif est davantage d'apprendre à mieux maîtriser le VBA, et non nécessairement d'utiliser dans ce cas-ci la meilleure solution. Ici, mon idée était surtout de faire un 1er test de boucle pour voir comment elles fonctionnent...

Bonjour,

Citation:

---

mon premier objectif est davantage d'apprendre à mieux maîtriser le VBA, et non nécessairement d'utiliser dans ce cas-ci la meilleure solution

---

Dans ce cas, au lieu d'utiliser la fonction SOMME d'excel, tu peux également créer un code VBA avec une boucle :P
Je crois sincèrement que si tu veux apprendre le VBA, une bonne maîtrise d'excel est un plus et te permettra de vraiment exploiter ce langage là où excel n'apporte pas de réponses satisfaisante ou automatiser une tâche répétitive faite manuellement et la parfaite connaissance du produit réduit le temps de programmation et de maintenance.

Je joins l'utile à l'agréable...

J'aime mieux faire des tests essai erreur sur des choses qui m'intéressent, que sur des formules simples reproduites d'Excel. Le défi stimule la curiosité et l'apprentissage. 8-)

Ceci dit, je comprends très bien votre suggestion.

C'est dire que mon code est donc vraiment encore loin du compte et certainement pas ce qu'il y a de plus propre, pas plus qu'approprié pour une boucle... :mrgreen:

Merci

Bonjour,

Juste une petite astuce

La variable i (idem pour j, k, l, m ...) étant mis pour tout il est important de ne les garder que pour l'incrémentation de tableaux exemple :

Code:

---

1 2 3 4 5 6 7

Sub Vid_Tab() Dim Tablo(1 To 10) As String Dim i As Byte For i = 1 To 10 Tablo(i) = "" Next End Sub

---

pour toi i c'est l'incrémentation de tes colonnes
Je te conseille pour colonne la variable "Col" et pour ligne : "Lign"

Ce n'est pas vital c'est juste plus facile à lire et surtout à maintenir

Attention

Concernant les noms de variables il ne faut jamais utiliser les mots réservés


Voici ce que cela pourrait donner avec ton Code

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

Sub max_baseUS_offre_2()   'Met à jour la valeur max des bases $US des offres reçus Dim Max As Double Dim col As Integer     For col = 2 To 14     'Premier critère de filtre par mois en colonne 17 dans enregistrement Worksheets("Enregistrements").Range("$A$3:$AB$17").AutoFilter Field:=17, _ Criteria1:=ActiveSheet.cell(12, col).Value, VisibleDropDown:=False   'Deuxième critère de filtre par annee en colonne 19 dans enregistrement Worksheets("Enregistrements").Range("$A$3:$AB$17").AutoFilter Field:=19, _ Criteria1:=ActiveSheet.cell(11, col).Value, VisibleDropDown:=False   'Déterminer la valeur maximum de la plage obtenu Max = WorksheetFunction.Max(Sheets("Enregistrements").Range("h4:h1048572").SpecialCells(xlCellTypeVisible))   'Placer le résultat à la bonne place dans le feuille active ActiveSheet.Range.Cells(53, col) = Max   'Désactiver le filtre dans enregistrement Worksheets("Enregistrements").AutoFilterMode = False   Next col Do While col < 14 col = col + 1   Loop   End Sub

---

Concernant tes boucles je vois que tu as compris que la boucle For n'a pas besoin d'incrémentation puisque c'est inclus dans le "Next" et que la boucle "Do" elle en a besoin

MAIS

dans ton code la boucle "Do" ne s'exécute jamais parce que quand tu sort du "For" ta variable à déjà 14 !

Voilà

A+

Merci pour ces explications. J'en apprend toujours plus et j'adore. En retournant dans ce bout de code, j'ai mis en application tes suggestions et ça fonctionne. Très bonne idée aussi pour l'identification des variables en Col.

Seul hic, mon filtre semble filtrer dans le vide puisque je n'obtiens aucun résultat sauf un 0 tout bête là où il devrait y avoir un résultat. Quand je surveiller l'exécution de la macro, je constate d'ailleurs que mes filtres signal 0 résultats obtenus sur 14 enregistrements filtrés à chaque loop.

Je me demande si c'est ma variable max qui pose problème, ou plutôt le recueille du critère de référence du filtre dans l'autofilter...:?

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

Sub max_baseUS_offre()   'Met à jour la valeur max des bases $US des offres reçus Dim Max As Double Dim col As Integer   For col = 2 To 14   Worksheets("Enregistrements").AutoFilterMode = False   'Premier critère de filtre par mois en colonne 17 dans enregistrement Worksheets("Enregistrements").Range("$A$3:$AB$17").AutoFilter Field:=19, _ Criteria1:="=ActiveSheet.cell(11, col).Value", VisibleDropDown:=False   'Deuxième critère de filtre par annee en colonne 19 dans enregistrement Worksheets("Enregistrements").Range("$A$3:$AB$17").AutoFilter Field:=17, _ Criteria1:="=ActiveSheet.cell(12, col).Value", VisibleDropDown:=False   'Déterminer la valeur maximum de la plage obtenu Max = WorksheetFunction.Max(Sheets("Enregistrements").Range("h4:h1048572").SpecialCells(xlCellTypeVisible))   'Placer le résultat à la bonne place dans le feuille active ActiveSheet.Cells(53, col) = Max     Next col Do While col < 14 col = col + 1   Loop 'Désactiver le filtre dans enregistrement Worksheets("Enregistrements").AutoFilterMode = False   End Sub

---