Ajout Données avec un UserForm
Bonjour à tous,
J'essaye depuis un moment maintenant d'ajouter des données dans un tableau à l'aide d'un UserForm mais j'ai réussie à m'embrouiller avec tout mon code
Ce que je souhaite c'est ajouter des budgets par Groupe pour une certaine année à l'aide d'un UserForm.
Les données doivent être ajouter au tableau déjà existant.
Je joint un fichier test pour plus de compréhension,
Merci d'avance à ceux qui pourront m'aider
Bonjour,
Une possibilité :
Private Sub CommandButton1_Click()
i = Cells(Rows.Count, 1).End(xlUp).Row
For ii = 1 To 10
Cells(i + ii, 1) = "Groupe " & ii
Cells(i + ii, 2) = CLng(TextBox11)
Cells(i + ii, 3) = Format(Me.Controls("TextBox" & ii), "###0.00")
Cells(i + ii, 4) = Format(Cells(i + ii, 3) / 12, "###0.00")
Cells(i + ii, 4).NumberFormat = "0.00"
Next
Unload Me
End SubA+
Re,
Merci Galopin j'ai essayé ton code mais il m'affiche comme erreur que TextBox11 n'est pas définie, je comprend pas il faut le déclarer ?
Dans ton modèle le TextBox11 est le TextBox pour l'année.
Tout ça dépend évidemment étroitement de la manière dont tu as nommé tout tes TextBox.
Ici c'était le cas de figure idéal pour faire du code "light" !
A+
Merci, ça marche finalement ^^
A bientôt