[VBA-E] ListBox et Codes postaux

**forsay1** · 02/03/2006, 10h47

Bonjour a tous

Voila mon problème :

Lors de la saisie d'un code postal, il affiche directement la ville cependant il y a plusieurs villes qui ont le meme code postal. Ce que j'ai pensé faire c'est créer une listbox avec le nom des villes qui ont le code postal saisie...

Probleme : les codes postaux sont sur une feuille excel donc et lorsqu'il rencontre une ville possedans le meme code postal il les stock dans la list box MAIS pour les premieres villes cela fonctionne mais il ne m'ajoute pas la derniere ville ce qui m'agace !!
Je sais pourquoi il n'ajoute pas la derniere ville mais je ne sais pas comment resoudre le problème

Je vous montre le code que j'ai utilisé :

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
j=2
If Txt_Cp.TextLength = 5 Then
 
  For i = 1 To 38621
 
    If ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1).Value = Txt_Cp.Text And Ville = "" Then
      If ThisWorkbook.Worksheets("CodesPostaux").Cells(j, 1) <> ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1) Then
        Ville = ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value
      Else
        UserForm4.ListBox_CodesPostaux.AddItem (ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value)
      End If
    End If
    j = j + 1
  Next i
Else
  Lbl_Ville.Caption = ""
End If

J'espere avoir été clair
Merci d'avance

**Megaxel** · 02/03/2006, 12h20

Hello!
Je ne comprend pas tout.
Si tu mettais les balises de code, en indentant , ça serait plus lisible.
Il vaut combien, J, au début ?

**forsay1** · 02/03/2006, 15h00

desolé pour les balises

j = 2 au depart

**forsay1** · 02/03/2006, 20h03

Voilà j'ai renommer le titre...

**ouskel'n'or** · 02/03/2006, 20h30

C'est bien !

Je regarde ta question

**ouskel'n'or** · 02/03/2006, 20h37

Dans ce test :

If Txt_Cp.TextLength = 5 Then

Qu'est-ce que "Txt_Cp"

Je sais pourquoi il n'ajoute pas la derniere ville mais je ne sais pas comment resoudre le problème

Dis nous déjà pourquoi, ça nous aidera... Et même, cela pourra dte donner la solution...

A+

**SfJ5Rpw8** · 02/03/2006, 21h15

moi je comprends pas ce que tu fais avec ton J ...? et pourquoi tu ne rajoute pas tout simplement dans ta list box toutes les villes qui ont le bon code postal ...?

à la limite en fin de traitement tu peu tester le nb d'élément dans ta liste pour le transférer automatiquement s'il n'y en as qu'un...

Code :

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

1
2
3
4
5
6
7
8
9
10
if UserForm4.ListBox_CodesPostaux.ListCount = 1 then
  Lbl_Ville.Caption = UserForm4.ListBox_CodesPostaux.List(0)
 Else
 '... a voir affiche userform..4 liste de choix
  Userform4.show
  if UserForm4.ListBox_CodesPostaux.ListIndex >= 0 then
  Lbl_Ville.Caption = UserForm4.ListBox_CodesPostaux
 end if
 
end if

**ouskel'n'or** · 02/03/2006, 21h42

Oui, ou un list box à deux colonnes... Tu répètes le code postal pour les villes ayant le même...

**forsay1** · 02/03/2006, 23h27

Ben en fait c'est vrai j'ai pensé tout charger au demarrage de l'application mais vu le nombre de code postaux mais c juste pour eviter d'avoir un temps d'accès trop long...

pour repondre a ouskel'n'or :

Txt_Cp est la boite de texte de la Userform1

et pour la connaissance de mon probleme le voici et je ne sais pas si je vais etre clair dans mon explication lol :

en fait ce qu'il se passe c que tant qu'il trouve un code postal egale a la ligne suivante il ajoute la ville a la ListBox mais dès qu'il arrive au dernier enregistrement forcément la ligne suivante sera differente donc il ne l'ajoutera pas a la List_Box.

Donc il y aura toujours le dernier enregistrement qui manquera dans la ListBox.

Comment faire pour prendre en compte cet enregistrement ?

**SfJ5Rpw8** · 03/03/2006, 09h51

tiens voila le code complet que je te propose...

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
20
21
22
23
24
25
 
Private Sub Txt_Cp_Change()
 
If Txt_Cp.TextLength = 5 Then
' On rempli la list box...
 For i = 1 To 38621
         If ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1).Value =  Txt_Cp.Text Then
                 UserForm4.ListBox_CodesPostaux.AddItem (ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value)
         End If
  Next i
if UserForm4.ListBox_CodesPostaux.ListCount <= 0 then exit sub 
 
 
 If UserForm4.ListBox_CodesPostaux.ListCount = 1 Then
   Lbl_Ville.Caption = UserForm4.ListBox_CodesPostaux.List(0)
  Else
  '... a voir affiche userform..4 liste de choix
   UserForm4.Show
   If UserForm4.ListBox_CodesPostaux.ListIndex >= 0 Then
   Lbl_Ville.Caption = UserForm4.ListBox_CodesPostaux
  End If
 
 End If
End if
end Sub

[edit] modification du code pour le mettre dan txt_change...

**ouskel'n'or** · 03/03/2006, 10h28

dès qu'il arrive au dernier enregistrement forcément la ligne suivante sera differente donc il ne l'ajoutera pas a la List_Box

Pourquoi ? Si pouvais expliquer en mettant ton code...
Mais essaie le code de bbil. On verra après

A+

**Megaxel** · 03/03/2006, 11h03

Tu ne pourrais pas aussi nous montrer un morceau de l'onglet Excel où sont stockés les codes postaux et les noms des villes.
J'ai comme un doute...

Merci.

**forsay1** · 03/03/2006, 18h30

Envoyé par ouskel'n'or

dès qu'il arrive au dernier enregistrement forcément la ligne suivante sera differente donc il ne l'ajoutera pas a la List_Box

Pourquoi ? Si pouvais expliquer en mettant ton code...
Mais essaie le code de bbil. On verra après

A+

alors pourquoi ? je m'explique
ps : Desolé pour l'indentation mais j'arrive pas a le faire sur le forum

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
 
If Txt_Cp.TextLength = 5 Then
 
    For i = 1 To 38621
 
        If ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1).Value = Txt_Cp.Text And Ville = "" Then 'IL VERIFIE SI L'ENREGISTREMENT EN COURS EST BIEN EGALE AU CP SAISIE
            If ThisWorkbook.Worksheets("CodesPostaux").Cells(j, 1) <> ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1) Then ' VERIFIE SI L'ENREGISTREMENT SUIVANT EST DIFFERENT DE L'ENREGISTREMENT EN COURS (en gros si le code postale est unique)
                Ville = ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value
            Else 'SI LE CODE POSTAL EXISTE PLUSIEURS FOIS ALORS IL AJOUTE LES VILLE DANS LA LISTBOX
                UserForm4.Show
                UserForm4.ListBox_CodesPostaux.AddItem (ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value)
            End If
        End If
        j = j + 1
    Next i
Else
    Lbl_Ville.Caption = ""
'End If

J'ai commenté un peu mon code pour savoir ce qu'il se passe

Maintenant j'illustre le tout par des explications supplémentaires et a l'aide d'un exemple:

Admettons qu'il y ai 5 CP en tout comme

45123
45145
45145
45145
48170
50000

lors de mon test pour savoir si le CP existe plusieurs fois
on a le compteur i qui equivaut a l'enregistrement en cours et le compteur j qui est l'enregistrement suivant (i = 1 ; j = 2)

lorsque i = 2 j vaut 3
donc le cp existe deja alors il va ajouter l'enregistrement i dans la listbox

mais quand i = 4 j vaut 5 or cette fois ci j sera different de l'enregistrement i alors il ne l'ajoutera pas dans la listbox

voila j'espere que vous comprenez un peu mieux

sinon pour le code de bbil il ne fonctionne pas correctement

a savoir que le code est effectuer dans la procedure

Code :

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

1
2
3
 
 
Private Sub Txt_Cp_Change()

Et lorsque j'executer son code je tape 1 chiffre il m'affiche la liste des CP

**SfJ5Rpw8** · 04/03/2006, 01h09

Envoyé par forsay1

sinon pour le code de bbil il ne fonctionne pas correctement

a savoir que le code est effectuer dans la procedure

Code :

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

1
2
3
 
 
Private Sub Txt_Cp_Change()

Et lorsque j'executer son code je tape 1 chiffre il m'affiche la liste des CP

bon j'ai modifié le code en fonction

**forsay1** · 13/03/2006, 11h07

Ca y'est j'ai enfin trouvé solution a mon problème

voici le code pour les interéssés :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
If Txt_Cp.TextLength = 5 Then
 
    For i = 1 To 38621
 
        If ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1).Value = Txt_Cp.Text And Module1.Ville = "" Then
            If ThisWorkbook.Worksheets("CodesPostaux").Cells(j, 1).Value <> ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1).Value And ThisWorkbook.Worksheets("CodesPostaux").Cells(i - 1, 1).Value <> ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1).Value Then
                Module1.Ville = ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value
            Else
                If Txt_Cp.Text = ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 1).Value Then
                    UserForm4.ListBox_CodesPostaux.AddItem (ThisWorkbook.Worksheets("CodesPostaux").Cells(i, 2).Value)
                End If
            End If
        End If
        j = j + 1
    Next i
 
    If UserForm4.ListBox_CodesPostaux.ListCount >= 1 Then
        UserForm4.Show
    End If
 
Else
    Lbl_Ville.Caption = ""
    Module1.Ville = ""
End If
 
If Module1.Ville = "" And Txt_Cp.TextLength = 5 Then
    MsgBox "Code postal inexistant !", vbExclamation, "Code Postal"
    Txt_Cp.Text = ""
Else
    Lbl_Ville.Caption = Module1.Ville
End If

[VBA-E] ListBox et Codes postaux

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager