XL 2010 UserForm : débuter à la ligne 4 de ma feuille

[Usine à gaz]

Bonjour à toutes et à tous,

Je suis toujours dans la création de mon UserForm.
Grâce à vous et un peu à moi LOL ..... j'avance.

Je bloque sur la possibilité de commencer à compléter ma feuille avec mon UserForm à partir de la ligne 4.

Malgré mes recherches, je n'ai pas trouvé le bon code et mes essais sont nuls

Si vous avez la solution, ça m'aiderait beaucoup comme d'hab. LOL
Je joins le classeur test.

Avec mes remerciements,
Je vous souhaite à toutes et à tous une bonne journée,
Amicalement,
Lionel,

 

[pierrejean]

Re

Vois si cela convient

 

[Usine à gaz]

Bonjour PierreJean dédié à mon UserForm LOL,

Merci d'être encore là.
Je regarde,
Lionel,

 

[Usine à gaz]

Re- PierreJean,

Je viens de teste.
Il y a une avancée mais quelques soucis LOL.

Je joins le classeur ... J'y ai mis mes observations dans la feuille.

Encore Merci,
Lionel,

 

[Usine à gaz]

Je me suis trompé de fichier, voici le bon avec mes commentaires

 

[pierrejean]

Re
voila pour le départ mais pour la suite ,la logique du code m’échappe désolé !!!!

 

[Usine à gaz]

Re-Bonjour PierreJean,

Encore merci d'être là.
Je crois que j'ai trouvé après pas mal de recherches
J'ai utilisé les codes suivants :
Macro ExécuteUF
Sub truc_QuandAffichage()

ActiveSheet.Cells(Rows.Count, "a").End(xlUp)(1).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

j'ai modifié :
.Label10.Caption = [NBEnr] - 2
.Label82.Caption = Cells(1 + CURREG, 1) + 1

et ça semble marcher LOL
Sans trop comprendre, c'est grâce à vous tous que j'ai pu raisonner à ma façon et faire ce petit truc.

Voici le classeur en pièce jointe.

Un grand merci de m'avoir aidé.
Amicalement,
Lionel,