Microsoft 365 Fractionner les numeros par tranche de 300

xUpsilon

XLDnaute Accro

• 9 Octobre 2023

• #2

Bonjour,

Dans le TCD -> Sélectionner toutes les lignes -> Clic droit -> Grouper
=>


Bonne journée,

 

Vote positif 0 Vote négatif

V

VinceARomiac

XLDnaute Nouveau

• 9 Octobre 2023

• #3

Bonjour Merci Pour votre travail fourni ,

J'ai dejà effectuer cette approcher , mais je ne veux pas afficher les intervalle , je veux les enulérer pas tranche de 300 en colonne , ex0: de 1 ......301;301-601 etc....

 

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 9 Octobre 2023

• #4

Bonjour
Et pourquoi ne pas le faire directement en créant juste les 2 premiers n° dans chaque colonne ?




Une fois la première colonne crée correctement de 1 à 300, il suffit d'un double-clic pour étendre toutes les autres plages assez bas. Un seul pour toute les colonnes !!!

@ plus

 

Dernière édition: 9 Octobre 2023

Vote positif 0 Vote négatif

CISCO

XLDnaute Barbatruc

• 9 Octobre 2023

• #5

Bonjour



un double-clic et hop


@ plus

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 9 Octobre 2023

• #6

Bonjour à tous
Une proposition pour 365 :


Cordialement

 

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 9 Octobre 2023

• #7

Bonjour,

En B2, à tirer vers la droite :

VB:

=SIERREUR(PRENDRE(EXCLURE($A$2:$A$75716;(COLONNE()-2)*300);300);"")

Daniel

 

Vote positif 0 Vote négatif

V

VinceARomiac

XLDnaute Nouveau

• 9 Octobre 2023

• #8

@CISCO Merci simple et très smart

 

Vote positif 0 Vote négatif

V

VinceARomiac

XLDnaute Nouveau

• 9 Octobre 2023

• #9

danielco à dit:

Bonjour,

En B2, à tirer vers la droite :

VB:

=SIERREUR(PRENDRE(EXCLURE($A$2:$A$75716;(COLONNE()-2)*300);300);"")

Daniel

Cliquez pour agrandir...

Merci Cher Daniel pour ta contribution .

 

Vote positif 0 Vote négatif

V

VinceARomiac

XLDnaute Nouveau

• 9 Octobre 2023

• #10

Efgé à dit:

Bonjour à tous
Une proposition pour 365 :
Regarde la pièce jointe 1180645

Cordialement

Cliquez pour agrandir...

Merci pour le travail fourni .

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Octobre 2023

• #11

Bonjour le fil

Ci-dessous en utilisant la fonctionnalité Grouper
(macro OK sur le fichier exemple si les données commencent en ligne 1)

Spoiler: Cliquer pour voir le code VBA

Code:

Sub GrouperToutesLes300Lignes()
Dim c As Range, PLig&
PLig = 1
Application.ScreenUpdating = False
For Each c In Range(Cells(1), Cells(Rows.Count, 1).End(xlUp))
If c.Row Mod 300 = 0 Then
Range(Cells(PLig, 1), Cells(c.Row - 1, 1)).Rows.Group
PLig = c.Row + 1
End If
Next c
End Sub

Résultat obtenu
NB: On clique sur le 2 pour dégrouper, sur le 1 pour grouper

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Octobre 2023

• #12

Bonjour à tous,

Si la colonne A ne contient pas une séquence (et même si elle en contient une comme dans l'exemple), on peut utiliser la formule en B1:

VB:

=SIERREUR(FILTRE($A$2:$A$75716;($A$2:$A$75716>=1+300*(COLONNES($A:A)-1))*($A$2:$A$75716<=300*(COLONNES($A:A))));"")

Puis recopier cette formule vers la droite jusqu'à obtenir une colonne "vide".

Si on veut éliminer d'éventuels doublons, on inclura la fonction dans la fonction SIERREUR(Unique(Filtre(...))...)

 

Dernière édition: 9 Octobre 2023

Vote positif 0 Vote négatif

D

danielco

XLDnaute Accro

• 9 Octobre 2023

• #13

Ou encore :

VB:

=SIERREUR(MAKEARRAY(300;PLAFOND(75715/300;1);LAMBDA(x;y;INDEX(A2:A75715;x+(y-1)*300;1)));"")

Daniel

 

Vote positif 0 Vote négatif