Eviter doublon et listbox

Bonjour le forum,

Je rencontre quelques soucis de construction sur l'UserForm "UF_CompteurInitial" sur les codes suivants :

Les Listbox :

- J'aimerai au click du ListBox1 afficher le Nom Prénom dans ListBox2

Bouton CmdOk :

- Lors d'une modification cela bug, j'imagine que c'est un paramétrage de la listbox1 par rapport à sa colonne de référence. (n'arrive pas à faire)

Bouton CmdSupp :

- Bien évidemment le bouton supprimer fait de même que modifier.

Bouton CmdOk :

- Point important, j'aimerai sur l'ajout "Valider" une alerte afin d'éviter les doublons des Nom Prénom, l'année.

Si quelqu'un veux bien m'aider, ça serai sympa.

Merci

pompaero

Bonjour,

Commence déjà par remplir ta Listbox1 car il n'y a rien dedans

Et déjà dit, tu veux utiliser des codes complexes en passant par des tableaux...

donc demande de l'aide en MP aux aficionados des tableaux

Nota : à moins d'avoir des milliers de lignes à traiter à quoi ces tableaux te servent-ils

Bonjour BrunoM45

le forum,

La listbox1 n'est pas rempli !!!!! Elle se rempli à l'aide du Combobox CBxRech en haut à droite, chez moi ça marche.

C'est vrai que c'est compliqué en passant par des tableaux , mais je trouve l’exécution des codes plus rapide. (c'est vrai que rester simple, des fois c'est mieux)

C'est tableaux vont me servir à noter le nombre de Congés et compteur heure annuel par agents (une dizaine d'agents).

Par la suite, l'onglet "CompteurInitial" va servir de base pour de futur tableaux que je dois créer pour le décompte des CP par année.

Confirme moi le remplissage de ListBox1.

Merci

Je viens de trouver ce code comme exemple,

Private Sub CBxRech_Change()
Dim J As Long
Dim Ws As Worksheet

  Set Ws = Sheets("CompteurInitial")
  Me.ListBox1.Clear
  With Me.ListBox1
    .ColumnCount = 6
    .ColumnWidths = "100;60;40;40;30;-1"
    For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
'If CBxRech = (Année colonne C) Then
      .AddItem Ws.Range("A" & J)
      .List(.ListCount - 1, 1) = Ws.Range("B" & J)
      .List(.ListCount - 1, 2) = Ws.Range("C" & J)
      .List(.ListCount - 1, 3) = Ws.Range("D" & J)
      .List(.ListCount - 1, 4) = Ws.Range("E" & J)
'End If
    Next J
  End With

C'est sur la bonne voie ?

pompaero