Microsoft 365 Userform de recherche-Modif affichage numérotation de départ Textbox d'enregistrement

[J-Laurie]

Bonjour,

Dans le fichier de Jacques BOISGONTIER en PJ, Je souhaiterai savoir SVP, dans le cas où on ajouterait plus qu'1 ligne de titre, où modifier le code pour commencer la numérotation (Textbox "Enreg") des lignes à 4 au lieu de 2 par exemple ?

En vous remerciant d'avance

Laurie

 

[jcf6464]

Bonjour J-Laurie et le forum,

dans UserForm_Initialize

Private Sub UserForm_Initialize()
   Set f = Sheets("bd")
   Set Rng = f.Range("A2:M" & f.[A65000].End(xlUp).Row)
   decal = Rng.Row - 1

Tu passe le A2:M en A4:M
et tu insère deux lignes au-dessus des titres

Bonne continuation jcf64

 

[J-Laurie]

Bonjour J-Laurie et le forum,

dans UserForm_Initialize

Private Sub UserForm_Initialize()
   Set f = Sheets("bd")
   Set Rng = f.Range("A2:M" & f.[A65000].End(xlUp).Row)
   decal = Rng.Row - 1

Tu passe le A2:M en A4:M
et tu insère deux lignes au-dessus des titres

Bonne continuation jcf64

Bonjour @jcf6464 et merci beaucoup de ton aide

Je sais que c'était bête mais comme j'ai pris ce fichier en base pour élaborer un autre fichier, j'avais beau modifier cette partie du code, rien n'y faisait. Je pensais donc que la modif était à faire autre part. Tu m'as confirmé que non de part ton aide. J'ai donc repris le code initial de l'UserForm_Initialize et vérifié pas à pas et c'est bon.

Alors encore merci

Laurie