Transfert de données CountA(Range("B:B")) + 1 impossible

Bonjour, n'etant que débutant dans la programmation je fais appel à vous pour m'aider à transférer mes données via un bouton d'userform sur une feuille .

Mon probléme vient que le transfert que j'effectue ce fait dans certaines cellules fusionnés et d'autres non.

Je ne vois pas quelle est la solution avec la fonction :

la proposition suivante m'avait été proposé

lignesuivante = Application.WorksheetFunction. _
CountA(Range("B:B")) * 2 + 1

L'accés à l'userform se fait à partir de la feuille Formulaire Enfants, les données sont saisies et basculées par le bouton (validation ajout licencié) vers les feuilles Formulaire Enfants et consultation enfants.

La feuille Formulaire Enfants se remplie mais rien ne se met dans la feuille consultation enfants.

Peut être que vous avez la solution.

Merci et bon dimanche

Bonjour

Essayes

lignesuivante = Application.WorksheetFunction. _
CountA(Range("B:B")) * 2

Tu as des informations à la ligne 635 de la page "consultation enfants" qui te faussent le résultat attendu

Banzai64 a écrit :

Bonjour

Essayes

lignesuivante = Application.WorksheetFunction. _
CountA(Range("B:B")) * 2

Tu as des informations à la ligne 635 de la page "consultation enfants" qui te faussent le résultat attendu

Bonjour Banzai64 et à toutes les personnes qui ont pus chercher pour m'aider.

C'est tout bon un grand merci