Microsoft 365 Fractionner les numeros par tranche de 300

[VinceARomiac]

Bonjour j’espère que vous allez bien , J’ai liste de numero que j’aimerais fractionner par intervalle de 300 en colonne par exmeple de 1----300 et ainsi de suite , je souhaite afficher les nombre pas les intervalles comme les TCD ;

 

[xUpsilon]

Bonjour,

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

=>

Bonne journée,

 

[VinceARomiac]

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....

 

[CISCO]

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

 

[CISCO]

Bonjour

un double-clic et hop

@ plus

 

[Efgé]

Bonjour à tous
Une proposition pour 365 :

Cordialement

 

[danielco]

Bonjour,

En B2, à tirer vers la droite :

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

Daniel

 

[VinceARomiac]

@CISCO Merci simple et très smart

 

[VinceARomiac]

Bonjour,

En B2, à tirer vers la droite :

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

Daniel

Merci Cher Daniel pour ta contribution .

 

[VinceARomiac]

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

Cordialement

Merci pour le travail fourni .

 

[Staple1600]

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

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

 

[mapomme]

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:

=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(...))...)

 

[danielco]

Ou encore :

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

Daniel