écriture du code vba...??? svp

[natorp]

Bjr

j'ai un userform (avec du code écrit par jp14 pour le remplissage de la combobox)

J'aimerais écrire en vba (je ne sais pas faire) dans le userform
- quand un nom est dans la liste du combobox en cliquant sur "valider" il y ait une croix en face de son nom
- si le nom n'est pas présent : ajouter une ligne supplémenatire à la fin avec une croix dans la cellule d'à côté

merci de votre attention et votre aide, cordialement

Gérard

j'ai écrit une solution qui fonctionne et je la mets en ligne....avec des phases de test

Private Sub CommandButton1_Click()
Dim c As Range
Dim joueur As String
Dim cel As Range
Dim Lign As Byte
joueur = ComboBox1.Value
If ComboBox1.Value = "" Then
MsgBox "Vous devez entrer un nom !", , "ATTENTION !!"
ComboBox1.SetFocus
Exit Sub
End If
With Sheets("Feuil1")
        Set c = .Range("A1:A300").Find(joueur, LookIn:=xlValues)
            If Not c Is Nothing Then
                Set cel1 = c.Offset(0, 2)
                    
                    If cel1.Value = "x" Then
                    MsgBox "Ce joueur ou cette joueuse est déjà sélectionné(e) !!", , "ATTENTION !!"
                    Exit Sub
                    Else
                    cel1.Value = "x"
                    Range("A1:A300").Find(joueur, LookIn:=xlValues).Select
                    End If
                
                Else
                    Lign = Sheets("Feuil1").Range("a1000").End(xlUp).Row + 1
                    Cells(Lign, 1).Value = ComboBox1.Text
                    Cells(Lign, 2).Value = ComboBox2.Text
                    Cells(Lign, 3).Value = "x"
                    Range("a1000").End(xlUp).Select
                End If
End With
ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox1.SetFocus
End Sub

 

[Robert]

Re : écriture du code vba...??? svp

Bonjour Nartop, bonjour le forum,

Il n'y a pas l'Userform dans le fichier que tu as mis en pièce jointe... Difficile de t'aider donc.

 

[natorp]

Re : écriture du code vba...??? svp

Merci Robert pour l'info
c'est mon réseau d'entreprise qui "vire" le code...😡😡
je reprendrai le fil ce soir pour joindre le bon fichier....

Gérard