Bonsoir
@Rouge,
J'essaie d'améliorer le code ci-dessous du formulaire 1 en ajoutant deux contraintes :
1- Avant le transfert des données, faire une vérification avec le critère (ComboBox1_mois.Value &"-"&textbox1) dans la colonne A du tableau afin de confirmer que les données n'avaient pas été précédemment saisies. Si c'est le cas, un msgbox pour informer l'utilisateur
2- Je souhaiterais dans la mesure du possible contraindre l'utilisateur a remplir toutes les cellules du formulaire 1. Idem pour le formulaire 2.
3- Savoir comment contrainte l'utilisateur a respecter un format donné pour chaque cellule du formulaire (numérique ou Texte)
Merci par avance pour l'appui
Private Sub CommandButton1_Click()
'code de transfer de donnees du forrmulaire vers le journal avec un total de 30 Textbox
Dim derligne&, i&, c&
If MsgBox("Confirma a adição de dados?", vbYesNo, "confirmation") = vbYes Then
With Sheets("Ledger")
derligne = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Cells(derligne, 2) = ComboBox1_mois.Value
For i = 1 To 30
.Cells(derligne, i + 2) = Controls("textbox" & i)
Next
End With
End If
With Sheets("Ledger")
For c = 31 To 35
.Cells(derligne, c + 2) = Controls("ComboBox" & c)
Next
End With
Unload Me
End Sub