Discussion :

[mouftie]

Bonjour,
j'ai créé un formulaire de saisie Usf1 qui crée une feuille au nom des 8 premiers caractères du nom de famille saisie.
S'il y a doublon, le nom de la feuille prend la forme des 8 1ers caractères suivi de 2.
Parallèlement, une autre Usf2 liste les noms / prénoms.
la Usf2 est toujours accessible depuis la Usf1 et en cliquant sur un nom de la usf2, la feuille correspondante devient active.
Mon problème, est qu'en cas de doublon dans la Usf2, si on clique sur le 2ème nom, on active la 1ère feuille du nom et non la 2ème.

Est-ce quelqu'un peut m'aider svp

Code :

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

1
2
3
4
5
Private Sub LbxLstCo_Click()
'active la feuille sélectionnée à partir de la Usf2
    Sheets(Left(LbxLstCo.Value, 8)).Activate
'Unload Me
End Sub

[unparia]

Bonjour

Code :

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

Sheets(Left(LbxLstCo.Value, 8)).Activate

Il est clair que si tu ne prends que les 8 premiers caractères, tu ne risques jamais de te référer à la feuille à laquelle tu as ajouté ton 2.

[mouftie]

Merci unparia,
Si, je t'assure cela fonctionne puisque j'ai fait la même chose pour les noms des onglets.
ce qu'il me faut, c'est un code qui regarde s'il y a des doublons dans la liste et si oui, le 2ème ouvrira la feuille

Code :

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

Sheets(Left(LbxLstCo.Value, 8) & " 2").Activate

[Pierre Fauconnier]

Salut

Tu peux t'inspirer de ce qui suit, mais que feras-tu en présence de "triplons"?

Pour moi, ton approche est caduque et je soupçonne un problème d'organisation de ton classeur et de tes données. Peux-tu expliquer ce que tu souhaites obtenir?

[mouftie]

Bonsoir Pierre,
Merci de ta réponse.

Je fais un formulaire de saisie pour adresser des courriers à des clients qui sont au téléphone.
Donc l'utilisateur saisie les coordonnées du client, puis coche le type de courrier qu'il convient, passe au client suivant, la Usf1 se réinitialise et on recommence.

Mais il peut arriver que le client demande également qqch pour son conjoint.

Si l'utilisateur saisie une 2ème fois un même nom, il reçoit un message qui l'informe d'une première saisie et lui fait apparaître la Usf2 avec la liste des Noms / Prénoms, si le prénom est identique l'utilisateur peut annuler sa saisie et repartir sur un autre client (donc réinitialisation), sinon il continu sa saisie.

Il y a très peu de chance (1/100) pour qu'il y ait un 3ème nom ; je n'ai pas prévu ce cas

Tu me dis :

Tu peux t'inspirer de ce qui suit

il doit manquer la suite ?
Merci

[Pierre Fauconnier]

Oups... Désolé pour l'oubli du code. L'idée est de parcourir les items de la liste précédant celui sur lequel tu as double-cliqué, et si on trouve un nom identique, c'est qu'on est sur le doublon, sinon c'est qu'on est sur le premier.

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 ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  Dim Index As Integer
  Dim Value As String
  Dim Found As Boolean
 
  Value = ListBox1.Value
  Index = 0
  Do While Index < ListBox1.ListIndex And Not Found
    If ListBox1.List(Index) = Value Then
      MsgBox "Doublon => " & Left(Value, 8) & "2"
      Found = True
    End If
    Index = Index + 1
  Loop
  If Not Found Then MsgBox "Pas de doublon => " & Left(Value, 8)
 
End Sub

Ceci dit, je reste sur mon impression de départ: Il faut organiser les choses autrement, à mon avis, mais il faut voir le volume des données à traiter, notamment, et penser l'organisation du classeur autrement.

Une piste serait que la listbox soit filtrée sur les noms en fonction de la saisie du début du nom dans un textbox, par exemple, car compter sur le fait qu'il y a peu de chances qu'il y ait des triplons ou des problèmes divers, c'est un peu jouer au VogelPick...

Comme toujours, c'est d'abord et avant tout de la réflexion sur la conception du classeur, bien avant un problème VBA.

[mouftie]

Bonjour Pierre,

Sans te passer la brosse à reluire, tu as parfaitement raison dans ton raisonnement d'organisation.
J'ai pêché en ne demandant pas le volume des courriers...

Avec ton code, cela fonctionne parfaitement, je vais donc livrer comme ça, mais je vais revoir le pb pour la prochaine version.

Merci pour ton aide tant sur le fond que sur la forme.

Au plaisir