Discussion :

[Eraor]

Bonjour forum,
Deuxième discussion pour ma part, qui j'espère, sera aussi fructueuse que la première.
J'ouvre cette discussion à propos d'une macro que je souhaiterais faire. Cela est en rapport avec la réorganisation d'un tableau. Voici une capture pour que vous visualisiez mon problème :


En partant du tableau de gauche, j'aimerais arriver à celui de droite, mais ceci sur le même tableau, je m'explique :
J'aimerais que le tableau ("A3:C22") se réorganise en fonction de la colonne A. J'aimerais mettre une boucle If avec pour conditions un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
If Range("A3").Value = "B" OR Range("A3").Value = "F" OR Range("A3").Value = "L"
...

La boucle parcourrait tout le tableau et couperait la ligne où se trouve un B, un F ou un L et la collerait à partir de la ligne 17.
De plus il faudrait que quand une ligne est coupée, toutes les lignes de 4 à 16 remontent d'un cran pour combler les trous.
J'espère avoir été assez clair dans mes propos.
Merci d'avance pour vos pistes.

[Alex020181]

Bonjour,

Voici une proposition de code qui fait ta demande.

Attention le code est préfait pour ton exemple précis. A toi de le modifier pour prendre en compte un nombre de lignes ou de colonnes variables par exemple. C'est un début qui est largement optimisable.

On pourrait également mettre tes valeurs critères ("b", "f", "l" et d'autres qui pourraient arriver) dans un second tableau qui les contiendrait toutes et ainsi le code pourrait lire ce tableau et ne pas mettre ces valeurs en dur dans le code.

Teste et dis nous.

[Alex020181]

J'ai vu que tu as ouvert un autre fil concernant le tri de cellules non contiguës.

Je ne sais pas si ton fil précédent est en rapport avec celui-ci mais dans le doute voici le même code de réorganisation de tableau qui en plus te fait un tri croissant de tes données.

[a_diard]

Bonjour

Ceci ne répond pas entièrement a ta demande mais devrait pouvoir t'aider a avancer.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub essai()
 
derniereligne = Range("A3").End(xlDown).Row
 
For ligne = 3 To derniereligne
 
If Cells(ligne, 1).Value = "B" Or Cells(ligne, 1).Value = "F" Or Cells(ligne, 1).Value = "L" Then
derniereligne = derniereligne + 1
Range(Cells(derniereligne, 5), Cells(derniereligne, 7)).Value = Range(Cells(ligne, 1), Cells(ligne, 3)).Value
 
Else
 
Range(Cells(ligne, 5), Cells(ligne, 7)).Value = Range(Cells(ligne, 1), Cells(ligne, 3)).Value
End If
 
Next
End Sub

Bonne soirée

[Eraor]

Merci beaucoup pour toutes vos solutions, je les teste demain et vous redis !
Bonne soirée à tous

[Eraor]

Bonjour,
J'ai complètement oublié de vous donner une réponse. Vos deux techniques fonctionnent et peuvent servir donc ça aidera peut-être d'autres personnes sur ce forum.
Pour ma part j'ai utilisé une autre technique propre à mon fichier Excel donc un peu compliqué de la détailler ici.
Merci pour votre aide en tout cas !
Bonne journée à vous