Tri de données automatisé et redistribution colonnes en x colonnes
Bonjour,
Je ne sais pas si je vais réussir à exprimer correctement ma demande. J'aurais besoin de trier un grand nombre de données.
Pour cela, j'aurai besoin de ne sélectionner que certaines plages du fichier, avec des redondances.
Par exemple, dans le fichier joint, trier les épaisseurs (colonne B) par lot (Sites 1 à 13) et les afficher dans des colonnes séparées.
En gros, je souahterais selectionner uniquement les cellules de la colonnes B pour lesquelles la colonne A affiche des valeurs de 1 à 13.
Puis afficher ces cellules sur de nouvelles colonnes par groupe de 13 cellules (les sites 1 à 13).
J'avais commencer à écrire cette macro, qui permet de redistribuer une colonne en x colonnes toutes les n lignes :
Option ExplicitSub Repartition()
Dim Lg As Long
Dim I As Integer
Lg = Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To ((Lg - 1) \ 13) + 1
Range("A" & 1 + (I - 1) * 13 & ":A" & I * 13).Cut Destination:=Cells(1, I)
Next I
End Sub
Elle fonctionne très bien mais nécessite de multiples copier/coller de cellule ou la suppression manuelle de lignes.
Je cherche donc à améliorer cette macro en partant du fichier joint, de manière à ne sélectionner que les cellules (ou lignes) correspondant aux sites 1 à 13 de tout le fichier. Dans l'idéal, je souhaiterais pouvoir le faire pour les colonnes B, C et D en même temps.
Merci d'avance pour votre aide.
Cordialement,
Bonjour,
Où est-ce comme ceci?
Cdlt
Bonjour,
@Jean-Eric: oui dans l'idéal c'est le résultat attendu car je transpose ensuite les colonnes en lignes. Du coup, ce serait excellent.
@Arturo83, c'est exactement ce que je recherche.
Merci beaucoup pour votre réacitivité.
Coridialement.
Olivier