tri de couleur

Re : tri de couleur

Bonjour, voilà un début tu n'as plus qu'a continuer

Sub tri()
Sheets("Base et coordonnées").Select

If Range("C3").Interior.ColorIndex = 43 Then
Cells(3, 3).Select
Selection.Copy
Sheets("Etat des lieux").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlPasteValues
End If



End Sub

Re : tri de couleur

Je comprend pas, il faut que je tape à la main chaque cas pour toute les lignes ?

Re : tri de couleur

Jusqu'à ce que je trouve comment faire pour tout faire à la fois ^^, ou que quelqu’un d'autre trouve oui

Re : tri de couleur

Bonjour tout le monde,

Spadou86, tu n'es pas obligé de faire les couleurs une par une manuellement!

Tu peux aussi le faire automatiquement. Par exemple en utilisant deux boucles basique. Par exemple 2 boucles For ... To ... Next imbriquées.

Pour cela il te faut connaitre la palette des couleurs! Deux solutions :
-> recherche sur internet (télécharger la pièce jointe - attention, le nombre de couleur varie en fonction de ta version Excel)

-> pour être sûr, faire une petite macro pour tester les couleurs possibles et connaître le code correspondant (à mettre sur un fichier vierge). Par exemple :

Sub couleur()
Range("A1") = "couleur"
Range("B1") = "code correspondant"

For i = 1 To 100
Range("A" & i + 1).Interior.ColorIndex = i
Range("B" & i + 1) = i
Next i

End Sub

Cliquez pour agrandir...

Comment savoir le nombre de couleur géré par ta version excel : lancer la macro
-> tu as un message d'erreur (moi oui - pour information j'ai Excel 2003). Je regarde le fichier, il s'est arrêté à la couleur n°56. Donc ma version d'excel gère 56 couleurs. Si tu as un doute, remplace 100 par 56 et relance la macro, tu verras que tu n'as plus le message d'erreur.
-> tu n'as pas de message d'erreur : cela signifie que ton excel gère plus de 100 couleurs, auquel cas tu remplace 100 par 150 et ainsi de suite, jusqu'à trouver la limite 😉

Une fois tout cela fait :
-> boucle pour gérer toutes les couleurs
-> boucle pour gérer toutes les cellules
-> insertion de variables pour adapter ta macro à la taille de ton tableau

Le tour est joué 😉

Bonne recherche.

PS. : si tu ne trouve pas tout seul, indique nous tes tentatives, les problèmes rencontrés et ainsi l'on pourra te corriger et te mettre sur la voie. Pour information, il s'agit d'une solution parmi tant d'autre.

Re : tri de couleur

Et voilà

Sub tri()
Dim xlig As Integer
Dim i As Integer, j As Variant

For i = 3 To 150
Sheets("Base et coordonnées").Select

If Cells(i, 3).Interior.ColorIndex = 43 Then
Cells(i, 3).Select
Selection.Copy
Sheets("Etat des lieux").Select
Range("A2").Select
xlig = Range("A150").End(xlUp).Row + 1
Range("A" & xlig).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End If
Next


End Sub

bonne journée