Rafraichir Combobox

[vmax67]

Bonjour à tous,

J’ai un USF avec 2 Comboboxs et 5 Textboxs
Combobox1 = Colonne C ligne 30:36
Combobox2 = Colonne G ligne 30:36
J’aimerai mettre à jour la combobox2 après validation de combobox1
Voici le résultat que j’aimerai obtenir :
Je sélectionne un nom dans la combo1, ensuite ce choix doit être copié dans la cellule B7,
dès lors que l’on quitte cette comboxbox
Ensuite on doit rafraichir la combo2, avec tri auto est suppression des blancs.
(Puisque les données ont changé dans les cellules (G30 :G36)
Merci d’avance pour votre aide

 

[jp14]

Re : Rafraichir Combobox

Bonjour

Pour écrire une procédure il faut d'abord faire tout l'environnement, ce qui parfois n'incite pas à répondre.
Avec un fichier contenant des données non confidentielles avec des noms du type toto, tutu ,... et l'userform il sera plus facile d'apporter une solution.

JP

 

[vmax67]

Re : Rafraichir Combobox

Bonsoir

Fichier joint

Cijoint.fr - Service gratuit de dépôt de fichiers

Merci pour votre collaboration

 

[jp14]

Re : Rafraichir Combobox

Bonsoir

J'ai l'impression que le texte est le classeur ne sont pas en phase.

Combobox1 = Colonne C ligne 30:36
Combobox2 = Colonne G ligne 30:36

Colonne C : prénom
colonne G numéro d'ordre.

JP

 

[vmax67]

Re : Rafraichir Combobox

Bonsoir,

C est bien la colonne Noms et prénoms

et G et bien la deuxième colonne Noms et prénoms

Pour preuve les combobxos sont bien alimentées.
Après sélection d'un nom de joueurs dans la combo1, ce choix doit être copié dans la cellule B7, dès lors que l’on quitte cette comboxbox et ensuite rafraichir la combo2.

J'espère avoir été clair dans ma réponse

Merci de votre aide

Vmax

 

[jp14]

Re : Rafraichir Combobox

Bonjour

J'aimerais comprendre !

voir image

JP

 

[vmax67]

Re : Rafraichir Combobox

Bonjour,

je pense que vous êtes sur le mauvais onglet.

Il faut prendre l'onglet Saisie Matches

Vmax

 

[jp14]

Re : Rafraichir Combobox

Bonjour

Comme les lignes étaient cachées je n'avaient pas vu les données. Comment les noms changent dans la zone G30 G36 ?

Voici mon interprétation
On choisit un joueur dans le premier Combo, quand on quitte le combo on l'inscrit dans la case B7 et on supprime ce joueur du combo.

Private Sub V1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If V1.ListIndex = -1 Then Exit Sub ' pas de sélection
If V1.Locked = True Then Exit Sub ' comme p2 a été modifié, il faut relancer l'userform
Sheets("Saisie Matches").Range("B7") = V1
With P2
For i = .ListCount - 1 To 0 Step -1 ' quand on supprime il est préférable _
de commencer par la fin.
    If V1 = P2.List(i) Then
        P2.RemoveItem (i) ' suppression
        Exit For ' on sort
    End If
Next i
End With
V1.Locked = True ' on empèche l'utilisation
End Sub

JP

 

[vmax67]

Re : Rafraichir Combobox

Bonsoir et merci
C'est parfait.
Question: est ‘il possible d'avoir un tri dans la combo2, ainsi
que la suppression des blancs.
Bonne soirée
Vmax

 

[jp14]

Re : Rafraichir Combobox

Bonjour

Ci dessous les procédures avec une autre approche.

Private Sub UserForm_Initialize()
Dim i As Byte
With Sheets("Saisie Matches")
Sheets("Saisie Matches").Range("B7") = ""
ReDim tablo2(0 To 5)
For i = 30 To 35
    If .Range("c" & i) <> "" Then V1.AddItem .Range("c" & i)
    If .Range("g" & i) <> "" Then tablo2(i - 30) = .Range("g" & i)
    
    'P2.AddItem
Next i

For i = 0 To V1.ListCount
    For j = i + 1 To V1.ListCount - 1
        If V1.List(i) > V1.List(j) Then
            temp = V1.List(j)
            V1.List(j) = V1.List(i)
            V1.List(i) = temp
        End If
    Next j
Next i


For i = 0 To UBound(tablo2)
    For j = i + 1 To UBound(tablo2) - 1
        If tablo2(i) > tablo2(j) Then
            temp1 = tablo2(j)
            tablo2(j) = tablo2(i)
            tablo2(i) = temp1
        End If
    Next j
Next i
'P2.List = tablo2

TextBox1.Value = Sheets("Saisie Matches").Range("D7")
'TextBox9.Value = Sheets("Saisie Matches").Range("J7")
'Sheets("Saisie Matches").Range("D7") = TextBox1.Value
End With
End Sub





Private Sub V1_Enter()
P2.List = tablo2
End Sub

Private Sub V1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If V1.ListIndex = -1 Then Exit Sub ' pas de sélection
Sheets("Saisie Matches").Range("B7") = V1

With P2
.Clear
For i = LBound(tablo2) To UBound(tablo2)
    If V1 = tablo2(i) Then
    Else
     If tablo2(i) <> "" Then P2.AddItem tablo2(i)
    End If
Next i
End With

End Sub

Les données sont dans un tableau, Le combobox V1 est mis à jour si "V1_Enter" et on supprime la valeur si "V1_Exit".

A tester

JP

 

[vmax67]

Re : Rafraichir Combobox

Bonjour

J'ai une erreur à ce niveau

Private Sub V1_Enter()
P2.List = tablo2
End Sub

Meric pour votre aide et du temps que vous passez sur mon projet

Vmax

 

[jp14]

Re : Rafraichir Combobox

Bonjour (re)

Il faut mettre au début du module
Dim tablo2 as string


En pièce jointe le code, a ouvrir avec un éditeur de texte.

JP