création d'une liste

[spadou86]

Bonjour à tous,

Voilà ce que j'essaie de faire sans succès.
j'ai une liste de nom. A ces noms correspondent un chiffre de 1 à 3
Par exemple :
Machin 1
truc 1
Bidule 2

Ce que je cherche à faire c'est dans une nouvelle feuille faire une liste de noms selon s'il sont 1, 2 ou 3.
Voici le dossier joint pour exemple.


Merci d'avance

 

[spadou86]

Re : création d'une liste

C'est vrai ^^, c'est tout de suite plus simple.
Mais je n'arrive pas à adapter la macro à mon document original.
Car je voudrais que le tri se fasse sur une autre feuille (la sélection des noms et des numéros et aussi sur des colonnes différentes). Je pensais pouvoir modifier la macro tout seul mais en fait non :/

 

[Paritec]

Re : création d'une liste

re spadou86 le forum
bah oui quand on demande un fichier avec les conditions d'utilisations c'est pas pour rien !!!
a+
papou😱

 

[Paritec]

Re : création d'une liste

Re spadou86 le forum
voilà ton fichier modifié
a+
papou😱

 

[spadou86]

Re : création d'une liste

Merci beaucoup ca marche comme je veux^^
J'ai ajouter une macro countbycolor mais quand je lance le tri des nom cela me met #VALEUR! dans la cellule. Je suis obligé de retourner dans la cellule et y faire entrée pour que cela puisse compter.
Je ne sais pas trop comment faire pour éviter cela.

 

[Paritec]

Re : création d'une liste

Re spadou86 le forum
voilà en retour
a+
papou😱

 

[patrick7676]

Re : création d'une liste

bonjour
qu'attend tu par validation matricielle ?

 

[david84]

Re : création d'une liste

Re

qu'attend tu par validation matricielle ?

Une formule matricielle doit être validée en appuyant conjointement sur les touches Ctrl, Shift (Maj) et entrée.
Il aurait été plus simple d'ouvrir une discussion pour exposer ta demande.
A+

 

[patrick7676]

Re : création d'une liste

je sais , j'aurais du
merci
a bientôt

 

[spadou86]

Re : création d'une liste

Merci Paritec tu es vraiment de bons secours ^^
Mais le "call compter" ne fonctionne pas apparemment, à moins de créer un deuxième bouton pour compter
Ou alors je ne fais pas comme il faut.

 

[Paritec]

Re : création d'une liste

Re Spadou le forum
oui j'avais pas testé les deux ensembles voilà qui est rectifié
a+
papou😱

 

[spadou86]

Re : création d'une liste

Re Paritec,
Je n'arrive pas à faire fonctionner la macro couleur sur mon document, je ne comprend pas trop car quand j'adapte celui que tu m'as renvoyé de la même manière que le mien celui-ci fonctionne bien.
Voici ma macro :

Option Explicit
Option Base 1

Sub dispatcher()
Call copypast 'j'ai du rajouter ceci pour simplifier
'le processus mais avec ou sans cela ne change rien
Dim i&, fin&, bb As Variant, a&, y&, fin1&, x&
Feuil3.Range("A2:C100").Clear
fin = Feuil2.Range("F" & Rows.Count).End(xlUp).Row
With Feuil2
y = 1: x = 2
1 For i = 1 To fin
If .Cells(i, 5) = y Then .Cells(i, 6).Copy Feuil3.Cells(x, y): x = x + 1
If y = 7 Then Exit Sub
If i = fin Then y = y + 1: x = 2: GoTo 1
Next i
End With
2 Call couleur

End Sub



Sub couleur() 'ma Feuil3 correspond à la Feuil2 sur le document que tu me renvois
Dim cl As Range, TempCount&, ColorIndex&, fin&, plage As Range, i&
fin = Cells.Find("*", , xlValues, , 1, 2, 0).Row
Set plage = Feuil3.Range("A2:C" & fin)
For i = 2 To 5
ColorIndex = Feuil3.Cells(i, 5).Interior.ColorIndex
If ColorIndex = -4142 Then GoTo 1
TempCount = 0
For Each cl In plage
If cl.Interior.ColorIndex = ColorIndex Then TempCount = TempCount + 1
Next cl
Set cl = Nothing
Feuil3.Cells(i, 6) = TempCount
1 Next i
End Sub

 

[Paritec]

Re : création d'une liste

Re bonjour Spadou le forum
oui il ne suffit pas de recopier "et de rajouter n'importe quoi", mais seulement de lire !!!!
donc voilà la macro modifiée comme celle du fichier qui marche d'ailleurs.
a+
papou😱

Option Explicit
Option Base 1

Sub dispatcher()
    Dim i&, fin&, a&, y&, fin1&, x&
    Feuil3.Range("A2:C100").Clear
    fin = Feuil2.Range("F" & Rows.Count).End(xlUp).Row
    With Feuil2
        y = 1: x = 2
1        For i = 1 To fin
            If .Cells(i, 5) = y Then .Cells(i, 6).Copy Feuil3.Cells(x, y): x = x + 1
            If y = 7 Then goto 2
            If i = fin Then y = y + 1: x = 2: GoTo 1
        Next i
    End With
2 
Call couleur
End Sub

 

[spadou86]

Re : création d'une liste

Merci, c'est ma faute j'ai du mal recopier un truc le goto 2 avait changé.
Mais j'y regarderai mieux la prochaine fois. En tout cas merci pour tout !!