Re : Fermeture UserForm
Re,
Ton idée parait beaucoup plus censé que la mienne, je vais faire comme tu dis, j'ai un petit problème cependant avec ma macro suivante, logiquement je devrais retrouver les noms des clients dans ma combobox2, mais ce n'est pas le cas:
Private Sub CommandButton1_Click()
Dim numLigneVide As Integer
'On active la feuille "Liste"
Worksheets("Mes Opportunitées").Activate
'On trouve la dernière ligne vide du tableau et on enregistre le numéro de la ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(1).Find("").Row
'On vérifie que les champs obligatoires sont correctement remplis
If txtNom.Text = "" Then
MsgBox "Veuillez remplir le nom de votre contact", vbCritical, "Champs manquant"
txtNom.SetFocus
Else
'On remplit les données dans notre tableau
ActiveSheet.Cells(numLigneVide, 1) = Label_date
ActiveSheet.Cells(numLigneVide, 2) = txtdevis.Text
ActiveSheet.Cells(numLigneVide, 3) = UCase(txtNom.Text)
ActiveSheet.Cells(numLigneVide, 4) = TextBox2.Text
ActiveSheet.Cells(numLigneVide, 5) = TextBox3.Text
Label_date = ""
txtdevis.Text = ""
txtNom.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
txtdevis.SetFocus
End If
End Sub
Private Sub CommandButton3_Click()
txtNom.Text = ""
txtdevis.Text = ""
TextBox2.Value = ""
TextBox3.Value = ""
Me.ComboBox2 = Clear
Unload UserForm2
End Sub
Private Sub CommandButton4_Click()
Dim no_ligne As Integer
no_ligne = ComboBox2.ListIndex + 7
Label_date = Cells(no_ligne, 1)
txtdevis.Value = Cells(no_ligne, 2).Value
txtNom.Value = Cells(no_ligne, 3).Value
TextBox2.Value = Cells(no_ligne, 4).Value
TextBox3.Value = Cells(no_ligne, 5).Value
End Sub
Private Sub CommandButton5_Click()
Dim no_ligne As Integer
Sheets("Mes Opportunitées").Select
no_ligne = ComboBox2.ListIndex + 7
If ComboBox2.Value = "" Then
MsgBox ("Veuillez remplir le champ de la recherche!")
Else
Cells(no_ligne, 1) = Label_date
Cells(no_ligne, 2) = txtdevis.Value
Cells(no_ligne, 3) = txtNom.Value
Cells(no_ligne, 4) = TextBox2.Value
Cells(no_ligne, 5) = TextBox3.Value
End If
End Sub