Re : couleur et formulaire
pour ce qui est de la touche TAB c'est bon.
C'était le tabindex qui n'allait pas et les tabstop qui étaient à false
Je vous joint le code pour les couleurs.
Private Sub cmdajouter_Click()
Dim NumLigneVide As Integer
'on active la Feuille "Journal"
Worksheets("journal").Activate
'On trouve la dernière ligne vide du tableau, et on enregistre le numéro de la ligne dans la variable NumLigneVide
NumLigneVide = Sheets("journal").Cells(65000, 1).End(xlUp).Row + 1
'On vérifie que les champs obligatoires sont rempli correctemment
If txtaction.Text = "" Then
MsgBox "veuillez indiquer ce que vous voulez faire", vbCritical, "Champs manquant"
txtaction.SetFocus
ElseIf txtappeln°.Text = "" Then
MsgBox "veuillez entrer le numéro de l'appel", vbCritical, "Champs manquant"
txtappeln°.SetFocus
ElseIf txtdateappel.Text = "" Then
MsgBox "veuillez indiquer la date d'emission de l'appel", vbCritical, "Champs manquant"
txtdateappel.SetFocus
ElseIf txtmembres.Text = "" Then
MsgBox "veuillez indiquer qui va payer l'appel", vbCritical, "Champs manquant"
txtmembres.SetFocus
ElseIf txtmontantappel.Text = "" Then
MsgBox "veuillez mettre un montant d'appel de charges", vbCritical, "Champs manquant"
txtmontantappel.SetFocus
ElseIf txtcomptecopro.Text = "" Then
MsgBox "veuillez indiquer le compte de la copropriété", vbCritical, "Champs manquant"
txtcomptecopro.SetFocus
ElseIf txtdébitcomptemembres.Text = "" Then
MsgBox "veuillez indiquer le montant demandé au copropriétaire", vbCritical, "Champs manquant"
txtdébitcomptemembres.SetFocus
ElseIf txtcréditcomptecopro.Text = "" Then
MsgBox "veuillez indiquer le montant avancé sur le compte de la copropriété", vbCritical, "Champs manquant"
txtcréditcomptecopro.SetFocus
Else
'On enregistre les données
ActiveSheet.Cells(NumLigneVide, 1) = (txtaction.Text)
ActiveSheet.Cells(NumLigneVide, 2) = UCase(txtappeln°.Text)
ActiveSheet.Cells(NumLigneVide, 3) = UCase(txtdateappel.Text)
ActiveSheet.Cells(NumLigneVide, 5) = UCase(txtmembres.Text)
ActiveSheet.Cells(NumLigneVide, 7) = UCase(txtmontantappel.Text)
ActiveSheet.Cells(NumLigneVide, 8) = (txtcomptecopro.Text)
ActiveSheet.Cells(NumLigneVide, 10) = UCase(txtdébitcomptemembres.Text)
ActiveSheet.Cells(NumLigneVide, 11) = UCase(txtcréditcomptecopro.Text)
'On efface le formulaire et on replace le curseur sur le premier champs (Appel n°)
txtaction.Text = ""
txtappeln°.Text = ""
txtdateappel.Text = ""
txtmembres.Text = ""
txtmontantappel.Text = ""
txtcomptecopro.Text = ""
txtdébitcomptemembres.Text = ""
txtcréditcomptecopro.Text = ""
txtaction.SetFocus
End If
End Sub
Private Sub UserForm_Initialize()
Me.txtaction.RowSource = "journal!U11:U" & Sheets("journal").Cells(11, 21).End(xlDown).Row
Me.txtcomptecopro.RowSource = "journal!T11:T" & Sheets("journal").Cells(11, 20).End(xlDown).Row
Me.txtmembres.RowSource = "journal!Q11:Q" & Sheets("journal").Cells(11, 17).End(xlDown).Row
Me.txtappeln°.RowSource = "journal!V11:V" & Sheets("journal").Cells(11, 22).End(xlDown).Row
End Sub
Private Sub UserForm_Activate()
Me.txtmembres.ListIndex = -1
Me.txtappeln°.ListIndex = -1
Me.txtcomptecopro.ListIndex = -1
Me.txtaction.ListIndex = -1
End Sub
Private Sub CmdFermer_Click()
frmnouvelappel.Hide
End Sub
