Problème de ListIndex

Version imprimable

16/04/2019, 17h29
plucdec

Problème de ListIndex

Bonjour à tous
Je dispose d'une feuille excel Data avec entre autres une colonne Nom et une colonne Prénom
J'ai créé un formulaire pour entrer ces données dans cette feuille Data. Tout fonctionne . Quand j'appelle le formulaire, je retrouve bien mes noms dans la combobox (RowSource nommée Nom et qui s'incrémente avec une fonction DECALER) . Cette RowSource comprend 2 noms :BLANC SIMONE et BLANC ROBERT et il se trouve que lorsque je veux sélectionner un des deux, le listIndex est toujours le même . Pour être un peu plus clair, ces deux personnes occupent la position 4 et 5 dans la rowsource mais le ListIndex est toujours 3.
Je précise qu'il y a d'autres homonymes et que pour tous ces autres cas le listIndex est le bon .
J'ai réglé le problème en ne faisant qu'une seule colonne pour les noms-prénoms mais j'aimerais bien comprendre le pourquoi de ce qui me semble une anomalie
Merci à celui ou celle qui pourrait m'éclairer
16/04/2019, 18h52
boisgontierjacques

Bonsoir,

Mettre le nom et le prénom dans 2 colonnes complique.
Il est + simple de mettre le nom et le prénom dans la même cellule.

Boisgontier
16/04/2019, 21h04
plucdec

Citation:

Envoyé par boisgontierjacques

Bonsoir,

Mettre le nom et le prénom dans 2 colonnes complique.
Il est + simple de mettre le nom et le prénom dans la même cellule.

Boisgontier

Bonsoir
Effectivement car moins de risque d'avoir des homonymes. Il n'en reste pas moins que des fédérations (de sport) en faisant des exportations font que des clubs se retrouvent avec ce type de disposition sur 2 colonnes (nom et prénom). J'ai eu l'occasion d'en traiter plusieurs et après vérification, aucune ne comportait de Mme et Mr BLANC!
Ce qui me surprend c'est que le listindex fonctionne parfaitement pour tous les couples de ce tableau à l'exception donc de ce patronyme, d'où ma question
Merci toutefois pour votre réponse
16/04/2019, 21h58
unparia

Bonjour
Juste deux questions précises :
1) par quel(s) geste(s) sélectionnes-tu dans la combobox ?
2) quel code utilises-tu (depuis la déclaration de la procédure jusqu'à End sub inclus)pour déterminer la propriété listindex correspondant à ta sélection) ?
J'espère que tu ne te contentes pas de saisir dans la zone d'édition ... ;)

Quant à :

Citation:

Il n'en reste pas moins que des fédérations (de sport) en faisant des exportations font que des clubs se retrouvent avec ce type de disposition sur 2 colonnes

C'est également une règle sage (sinon la seule sage) et logique en matière de traitement de données.

Bonjour
Evidemment, comme je ne suis pas un expert du VBA, je ne comprends pas forcément les questions posées.
A la question 1, je peux dire par un clic sur la liste présente dans la combobox
A la question 2, je vous soumets ce que j'ai écrit, à savoir

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
Private Sub ComboBoxNom_Click()
 
Dim monAppel
monAppel = ActiveControl.Name
If monAppel <> "Valider" Then
UserForm1.Hide
monNom = UCase(UserForm1.ComboBoxNom.Value)
UserForm1.CBNom2.Value = UCase(UserForm1.ComboBoxNom.Value)
UserForm1.CBNom2.ZOrder (0)
 
monRang = ComboBoxNom.ListIndex + 1
        Sheets("Data").Select
        Range("C1").Select
                    With UserForm1
                        Club.Value = ActiveCell.Offset(monRang, -2).Value
                        .ComboBoxPrénom.Value = ActiveCell.Offset(monRang, 1).Value
                        .TextBoxFixe.Value = ActiveCell.Offset(monRang, 7).Value
                        .TextBoxPortable.Value = ActiveCell.Offset(monRang, 6).Value
                        .TextBoxMail.Value = ActiveCell.Offset(monRang, 8).Value
                        .TextBoxAdresse.Value = ActiveCell.Offset(monRang, 3).Value
                        .TextBoxAdresse2.Value = ActiveCell.Offset(monRang, 4).Value
                        .ComboBoxVille.Value = ActiveCell.Offset(monRang, 5).Value
                     .ComboBoxCivilité.Value = ActiveCell.Offset(monRang, -1).Value
                        .TextBoxMois.Value = ActiveCell.Offset(monRang, 9).Value
                        .TextBoxNaissance.Value = CDate(ActiveCell.Offset(monRang, 2).Value)
 
                End With
 
 
End If
 
UserForm1.Show 0
End Sub

Lorsque je regarde en pas à pas, le listindex est toujours 3 alors que MR BLANC est en 3ème position et Mme BLANC en 4ème position. Evidemment, je dois faire une boulette quelque part! La variable monRang est Public monRang As Integer.
Merci pour votre aide car il y a fort à faire