Pb ajouts multilignes

Bonjour, nouveau dans la programmation, je vais essayer d être le plus clair possible.

Voilà j' ai un tableau excel qui me serre de statistiques , qui se rempli via un userform, avec une entrée "actions" et une entrée "date" je voudrais ajouter une entrée "nombre d insertions" pour que si je rentre 3 dans cette case, 3 lignes de l action en question ainsi que la date de rajoute au tableau.

je suis perdu, s il vous plaît . Aidez moi.

merci

Private Sub Action_Change()

End Sub

Private Sub annuler_Click()
    statistiques.Hide
End Sub

Private Sub inserer_Click()
If Action.Value = "" Then
MsgBox "Veuillez renseigner le champs   'ACTION' "
Else
Dim ligne As Integer
If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then
Worksheets("statistiques").Select
ligne = Sheets("statistiques").Range("A456541").End(xlUp).Row + 1
Cells(ligne, 1) = Action.Value
Cells(ligne, 2) = Lbldate.Value

Unload statistiques
Else
End If
End If
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim i As Integer
i = 1
Do While Worksheets("action").Cells(i, 1) <> ""
    Action.AddItem Worksheets("action").Cells(i, 1)
    i = i + 1
    Loop
    Lbldate = DateValue(Format(Date, "mm/dd/yyyy"))
End Sub

Private Sub Workbook_Open()
Worksheets("statistiques").Protect Password:="Password", UserInterfaceOnly:=True
Worksheets("action").Protect Password:="Password", UserInterfaceOnly:=True
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Application.OnTime Now + TimeValue("00:01:00"), "Macro1"
End Sub

Bonjour, sans exemple concrêt difficile de faire une réponse correcte.

Si l'intertion d'une seul ligne fonctionne actuellement dans votre code alors je suppose qu'une simple boucle suffit pour le faire X fois.

'On prendra comme exemple le contenu de "TextboxNombre" pour le nombre de ligne à répéter.

For i=1 to TextboxNombre.value

'suite de votre code pour l'intertion d'une ligne....

Next i
end sub 

Bonjour Max et bienvenu, bonjour le forum

Quand tu valides, tu rajoutes, une boucle sur le nombre d'insertion qui répète l'action. Ça donne un code du style :

Private Sub CommandButton1_Click()
Dim O As Worksheet
Dim I As Integer
Dim DL As Integer

Set O = Worksheets("Feuil1")
For I = 1 To Me.TextBox3.Value
    DL = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1
    O.Cells(DL, "A").Value = Me.TextBox1.Value
    O.Cells(DL, "B").Value = Me.TextBox2.Value
Next I
End Sub

Mais avec ton code original, ça serait bien plus facile. Puisque tu es nouveau je te recommande de toujours envoyer les codes voire les fichiers liés à tes problèmes. Ça évite de perdre du temps...

[Édition]
Bonjour Xmenpl, nos posts se sont croisés...

Merci à Xmenpl et à TauTheme ca fonctionne parfaitement

pourrai t'on faire pour que le chiffre soit 1 de base pour éviter les erreurs?

Re,

Définit la propriété [Value] du contrôle du nombre d'insertion = 1. Ça deviendra la valeur par défaut...

c bon! merci de votre réactivité

j'ai une autre question si je fais une recherche via Ctrl +F est ce possible d'afficher la cellule résultat d'une autre couleur? si oui comment?

Re,

Tu pourrais utiliser l'événementielle Selection_Change et modifier la couleur de la cellule active mais je ne pense pas que ce soit une bonne idée. Il nous faudrait un fichier exemple pour pouvoir mieux te conseiller...