natorp
XLDnaute Barbatruc
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
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
Code:
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
Dernière édition: