Discussion :

[prosper02]

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 :

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
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

[Ben_L]

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 :

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
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

[halaster08]

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.

[MarcelG]

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

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



Alors

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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...)

[Zeabon]

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 :

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
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

[Pierre Fauconnier]

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



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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pierre Fauconnier]

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.

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.

[MarcelG]

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é

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

Et ce jeu là...

[Pierre Fauconnier]

Marcel,

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

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

[prosper02]

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