Terme pour formulaire de saisie dans l'onglet actif

[Dzk78]

Salut tout le monde !

Je suis en train d'élaborer un formulaire de saisie. Voilà la macro de report:

Private Sub Addme()
' NextRow = Prochaine ligne vide
Set NextRow = Sheets("[B]AGOUDJILNOLAN[/B]").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
   
    For X = 1 To Cnum
        NextRow = Me.Controls(Ref & X).Value
        Set NextRow = NextRow.Offset(0, 1)
    Next X
End Sub

MAIS... Mon fichier comporte près de 150 onglets différents... Je souhaiterai remplacer le terme en gras "AGOUDJILNOLAN" par un autre "terme" pour que le report des données du formulaire s'effectue sur l'onglet actif, et non sur l'onglet nommé "AGOUDJILNOLAN". Mais je ne sais pas s'il existe...

En vous remerciant par avance pour votre aide,

Bien cordialement

Dzk

 

[herve62]

Bonjour
Tu démarres avec WITH ACTIVESHEET
donc tu supprimes sheets(AGOU.." et tu mets juste un .cells(rows..... etc
et end with quand tu termines avant end sub

 

[Dzk78]

Merci de ton retour super rapide herve62 !

Cela ne marche pas encore, mais j'ai du mal comprendre...

La macro avec ton aide donne bien cela?

Private Sub Addme()

With ActiveSheet
Set NextRow = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
   
    For X = 1 To Cnum
        NextRow = Me.Controls(Ref & X).Value
        Set NextRow = NextRow.Offset(0, 1)
    Next X
End Sub