Microsoft 365 Créer plusieurs feuilles à partir d'une colonne sous condition

solime

XLDnaute Nouveau
Bonjour à toutes et à tous,

Tout d'abord je voulais vous dire que je suis novice en codage.
J'ai fusionner plusieurs fichier .csv sur une colonne. Où j'ai des données concernant différents individus mais avec cette fusion ils s'enchaînent.
Ce que je voudrait faire c'est de créer une feuille par individu, mes données entre individus sont séparées par une ligne de texte "Volume micron^3". Ou bien trouver une autre méthode me permettant de fusionner mes .csv directement dans différentes feuilles.
J'ai pas mal cherché ou peut être pas bien et je n'ai pas réussi à trouver de réponse à mon problème c'est pourquoi je m'en remet à vous.

Ci-joint un exemple de fichier, en vous remerciant d'avoir pris le temps de me lire.
 

Pièces jointes

  • Statistics for 0HCT_0_3APH.xlsx
    19.1 KB · Affichages: 10

pierrejean

XLDnaute Barbatruc
Bonjour
Macro a utiliser:
VB:
Sub test()
fin = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
For n = fin To 1 Step -1
 If Feuil1.Range("A" & n) = "Volume (micron^3)" Then
   Sheets.Add
  Feuil1.Range("A" & n & ":A" & fin).Copy Destination:=ActiveSheet.Range("A1").Resize(fin - n + 1)
  Feuil1.Range("A" & n & ":A" & fin) = ""
 End If
Next
End Sub
 

Discussions similaires

Réponses
5
Affichages
98

Statistiques des forums

Discussions
311 725
Messages
2 081 944
Membres
101 849
dernier inscrit
florentMIG