Insertion Userform dernière ligne

Bonjour à tous,

J'aurais besoin de votre aide dans le cadre de ma création de mon outil Excel.

J'ai crée un Userform et aimerais que les données récoltées s'inscrivent à la dernière ligne d'un tableau.

J'ai repris un code que j'avais trouvé, tout à l'air de bien fonctionner, sauf le plus important... Rien ne s'ajoute lorsque je valide mon formulaire.

Je me permets de vous laisser mon fichier ci-joint, dès fois que vous trouviez une solution.

J'espère avoir été assez complet dans mon explication.

Merci d'avance et bonnes fêtes de fin d'année.

Juju_ski

Bonsoir juju_ski

j'ai modifier le code du bouton et supprimer celui du module , voici le fichier modifier avec un supplément pour la date

Bonjour,

Merci beaucoup grisan, c'est fantastique. Tu as bien simplifié le code, c'est parfait.

Bonne année à toi!

Juju_ski

En revanche, j'ai juste une dernière demande.

J'aimerais que la ligne ajoutée soit sélectionnée une fois le formulaire fermé.

J'ai bien ce code : Rows(I).Select mais il me sélectionne la ligne (le bon numéro de ligne) mais pas sur la bonne page ...

Merci d'avance

bonsoir juju_ski

sélectionner la ligne un peu comme cela se faisait sur le classeur fourni comme si on la copiait pour la coller

c'est cela que tu voudrais

je viens d'essayer et je ne sais pas, et je passe la main si quelqu'un lit le le post

autrement est ce que le supplément que j'ai mis te correspond

Bonsoir Pascal,

Le supplément rajouté fonctionne parfaitement et correspond à ce que je souhaitais !

En revanche je n'ai toujours pas trouvé de solution pour sélectionner la ligne sans que cela ne me fasse buger l'ensemble.

Je t'en remercie,

juju_ski

Personne ne peut m'aider ?

Bonjour

il faut d'abord activer la feuille puis la ligne en n'oubliant pas de déplacer le end with

Private Sub CommandButtonValider_Click()

Application.EnableEvents = False
Application.ScreenUpdating = False
Dim I As Integer
'INSCRIPTION DES DONNEES DU FORMULAIRE DANS LA FEUILLE "Recherche foncière"
With Sheets("liste")
I = .Range("B65536").End(xlUp).Row
.Range("B" & I + 1).Value = UserFormDécès.TextBoxNomD 'Nom défunt
.Range("C" & I + 1).Value = UserFormDécès.TextBoxPrénomD 'Prénom défunt
.Range("D" & I + 1).Value = UserFormDécès.TextBoxCommuneR ' commune résidence
.Range("E" & I + 1).Value = UserFormDécès.TextBoxNomJF 'nom JF
.Range("F" & I + 1).Value = UserFormDécès.DTPDate1.Caption  'date décès
.Range("G" & I + 1).Value = UserFormDécès.TextBoxCommuneD 'Commune décès
.Range("H" & I + 1).Value = UserFormDécès.TextBoxNomClient 'Nom client
.Range("J" & I + 1).Value = UserFormDécès.TextBoxPrénomClient 'Prénom client
.Range("L" & I + 1).Value = UserFormDécès.TextBoxLieuCréma ' lieu inhum ou créma
.Range("M" & I + 1).Value = UserFormDécès.TextBoxLieuCéré ' lieu cérémonie

    If UserFormDécès.OptionButtonInhu.Value = True Then .Range("I" & I + 1).Value = ("Inhumation")
    If UserFormDécès.OptionButtonCréma.Value = True Then .Range("I" & I + 1).Value = ("Crémation")

        If UserFormDécès.OptionButtonRel.Value = True Then .Range("K" & I + 1).Value = ("Religieuse")
    If UserFormDécès.OptionButtonCivi.Value = True Then .Range("K" & I + 1).Value = ("Civile")
     If UserFormDécès.OptionButtonPasCéré.Value = True Then .Range("K" & I + 1).Value = ("Pas de cérémonie")

    'Place un repère sur la ligne insérée
    .Range("A" & I + 1).Value = "x"

   'Réactiver les évènements et le rafraichissement
   Application.ScreenUpdating = True

   'active les événements
   Application.EnableEvents = True

.Activate
.Rows(I + 1).Activate
End With
'Fermer l'userform
Unload Me
End Sub

Bonjour,

Merci beaucoup pour ce retour cela fonctionne parfaitement. J'avais pas déplacé mon end with c'est ce qui me bloquait.

Bon réveillons !

Juju_ski