Rajouter des éléments dans les listes de données

Version imprimable

12/09/2015, 19h18
Tournament

1 pièce(s) jointe(s)

Rajouter des éléments dans les listes de données

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
13/09/2015, 12h51
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
13/09/2015, 15h09
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
13/09/2015, 15h27
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 :/
13/09/2015, 15h48
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
13/09/2015, 15h54
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.
13/09/2015, 16h43
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

1 pièce(s) jointe(s)

alors reprenons

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

13/09/2015, 17h38
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
13/09/2015, 17h41
Tournament

ok merci je mofie ce qu il faut ey je reviens vers toi
merci encore

en fait je regarde en même temps un match du championnat anglais ...:)
13/09/2015, 17h55
tamtam64

ah que du plaisir lol :)

Juste parce que je reflechissais sur ton truc,

Moi je vois

une userform avec 3, 4 onglets , correspondant à tes boutons. tu aurais pour chaque onglet une partie a droite pour la saisie, a gauche pour la consultation, tu pourrais meme mettre une list view ( mais bon c'st pour l'elegance :p), mais juste une partie consultation et une partie saisie c'est pas mal, sinon un bouton poussoir pour le mode ecriture ou lecture. La gestion des doublons fait la en interne , c'est pas à l'utilisateur de gerer ca , sinon , autant ne pas faire de macro :p

voila moi comment je vois ton projet et ca te feras bosser les onglets, la mise à jour des données etc :p plutot sympa comme programe :)
13/09/2015, 18h06
Tournament

Tam Tam
je crois que nous ne jouons pas dans le même championnat
moi suis en CFA ... et je joue milieu mais dans la vrai vie suis salarié dans le privé...:(

Honnêtement je n ai jamais utilisé l outil Multipage ...

J ai donc modifié l userform en question et remplacé les combobox par des textbox
quand j'ouvre le formulaire j ai un message " Erreur de compilation " " Type défini par l utilisateur non défini" et surligne "MyDicoTeam As New Dictionary"
13/09/2015, 18h11
tamtam64

coche microsoft runtime dans les bibliotheques , c'est pour utiliser les dictionaires.

Ah oui bah moi je suis stagiaire je joue au foot le vendredi apres le taff avec les collegues des fois :), donc encore plus amateur que toi lol
13/09/2015, 18h23
Tournament

aie !!!
je suppose que c est dans "Outils" " Références " ?
suis bloqué par un code administrateur :(
c mon pc pro ...
13/09/2015, 18h38
tamtam64

oui c'est ca, tu as besoin de le cocher por disposer de la bibliotheque adequate
13/09/2015, 18h43
Tournament

Bon ben le problème est réglé:(
c'est une usine à gaz au taf pour obtenir ce déblocage :(
je n aurais pas d'autre choix que de rajouter les données directement dans les listes sans passer par un formulaire ...
Merci beaucoup pour ton aide et désolé pour de t avoir pris du temps :(

Allez RC Lens ça devrait démarrer bientôt...