problème de boucle

Bonjour,

Dans un soucis de cohérence orthographique, je souhaite réaliser une petite application qui permets d'extraire uniquement les rues d'une commune.
Je dispose d'une base de données où se trouvent tant les codes postaux que toutes les rues du pays et pour ce faire je me suis basé sur un exemple développé par Mr Boisgontier.

Ma clé de recherche est basée sur le code postal qui une fois isolé doit me donner uniquement les rues de cette commune.
Le problème est que mon application se positionne sur la 1ère de la commune cherchée mais collecte ensuite toutes les rues jusqu'au bas sans sortir de la boucle ainsi que prévu

Voici mon développement:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub rue_Change()   Dim ligne As Long Dim derlign As Long Set f2 = Sheets("BDD_rues") derlign = f2.Cells(Rows.count, 1).End(xlUp).Row ligne = f2.[E:E].Find(What:=CP).Row 'ici je me positionne sur la 1ère cellule comprenant le CP souhaité For i = Cells(ligne, 5).Row To derlign Step 1 If Cells(ligne, 5) = Cells(ligne + 1, 5) Then Me.rue.AddItem f2.Cells(ligne, "G") Else Exit For End If Next i Me.rue.DropDown   End Sub

---

merci d'avance pour votre aide

Bonjour,

Ci-dessous une proposition de code qui suppose :
¤ que les données dans votre feuille Excel commencent à la ligne 2,
¤ que les codes postaux sont triés,
¤ qu'il n'y a pas de ligne vide avant la fin de votre tableau.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub rue_Change() Dim ligne As Long, trouv as Boolean trouv = False With Sheets("BDD_rues") ligne = 2 Do While .Cells(ligne, 5).Text <> "" If .Cells(ligne, 5).Text = CP Then trouv = True If trouv Then If .Cells(ligne, 5).Text <> CP Then Exit Do Me.rue.AddItem .Cells(ligne, 7).Text End If ligne = ligne +1 Loop End With Me.rue.DropDown End Sub

---

Beaucoup de variations sont possibles.
Mais pour ce type de boucle simple, il est généralement peu utile de surinvestir dans l'optimisation du code.

Cdt

Bonjour,

Pour ce qui est de ton problème, pourquoi ne pas utiliser un filtre tout simplement ? En plus d'être simple d'utilisation c'est aussi beaucoup plus rapide qu'une boucle.

Bonjour propsper02,

Je suis d'accord avec halaster08 sur le choix d'utiliser les filtres mais je vais corriger (l'erreur que j'ai trouvé) dans ton code malgré tout :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub rue_Change()   Dim ligne As Long Dim derlign As Long Set f2 = Sheets("BDD_rues") derlign = f2.Cells(Rows.count, 1).End(xlUp).Row ligne = f2.[E:E].Find(What:=CP).Row 'ici je me positionne sur la 1ère cellule comprenant le CP souhaité For i = Cells(ligne, 5).Row To derlign Step 1 'If Cells(ligne, 5) = Cells(ligne + 1, 5) Then 'Tu as utilisé la variable "ligne" dans ton test, mais ligne ne varie pas avec le for. Il faut remplacer par "i" If Cells(i, 5) = Cells(i+ 1, 5) Then Me.rue.AddItem f2.Cells(ligne, "G") Else Exit For End If Next i Me.rue.DropDown   End Sub

---

Zeabon

Salut.

Perso, j'éviterais les boucles et je travaillerais avec des tableaux structurés. C'est pour moi incontournable en 2020 et c'est presque une faute professionnelle de ne pas les utiliser... ;)

Vu le code que tu montres, j'ai supposé que tu travaillais avec un userform et des combobox pour le choix de la ville puis le choix des rues.

L'avantage des tableaux structurés, c'est qu'ils permettent un code sans boucle, sans EXIT FOR (Beeeeuuurkkkk) et permettent de créer un code indépendant de l'emplacement des données dans ton classeur.

Au départ, deux tableaux, un pour les villes et un pour les paires Ville/Rue. A l'appel du userform, ces tableaux seront triés, celui des villes sur les villes, celui des rues sur les villes puis les rues. On alimente le combobox des villes par une ligne de code, et lors du choix d'une ville, on alimente le combobox des rues grâce à 4 lignes de code sans boucle.

Les deux tableaux structurés, t_Villes et t_Rues

Pièce jointe 582364

Le code d'appel du userform (on pourrait rendre les procédures de tri génériques, bien entendu. Ce serait un plus indéniable pour tes développements futurs)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub test() With Range("t_Villes").ListObject.Sort .SortFields.Clear .SortFields.Add Range("t_Villes[Ville]") .Apply End With   With Range("t_Rues").ListObject.Sort .SortFields.Clear .SortFields.Add Range("t_Rues[Ville]") .SortFields.Add Range("t_Rues[rue]") .Apply End With   With UserForm1 .cboCities.List = Range("t_Villes[Ville]").Value .Show End With End Sub

---

Le code du userform

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Option Explicit   Private Sub cboCities_Change() PrepareCboStreets End Sub   Sub PrepareCboStreets() Dim Pos As Long, CountOf As Long Dim Streets As Range   Pos = Application.Match(cboCities.Value, Range("t_Rues[Ville]"), 0) CountOf = Application.CountIfs(Range("t_rues[Ville]"), cboCities.Value) Set Streets = Range("t_rues[Rue]")(Pos).Resize(CountOf) cboStreets.List = Streets.Value End Sub

---

EDIT

Mille excuses, Pierre.
Pendant que je rédigeais ma réponse, j'ai vaqué à une autre occupation, d'où ce télescopage.

Bonjour,

Ben

Citation:

---

Mais pour ce type de boucle simple, il est généralement peu utile de surinvestir dans l'optimisation du code

---

Pas du tout, mais alors pas du tout d'accord.
Un code s'optimise dès son départ.
La rigueur servira à un meilleur développement par la suite et contribuera à une meilleure architecture du projet.
Quant au Do While cells non vide...

Halaster,

Quand bien même les cellules seraient filtrées.
Une boucle serait à envisager sur les cellules visibles.

Pour ce qui me semble être la gestion de combobox en cas cade.

Si tu as une structure de tableaux structurés ainsi conçue

Pièce jointe 582371

Alors

Procédure d'appel placée dans un module standard

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Option Explicit   Sub ESSAI() Dim v As Range With Usf_choix_ville .Cb_Villes.Clear For Each v In Worksheets(1).Range("T_VILLES") .Cb_Villes.AddItem v.Value Next v .Show End With   End Sub

---

Dans le code affecté au formulaire

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub Cb_Villes_Change() Call filtre_tablostruc(Cb_Villes.Value) End Sub   Public Sub filtre_tablostruc(choixville As String)   Dim i As Long   Me.Cb_Rues.Clear   With Worksheets(1) For i = 1 To .Range("T_Localiltés[Ville]").Count Debug.Print .Range("T_Localiltés[Ville]").Cells(i, 1).Value If .Range("T_Localiltés[Ville]").Cells(i, 1).Value = choixville Then _ Cb_Rues.AddItem .Range("T_Localiltés[Rue]").Cells(i, 1).Value Next i End With   End Sub

---

C'est une base de départ.

Plus élaborée mais plus performante reste la proposition de Pierre dans ce billet et cette discussion..

(Gestion des Property...)

Salut Marcel,

Pas de soucis. Un forum est un lieu d'échanges et chacun y publie la solution qui lui plait.

Cela dit, je ne comprends pas pourquoi tu passes par une boucle pour alimenter le combobox des villes alors qu'un combobox expose List pour récupérer un array bien formé (comme une colonne d'une table de données) et Column pour récupérer un arrray transposé (en provenance d'un recordset, par exemple), tout cela en une ligne de code. Les boucles seront toujours plus lourdes que les outils natifs. Je ne vois donc pas le bénéfice de ta méthode. :koi:

Je sais que certains esprits chagrins vont encore imaginer que je joue à qui a la meilleure, mais je pense qu'il faut au maximum utiliser Excel en VBA lorsque c'est possible (voir ma signature ;) ). Si en plus on peut se passer de boucles qui sont toujours chronophages en VBA, autant en profiter.

Salut Pierre,

Je n'avais pas consulté les liens en référence.
Je viens d'ouvrir mon utilitaire et j'ai constaté mon omission. (Propriété List)
Pire, je 'y avais pas pensé (fin de journée).

Don't Act.

Pas fâché :D

Pas d'esprit chagrin de la part de Marcel. Pour preuve...

Et ce jeu là...:D:D:D

Marcel,

Ca a permis la piqûre de rappel. C'est donc une bonne chose ;) => :plusser:

PS: Je ne t'oublie pas pour ma visite de l'Italie, mais COVID oblige, c'est reporté sine die, hélas... :triste:

Bonjour à tous,

un grand merci pour votre aide qui m'a permis de régler mon problème et faire un pas en avant grâce à la notion de tableaux structurés.
Merci aussi pour la correction des erreurs que j'avais commises dans mes lignes de code, çà m'a permis de comprendre, chose essentielle au final