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,