Renseigner des lignes par userform

[degap05]

Bonsoir,

J'ai besoin de votre aide pour créer le code qui va bien.
Je joins une feuille simplifiée.

Merci beaucoup.🙂

 

[Cousinhub]

Re : Renseigner des lignes par userform

Bonsoir,
regarde le fichier joint

Private Sub CommandButton1_Click()
nbr = CDbl(TextBox4)
For i = 1 To nbr
derlign = [A65000].End(xlUp).Row + 1
    For j = 1 To 3
        Cells(derlign, j) = IIf(j = 2, Controls("textbox" & j), CDate(Controls("textbox" & j)))
        If j = 2 Then Cells(derlign, j) = Cells(derlign, j) * 1
    Next j
Next i
End Sub

 

[degap05]

Re : Renseigner des lignes par userform

Bonjour, "bhbh",

Merci, cela fonctionne bien🙂.
Serait-il possible de rendre opérationnel le bouton "Annuler" et de fermer l'userform automatiquement aprés validation de l'entrée.

Merci beaucoup.

 

[degap05]

Re : Renseigner des lignes par userform

Re-bonjour, j'y suis arrivé... tout seul !!!!!!!!!!!!!!🙂

Par contre là je vais sécher:

comment faire apparaître un calendrier dans le champ "Date d'entrée" et DLU, ou à défaut, faire apparaître la date du jour, ou encore à défaut limiter la saisie au format date jj/mm/aaa.

Mais ne fonctionne pas dans ma vraie feuille ou j'ai des données jusqu'en colonne "Z" incluse.
Que signifie "For i", "For j", "Next i", si cela fait référence à des colonnes, j'ai d'autres données à l'intérieur.


Merci beaucoup.

 

[degap05]

Re : Renseigner des lignes par userform

Bonjour, nouvelle formulation de ma demande sur le fichier joint.

Si vous voulez bien m'aider à modifier un userform🙂

Merci.