Classer un fichier ligne colonne

Bonsoir a vous!

j' ai un souci sur une macro, la taille des lignes est variable.

la macro permet de ranger les 5 premières ligne en 5 colonnes et les dernière en une seul colonne.

le fichier ci joint permet de pouvoir faire une exemple dessus

7ranger.xlsm (13.72 Ko)

Bonjour,

Il n'y a pas de procédure VBA dans le fichier joint.

Et donne un exemple de résultat souhaité.

Cdlt.

Merci pour votre intervention

je souhaite avoir un résultat suivant:

chaque bande de couleur représente une colonne.

9ranger.xlsm (13.99 Ko)

Re,

Pour le principe.

9ranger.xlsm (28.93 Ko)
Public Sub Transpose_data()
Dim lCol As Long
    With ActiveSheet
        lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
        .Cells(1).CurrentRegion.Copy
        .Cells(1, lCol + 2).PasteSpecial _
                Paste:=xlPasteValues, _
                Transpose:=True
    End With
    Application.CutCopyMode = False
End Sub

Merci pour votre aide

en fait cette macro transforme toutes ligne en colonne.

elle doit formé chacune des 5 première ligne en colonne et mettre le reste de ligne qui ne sont po connu sur une seul colonne.

Re,

N'avais je pas demandé un exemple de résultat (complet !?) ?

Regarde ce que tu as envoyé !...

Cdlt.

En mettant les couleurs sur les bandes, je me suis dit que cella était explicite.

en fait comme precise plus haut toutes les bandes de couleurs correspondent a une colonne. il y'aura au total 6 colonnes.

Re,

Une nouvelle proposition.

A te relire.

Cdlt.

12ranger.xlsm (24.98 Ko)

merci cela fonctionne.

il y' a un souci, cela doit etre dans les colonne a (A, F).

l'on range et remplace les données initiales

Bonjour Franck,

ton présent sujet est un doublon avec le sujet « classer une fichier ligne colonne » ; je t'ai déjà répondu ici :

https://forum.excel-pratique.com/viewtopic.php?p=710120#p710120


tu a écrit :

il y a un souci, cela doit être dans les colonne A à F.

on range et on remplace les données initiales.

tu crois pas qu't'aurais pu l'indiquer dès l'départ, dans ton énoncé ? alors après, tu t'étonnes que la macro fait pas c'que tu voulais ? tu croyais vraiment qu'on allait deviner tout seul qu'il faut effacer les données initiales pour mettre à la place les résultats ? alors au plus simple :

10ranger.xlsm (17.34 Ko)

si tu lis le code VBA et que tu le comprends, tu te rendras compte que ce que j'ai ajouté par rapport à mon 1er code VBA n'est rien d'autre qu'un vulgaire patch (= une rustine) ; ce terme est par analogie avec une chambre à air de vélo qui est crevée : on répare avec une bête rustine au lieu d'remplacer la chambre à air par une autre chambre à air toute neuve.

et voilà comment un demandeur fait perdre du temps aux intervenants ainsi qu'à lui-même car il n'a pas décrit clairement dans son énoncé tous les détails nécessaires pour la résolution de son exo ! t'avoueras qu'c'est loin d'être le top, hein ?

dhany

@Franck

bon, voici l'nouveau fichier (avec une nouvelle méthode) qui écrit directement les résultats en colonnes A à F :

5ranger.xlsm (17.59 Ko)

les résultats sont exactement les mêmes que dans l'précédent fichier, mais cette fois, y'a plus de patch !


profites-en pour lire attentivement les 2 codes VBA afin de comparer les 2 méthodes utilisées !

que te contenter d'une solution « toute cuite », et prête à servir !

dhany

bonjour Messieurs

Merci pour vos intervention et pour les remarque.

j'ai une erreur lors de l’exécution du code, l'erreur message box400

svp dhany, les lignes sont variables.

@Franck

tu a écrit :

les lignes sont variables

??? le fait que le nombre de lignes est variable est déjà pris en compte !

dl = Cells(Rows.Count, 1).End(3).Row : idem que dl = Cells(Rows.Count, "A").End(xlUp).Row

dernière ligne utilisée, selon la colonne A ; puis :

For lg1 = 1 To dl : des lignes 1 à dl ➯ pour toutes les lignes !


tu a écrit :

j'ai une erreur lors de l’exécution du code, l'erreur message box400

??? sur mon PC, j'ai aucune erreur d'exécution ; merci d'indiquer quel est le message d'erreur exact et complet ; et dans l'code VBA, quelle est la ligne qui en jaune ? tu peux aussi joindre ton fichier actuel (sans données confidentielles) pour vérification.

dhany

bonjour a vous.

svp j'ai toujour un sourci avec l'erreur 400

je ne sais pas comment faire??

une erreur 400 peut etre du a koi

Bonjour Franck,

relis bien la 2ème partie de mon post précédent !

dhany

M. dhany je vs ai fait un MP par rapport a cela pour vous presenter le fichier

j'étais en pause ; j'viens d'lire ton MP et d'y répondre.

dhany

Rechercher des sujets similaires à "classer fichier ligne colonne"