Discussion :

[Tournament]

Bonsoir le Forum

dans un formulaire avec 2 combobox, je souhaite avoir la possibilité de rajouter des nouveaux éléments dans la "base de données"
la 1ere combobox " Equipe" : possibilité d'en rajouter une nouvelle avec de nouveaux noms

la 2eme combobox "Nom" : possibilité de rajouter des noms dans une équipe existante ou dans une nouvelle équipe

en PJ le fichier

merci d'avance

[tamtam64]

Bonjour,
Ton projet est cool, peut tu expliquer un peu en details, si tu veux je te le fais, mais pour gagner du temps si tu peux m'expliquer comment ca fonctionne, je viens de l'ouvrir. Dis moi plus en detail ton besoin, je vais te le faire . Moi je vois trois userforms

[Tournament]

Bonjour,

tout d abord merci pour ta réponse
Vu la position du RCL le moral ne doit pas etre tres bon....

Pour ma demande, je souhaite pouvoir rajouter des équipes et des noms aux listes existantes en utilisant le formulaire
pour que l utilisateur sache si l'équipe ou le nom qu il veut rajouter existe déjà les combobox font références aux données existantes

je sais pas si je suis clair

merci d'avance

[tamtam64]

Moi je ne l'aurais pas fait comme ca mais je voix ce que tu veux faire je te fais ca
Ah Lens ...... Ah ah , on est bas ... tres bas :/

[Tournament]

il s agit d'un petit suivi des dépenses des équipes
le 1er formulaire permettra de saisir les opérations réalisées
le 2éme formulaire (Recharge ) concerne l'approvisionnement en euros des cartes qui permettent aux équipes de faire des achats
et le 3eme userform permet de rajouter des équipes et des noms

merci d'avance

TamTam
si tu as une solution plus pratique je suis preneur

merci

[tamtam64]

Je ne suis pas un pro des userforms mais comme je sors d'un gros projet avec une grosse bd sur access et une userform, je pense que je peux te proposer autre chose mais ca depend du nombre de données que tu as.
En fait ta feuille nouvelle equipe , on peux acceder aux noms d'equipes donc quel est l'interet ? , je veux dire tu accede aux noms qui existent deja , on a l'impression que c'est pour consulter, et pas vraiment pour ajouter, ta methode n'est pas vraiment adapté.. c'est pour eviter les doublons?
dans ce cas c'est mieux de le faire avec une sub par deriere qui verifie si l'equipe existe deja...

ca serait mieux de ne pas afficher les noms et plutot de permettre la saisie , qui ensuite ajouterait une ligne ou une colonne dans ta feuille de base de données.

[Tournament]

ok ta proposition me va bien
Pour le nombre de données en gros il s'agit de 150 valeurs environ ( c'est beaucoup ? )
dans ce cas là il faut que je remplace les combobox par 2 textebox pour permettre la saisie de nouvelles données avec une procédure derrière qui alerterait en cas de doublons.
et je veux bien un petit coup de main
surtout que pour les doublons le code ne doit pas être si simple

merci d'avance

[tamtam64]

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit
Dim Ws As Worksheet
Public MyDicoTeam As New Dictionary
 
Private Sub CommandButton1_Click()
    With ThisWorkbook.Worksheets("Equipes")
        If Not MyDicoTeam.Exists(Me.ComboBox1.Text) Then
 
            .Range("A1").End(xlToRight).Offset(, 1).Value = Me.ComboBox1.Text
            MyDicoTeam.Add Me.ComboBox1.Text, .Range("A1").End(xlToRight).Offset(, 1).Column
            .Range("A1").End(xlToRight).Offset(1).Value = Me.ComboBox2.Text
        Else
           .Cells(.Cells(1, MyDicoTeam(Me.ComboBox1.Text)).End(xlDown).Row + 1, MyDicoTeam(Me.ComboBox1.Text)).Value = Me.ComboBox2.Text
        End If
    End With
End Sub
 
Private Sub CommandButton2_Click()
    Unload Me
End Sub
    'initialisé des le depart
Private Sub UserForm_Initialize()
List
End Sub
 
Private Sub ComboBox1_Change()
 
Dim J As Long
Dim Colonne As Integer
 
  Me.ComboBox2.Clear
  If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    Colonne = Me.ComboBox1.ListIndex + 1
  For J = 2 To Ws.Cells(Rows.Count, Colonne).End(xlUp).Row
    Me.ComboBox2.AddItem Ws.Cells(J, Colonne)
  Next J
 
End Sub
 
Sub List()
Dim I As Integer
  ' Modèle
  Set Ws = ThisWorkbook.Worksheets("Equipes")
  With Me.ComboBox1
    For I = 1 To Ws.Range("A1").End(xlToRight).Column + 1
      .AddItem Ws.Cells(1, I)
      If Not MyDicoTeam.Exists(Ws.Cells(1, I)) Then
        MyDicoTeam.Add Ws.Cells(1, I).Value, I
      End If
    Next I
  End With
 
End Sub

[tamtam64]

En réalité , selon moi tu devrais faire une seule et unique userform avec plusieurs onglet ca serait plus cool.
ensuite , je pense qu'un onglet saisie ca serait mieux avec un onglet pour consulter si tu le souhaites, apres je peux t'aider mais il faut que tu reflechisse à ce que tu veux faire, et eventuellement ce que tu te sens capable de faire , c'est tjs mieux de le faire par soit même , je t'ai fait ce que tu voulais mais , tu peux l'ameliorer avec la possibilité de supprimer des equipes etc .

Pour la gestion des doublons c'est pas ultra compliqué si tu continue avec un dictionnaire , ici en tt cas tu ne pourras pas avoir deux fois une meme equipe puisque je t'ai mis un dictionnaire, tu peux faire pareil pour la combobox2