Diviser les données en plusieurs feuilles de calcul par nombre de lignes dans Excel
Diviser efficacement une vaste plage de données en plusieurs feuilles Excel selon un nombre précis de lignes permet d’optimiser la gestion de vos informations. Par exemple, fractionner un jeu de données toutes les 5 lignes simplifie grandement son organisation et sa manipulation. Ce guide vous présente deux méthodes pratiques pour réaliser cette opération rapidement et facilement.
Diviser les données en plusieurs feuilles de calcul par nombre de lignes avec du code VBA
Diviser les données en plusieurs feuilles de calcul par nombre de lignes avec Kutools pour Excel
Diviser les données en plusieurs feuilles de calcul par nombre de lignes avec du code VBA
Le code VBA suivant vous permet de fractionner les lignes en plusieurs feuilles de calcul, selon un nombre prédéfini de lignes. Voici la marche à suivre :
1. Maintenez enfoncée la touche ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
VBA : Diviser les données en feuilles de calcul par nombre de lignes dans Excel
Sub Splitdatabyrows()
'Updated by Extendoffice
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (xIER - xRow.Row + 1) < SplitRow Then
resizeCount = (xIER - xRow.Row + 1)
End If
xRow.Resize(resizeCount).Copy
Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
If xIER > (xRow.Row + SplitRow - 1) Then
xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
ElseIf xIER = xRow.Row Then
xWs.Name = xRow.Row
Else
xWs.Name = xRow.Row & " - " & xIER
End If
Application.ActiveSheet.Range("A1").PasteSpecial
Set xNTRg = Application.ActiveSheet.Range("A1")
xTRg.Copy
xNTRg.Insert
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Ensuite, appuyez sur la touche F5 ; dans la boîte de dialogue qui s’ouvre, sélectionnez la ligne d’en-tête (voir la capture d’écran) :
4. Cliquez ensuite sur OK, puis, dans la deuxième boîte de dialogue, sélectionnez la plage de données que vous souhaitez fractionner par nombre de lignes (voir la capture d’écran) :
5. Cliquez de nouveau sur le bouton OK ; dans la troisième boîte de dialogue, saisissez le nombre de lignes selon lequel vous souhaitez effectuer le fractionnement (voir la capture d’écran) :
6. Cliquez ensuite sur le bouton OK ; les données sont alors réparties dans plusieurs feuilles de calcul selon le nombre de lignes indiqué (voir la capture d’écran) :
Diviser les données en plusieurs feuilles de calcul par nombre de lignes avec Kutools pour Excel
Si vous trouvez le code VBA trop complexe, Kutools pour Excel propose une solution rapide et intuitive pour résoudre efficacement le problème de fractionnement des données. Grâce à sa fonctionnalité Diviser les données, le processus devient extrêmement simple : tout utilisateur, quel que soit son niveau, peut facilement scinder de grands jeux de données en plusieurs feuilles de calcul, sans aucune connaissance approfondie en programmation — pour une gestion des données plus fluide et efficace.
Si vous avez installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez la plage de données à fractionner, puis cliquez sur KUTOOLS PLUS > Diviser les données (voir la capture d’écran) :
3. Dans la boîte de dialogue Diviser les données en plusieurs feuilles de calcul :
- Sélectionnez Valeur fixe dans l’option Critère de division, puis saisissez le nombre de lignes que vous souhaitez utiliser pour fractionner chaque feuille de calcul.
- Si vos données comportent des en-têtes et que vous souhaitez les inclure dans chaque nouvelle feuille créée lors du fractionnement, cochez l’option Inclure les titres. ()Astuce : vous pouvez préciser le nombre de lignes d’en-tête en fonction de la structure de vos données.)
- Vous pouvez ensuite définir les règles de fractionnement du nom de la feuille de calcul. Dans la section Nom des feuilles de calcul créées, sélectionnez les règles de nommage dans la liste déroulante Règles, et ajoutez éventuellement un préfixe ou un suffixe aux noms des feuilles.
4. Après avoir défini les paramètres, cliquez sur OK : la boîte de dialogue « Sélectionner les données » a été fractionnée en plusieurs feuilles de calcul d’un nouveau classeur toutes les 5 lignes, et les en-têtes ont été insérés dans chaque nouvelle feuille (voir la capture d’écran).
Articles associés :
- Diviser les données en plusieurs feuilles de calcul en fonction de la colonne
- Supposons que vous disposiez d’une feuille de calcul contenant un grand nombre de lignes de données, et que vous souhaitiez les répartir automatiquement dans plusieurs feuilles distinctes en fonction de la colonne « Nom » (voir la capture d’écran ci-dessous), les noms étant saisis de manière aléatoire. Vous pourriez certes commencer par trier les données, puis les copier-coller une à une dans de nouvelles feuilles — mais cette méthode fastidieuse exigerait une patience considérable pour gérer toutes ces opérations répétitives. Heureusement, je vais vous dévoiler quelques astuces rapides et efficaces pour accomplir cette tâche en un clin d’œil.
- Combiner Ligne en double et additionner les valeurs dans Excel
- Dans Excel, il est courant de rencontrer des jeux de données contenant des entrées dupliquées. Souvent, vous faites face à une plage de données où le principal défi consiste à fusionner efficacement ces lignes en double tout en additionnant simultanément les valeurs d’une colonne correspondante, comme le montre la capture d’écran suivante. Nous allons explorer plusieurs méthodes pratiques pour consolider ces doublons et agréger leurs valeurs associées, améliorant ainsi la clarté et l’utilité de votre classeur Excel.
- Fusionner deux tables ou plus en une seule en fonction de Colonne clé
- Supposons que vous ayez trois tables dans un classeur et que vous souhaitiez les fusionner en une seule table en fonction des Colonne clé correspondants afin d’obtenir le résultat illustré dans la capture d’écran ci-dessous. Cette tâche peut s’avérer délicate pour la plupart d’entre nous, mais ne vous inquiétez pas : dans cet article, je vais vous présenter quelques méthodes pour résoudre ce problème.
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels