classer des blocs de cellules

Bonjour a tous

En cette période de fête, je dois classer des blocs de cellules en fonctions d une valeur prise par une cellule du bloc.
Mais je sais pas trop comment faire sachant que chaque bloc a plusieurs lignes qui doivent etre deplacée, je peux pas utiliser le tri excel classique

Mon exemple est plus claire dans le petit classeur joint

Merci beaucoup pour votre aide, conseils, suggestions, code...
et bonne fête a tous :)

Citation:

---

je dois classer des blocs de cellules en fonctions d une valeur prise par une cellule du bloc.

---

Commence par classer ces valeurs dans un tableau à deux dimensions, la première fournissant l'ordre, la valeur de la cellule et la plage du bloc correspondant.

Code:

---

1 2	NoBloc(1,1) = La valeur de la cellule NoBloc(1,2) = LaPlage du bloc correspondant

---

Tu peux éviter le tableau si, pour le tri, tu recopies les valeurs de chaque cellule qui t'intéresse dans une colonne et la plage du bloc correspondant dans la colonne voisine, ceci dans une autre feuille de calculs. Il te reste à effectuer un tri classique sur les valeurs.
Juste une idée ;)

Merci pour ta réponse

Mon probleme c est que ta solution me depasse un peu.

Si j ai bien compris (et j en doute) tu me proposes dans ta "solution 2" de recopier sur une autre feuille les cellules sur lesquelles je me base pour effectuer mon classement en (i,1), avec en vis a vis les coordonnées de la page de cellule associée en (i,2)
Comme ca je peux faire mon tri excel classique.
Et après, une fois le tri effectué il me suffirait d'insérer la plage de cellule indiquée en (i,2)

C es bien ca ?
je t avoue etre un peu paumé sans exemple
est ce que tu pourrais me faire une amorce de code sur le fichier que j ai joint dans mon 1er message
La ou je bloque c est pour coder l inscription de la plage correspondante en face de chaque nom en G6. Apres je devrais pouvoir me debrouilller.

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub test()   Dim i As Integer, n As Integer n = Range("c6").End(xlDown).Row   For i = 6 To n Step 4 Cells(i, 7).Select Selection.formular1c1 = 'la je sais pas quoi ecrire pour specifier les coordonnées de la plage de cellule   End Sub

---

Tes blocs sont-ils nommés ?

Non
je pourrais nommer chaque plage mais ca serait trop long
car mes listes de blocs sont enormes.

a moins de faire une macro qui les nomment en cascade
Ton approche est astucieuse mais je crois que j ai pas les connaissance pour traduire en vba ce que tu proposes

comment faire une suite avec ca :

Code:

---

1 2 3

Range("C6:F9").Select ActiveWorkbook.Names.Add Name:="a", RefersToR1C1:="=exemple!R6C3:R9C6" End Sub

---

Désolé, je me suis absenté.
Je ne connais pas la structure de tes blocs, ni s'ils sont fixes ni les moyens que tu as pour les identifier. Ne peux-tu pas faire un tableau des adresses de chaque bloc ?
Ainsi, tu pourrais placer le code que tu as mis dans une boucle

Code:

---

1 2 3 4 5

AdB = array("","A1:G7", "H6:L18", "B8:F15", ...) 'adresses de tes blocs For i = 1 to Ubound(AdB) ActiveWorkbook.Names.Add Name:="Nom" & i, _ RefersToR1C1:="=Feuil1!" & AdB(i) Next

---

Juste une idée ;)
A+

Je te remercie de ton aide,

Mes blocs sont fixes. Dans mon premier message j ai joint un petit classeur
ou je donne un exemple de la structure de depart et celle que je souhaiterais obtenir.
Si tu trouves un moment tu pourrais y jeter un oeil.
En attendant je vais faire un tour sur un tutoriel histoire de comprendre ton dernier code pour pouvoir l appliquer

@+tard et bonne soirée.

Ok, je m'explique

Citation:

---

AdB = array("","A1:G7", "H6:L18", "B8:F15", ...) 'adresses de tes blocs

---

crée un tableau des adresses de tes blocs. La première adresse du tableau a un index = à 0. Donc, pour démarrer sur 1, je n'ai rien mis dans AdB(0) =("",
Ubound(AdB) donne la taille de ce tableau. Donc je compte tes adresses de 1 à Ubound(AdB) et pour chacune d'elle, AdB(i), j'insère le nom.
Le nom : J'aurais pu utiliser un tableau des noms de tes blocs mais pour simplifier, je concatène "Bloc" et le N° du bloc. Ce qui donne Bloc1 pour le nom du bloc 1, Bloc2 pour le bloc 2, Bloc3... etc
C'est ok ?
A+