Bonjour à tous,
J'ai créé une petite macro pour la saisie automatique de données.
L'utilisateur peut indiquer le nombre de saisie qu'il souhaite intégrer à son tableau. Le nombre de saisie indiqué va alors apparaître en dessous de la dernière saisie enregistrée.
Jusque là, tout fonctionne !
J'aimerai ajouter une condition sur la nature de la saisie : changer ce qu'écrit la macro (pour l'instant, la macro écrit "Saisie_X").
Je souhaite changer ce "X". Dans le fichier joint, on voit que ce X est un nombre. X allant dans l'exemple jusque 6.
J'aimerai que la macro reconnaisse quelle est la dernière saisie effectuée (ici "Saisie_6"), et qu'elle écrive donc "Saisie_7".
Si je réitère l'opération, la macro écrira non plus "Saisie_7" mais "Saisie_8" et ainsi de suite.
Attention : peu importe l'ordre des saisies dans la colonne (j'ai fait exprès de mettre Saisie_6 en milieu de colonne).
Voici le code du bouton AjouterSaisie :
If TextBox1.Value = "" Then
MsgBox ("Veuillez renseigner tous les champs")
Else
If Not IsNumeric(TextBox1) Then
MsgBox ("Non numérique")
TextBox1.Value = ""
TextBox1.SetFocus
Exit Sub
End If
Dim premlig As Integer
Dim ctr As Integer
premlig = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row
For ctr = premlig + 1 To premlig + TextBox1.Value
Cells(ctr, 1) = "Saisie_X"
Next
Unload AjoutSaisie
AjoutSaisie.Show
End If
Si je n'ai pas été clair dans ce que je dis. N'hésitez pas à me demander !
Et merci d'avance !