Alimentation formulaire dans un tableau

Bonjour,

Merci déjà à ceux qui éventuellement travaille sur mon fichier envoyé sous " Formulaire d'inscription plusieurs feuilles".

J'ai travaillé, en préparation de la nouvelle année 2018, pour faire un formulaire d'inscription pour tous les futurs arbitres qui voudront le devenir, et qui évitera l'édition ou le transmission de fiche de renseignements, que je serais obligé de remplir moi-même dans un tableau.

Sur mon fichier 2 choses :

La première le tableau ne se remplit pas car la macro beug sur le fait qu'il se positionne en bas de feuille mais c'est tout et ne reviens pas sur la dernière ligne vide du tableau. Sauf si je remplit une ligne manuellement.

Sheets("Source").Activate

Range("B1").Select

Selection.End(xlDown).Select 'On se positionne sur la ligne libre

Selection.Offset(1, 0).Select 'On se positionne 1 ligne en dessous

La deuxième chose, j'aimerai en première colonne du tableau un compteur de ligne qui indique le nombre de ligne remplie.

Merci encore à vous tous pour votre implication et votre aide pour nous aider en vba.

Damien

Bonjour

Voici la partie corrigée

Private Sub BtnAjout_Click()
    Sheets("Source").Activate
    Range("B1").Select
    dlig = Range("B" & Rows.Count).End(xlUp).Row
    Range("B" & dlig + 1).Select
    ActiveCell = TxtNom.Value
    ActiveCell.Offset(0, 1).Value = TxtPrenom
    ActiveCell.Offset(0, 2).Value = TxtNaissance
    ActiveCell.Offset(0, 3).Value = TxtAdresse
    ActiveCell.Offset(0, 4).Value = TxtCP
    ActiveCell.Offset(0, 5).Value = TxtVille
    ActiveCell.Offset(0, 6).Value = TxtMail
    ActiveCell.Offset(0, 7).Value = TxtFixe
    ActiveCell.Offset(0, 8).Value = TxtPortable
    ActiveCell.Offset(0, 9).Value = CboClub
    ActiveCell.Offset(0, 10).Value = TxtLicence
    ActiveCell.Offset(0, 11).Value = TxtDebut
    ActiveCell.Offset(0, 12).Value = CboNiveau1
    ActiveCell.Offset(0, 13).Value = CboNiveau2
    ActiveCell.Offset(0, 14).Value = CboAP
    ActiveCell.Offset(0, 15).Value = TxtObs
    ActiveCell.Offset(0, 16).Value = TxtArbitrage

    MsgBox "Votre enregistrement a bien été effectué.", vbOKOnly + vbInformation, "CONFIRMATION"

End Sub

Par contre , première colonne du tableau un compteur de ligne, 1ère colonne du tableau de bord ??

Bye

Merci pour ta réponse, et non le compteur sur la colonne A de la feuille "source".

Merci

Re

Alors , comme cela ?

Sheets("Source").Range("A2").Value = dlig
    MsgBox "Votre enregistrement a bien été effectué.", vbOKOnly + vbInformation, "CONFIRMATION"

J'ai rajouté cette ligne avant ton message, j'ai mis le nombre de lignes en A2, si tu le veux en A1, il suffit de modifier

Bon test

Bye

Merci je vais tester.

Merci cela fonctionne bien sauf que je me suis, je pense, mal exprimé dans le compteur. J'aimerai qu'a chaque ligne s'affiche comme cela :

N° Nom Prénom

1 PALLUET Damien

2 TOTO Luc

3 PIERRE Paul

4 SIMON Etienne

5 CRITE Jacques

6 MAISON Ewan

Merci

Re

        Range("A" & dlig + 1).Value = dlig
        MsgBox "Votre enregistrement a bien été effectué.", vbOKOnly + vbInformation, "CONFIRMATION"

la nouvelle ligne à mettre avant le message

Bon test

Bye

Merci c'est impeccable.

Si tu as la même chose pour mon autre recherche cela serait super.

Bonjour

Quelle est l'autre recherche ??

A +

Sur ce message là.

https://forum.excel-pratique.com/excel/formulaire-d-inscription-plusieurs-feuilles-t100534.html

Merci