XL 2016 Amélioration d'un code VBA sensible aux cellules vide pour la centralisation des Feuils sur une seul Feuil Excel

Anr1

XLDnaute Occasionnel
Supporter XLD
Bonjour Forum,

Je viens vers vous pour m'aider à améliorer un code VBA que crée par @Dudu2.
En faite, le code permets de centraliser les données de Feuil1 , Feuil2, Feuil3, Feuil4 qui représente les personnes ( Feuil1 = Personne X , Feuil2 = Personne Y....) dans une seule Feuil "Centralisation" en respectant l'ordre des données.

le code fonctionne très bien, mais lorsque mes données sont sous forme tableau le code est prend les cellules vides comme valeur et les centralise.
j'aimerais bien que le code prend en compte que les cellules avec des valeurs et non pas des cellules vides d'un tableau.

Ci-joint mon fichier.

Je reste à votre disposition pour plus d'information.

Merci d'avance.
 

Pièces jointes

  • Copie de test1-2-1.xlsm
    45.2 KB · Affichages: 6

Anr1

XLDnaute Occasionnel
Supporter XLD
Merci bien @patty5,
Le code fonctionne très bien, j'ai remarqué que t'as ajouté sur le code cette partie:
VB:
Dlt = 3 'première ligne à vérifier
            Do While Not IsEmpty(.Range("B" & Dlt))
                Dlt = Dlt + 1
            Loop
             DernièreLigneFeuille = Dlt - 1

Pour déterminer la partie à coller.

Merci bien.

Bonne journée.