Dernière ligne sefface !!??

Bonjour le forum,

J'aimerai avoir un petit coup de pouce sur un soucis que je n'arrive pas à ressoudre, je m'explique,

Dans l'onglet "Mvts_Sport" quand nous voulons enregistrer des données à l'aide du formulaire "U_sport" il y a la dernière ligne des données déjà dans la base qui s'efface, et je ne vois pas de ou cela peux venir.

Merci de votre soutien.

Cdtl

pompaero.

Bonjour,

remplacer,

        i2 = .Range("Tb_Mvts_Sport").Rows.Count + 2

par

        i2 = .Cells(Rows.Count, 1).End(xlUp).Row + 1

Bonsoir Pompaero,

Je te propose de remplacer simplement le + 2 par +3 dans la séquence :

Soit modifier:

   '// ajout contenu de la collection "résumé" dans le tableau des Mvts Sport
    With Feuil4
        i2 = .Range("Tb_Mvts_Sport").Rows.Count + 2
        For i1 = 0 To résumé.Count - 1
            If résumé(i1)(0) <> "" Then
                .Range("A" & i2 & ":G" & i2).Value = résumé(i1)
                i2 = i2 + 1
            End If
        Next i1
    End With

par:

   '// ajout contenu de la collection "résumé" dans le tableau des Mvts Sport
    With Feuil4
        i2 = .Range("Tb_Mvts_Sport").Rows.Count + 3
        For i1 = 0 To résumé.Count - 1
            If résumé(i1)(0) <> "" Then
                .Range("A" & i2 & ":G" & i2).Value = résumé(i1)
                i2 = i2 + 1
            End If
        Next i1
    End With

Bonjour sabV

Merci de ta rapidité et efficacité, ça a l'aire de fonctionner correctement, supper comme ça mon projet est finalisé .

cdlt

Bonjour GVIALLES

Je viens de tester ta solution, ça marche également super

Merci à vous.

Cdlt

pompaero