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

J-Laurie

XLDnaute Nouveau
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
 

Pièces jointes

  • FormRechercheModifAjout_1 ou plusi. mots.xls
    119 KB · Affichages: 9
Dernière édition:
Solution
Bonjour J-Laurie et le forum,

dans UserForm_Initialize

VB:
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

jcf6464

XLDnaute Occasionnel
Bonjour J-Laurie et le forum,

dans UserForm_Initialize

VB:
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

XLDnaute Nouveau
Bonjour J-Laurie et le forum,

dans UserForm_Initialize

VB:
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
 

Discussions similaires