Transposer et supprimer les cellules vides

Re : Transposer et supprimer les cellules vides

bonjour Gabriel

je ne pense pas que la version d'Excel soit en cause

tu n'as pas oublié de prendre

Re : Transposer et supprimer les cellules vides

Bonjour pierrejean et bonjour le Forum,

Effectivement, erreur de recopie. Mea culpa.

Encore merci et bonne journée,

Gabriel

Re : Transposer et supprimer les cellules vides

Bonjour le Forum,

Je sais bien que cette question a été posée au moins mille fois mais j'ai passé une partie du week-end à explorer le vide de mon incapacité à adapter les lignes de codes trouvées sur le forum. C'est la raison pour laquelle j'ose quand même joindre mon fichier. Il s'agit d'un copier-coller tout bête d'une feuille à l'autre mais en supprimant les blancs dans l'onglet "résultat souhaité".

Pour info, j'ai tenté de réutiliser la macro de Béa en mettant Transpose=False, mais les blancs ne sont supprimés que sur les 7 premières colonnes.

Gabriel

Re : Transposer et supprimer les cellules vides

bonjour Gabriel_01

vois la macro ci-jointe

par contre le resultat me parait etre assez "etonnant"
est-ce bien ce que tu souhaites ??

je l'ai mis en Feuil1

tu pourras adapter si besoin

Re : Transposer et supprimer les cellules vides

Bonjour pierrejean et bonjour le Forum,

Merci beaucoup pierrejean. Je suis navré de te déranger, mais il y a une "run time error/application-defined or object-defined error" à la ligne:

**Sheets("Feuil1").PasteSpecial Paste:=xlFormats** (détail ci-dessous).

Le résultat "bizarre" est parfait! J'ai besoin de supprimer les blancs car les champs sont ensuite "balayés" par les fonctions RECHERCHEV et RECHERCHEH et je ne peux gérer que 7 "SI" successifs.

Pour ma culture personnelle, la taille du tableau devant évoluer, faut-il modifier les paramètres de la macro ou idéalement, fixer des nombres de lignes et de colonnes élevés pour que toute la zone soit traitée?

Merci encore pour ton aide

Gabriel



-------------------------------------------------------------
Sub test()
Dim igne As Integer
Dim m As Integer
Dim n As Integer
ligne = 5
For m = 1 To Sheets("Tableau initial").Range("IV11").End(xlToLeft).Column
For n = 5 To Sheets("Tableau initial").Range("A65536").End(xlUp).Row
If Sheets("Tableau initial").Cells(n, m) <> "" Then
Sheets("Feuil1").Cells(ligne, m) = Sheets("Tableau initial").Cells(n, m)
ligne = ligne + 1
End If
Next n
ligne = 5
Next m
Sheets("Tableau initial").Range("A5:V" & Sheets("Tableau initial").Range("A65536").End(xlUp).Row).Copy
Mise en route du "debugger" à partir de la ligne ci-dessous (**)
**Sheets("Feuil1").PasteSpecial Paste:=xlFormats**
End Sub

Re : Transposer et supprimer les cellules vides

re

effectivement une petite erreur au dernier moment

voila la version corrigée

pour l'adaptation de ton tableau on peut (presque) tout faire

actuellement sont en "dur"
pour le tableau initial
la cellule d'origine (A5)
la colonne de doite (V)

le nombre de ligne est géré

pour la copie
la position de debut de copie (Feuil1).range("A5")

dis moi ce qui peut evoluer et je regarderai

Re : Transposer et supprimer les cellules vides

Bonjour pierrejean et bonjour le Forum,

Merci pierrejean, c'est du tonnerre. Le seul paramètre qui puisse changer est la colonne de droite (V) car je peux avoir d'autres catégories de tâches à déclarer.

Encore merci!

Gabriel

Re : Transposer et supprimer les cellules vides

bonsoir Gabriel

voila avec extension du coté colonnnes

Re : Transposer et supprimer les cellules vides

Bonsoir pierrejean et bonsoir le Forum,

Merci pierrejean. C'est vraiment ce qu'il me faut. Un grand merci et bravo! Excel n'a plus de limites grâce à la puissance de tes macros!

Bonne soirée!

Gabriel

Re : Transposer et supprimer les cellules vides

Bonjour pierrejean et bonjour le Forum,

Je suis désolé de te déranger pierrejean, mais la macro pour supprimer les blancs_N3 "s'arrête" à la colonne C de la feuille "tableau initial".

Par rapport à l'exemple de la dernière fois, les champs contenait des données "texte". Je rencontre un cas où les libellés commencent par des chiffres. Est-ce cette différence qui coince?

Ci-joint le fichier.

Merci pour tes conseils.

Gabriel

Re : Transposer et supprimer les cellules vides

bonsoir Gabriel

non le probleme venait du fait que ton tableau a été deplacé (debut a la ligne 5 dans tableau initial au lieu de 11 en version originale)

pour ne plus tomber dans le même piege j'ai ajouté ladetection du debut de tableau

Re : Transposer et supprimer les cellules vides

Bonjour pierrejean et bonjour le Forum,

Merci pierrejean. Désolé de répondre tardivement et de te solliciter pour des bourdes pareilles.

Encore merci et bonne journée,

Gabriel