création d'une liste

S

spadou86

Guest

• 4 Avril 2012

• #16

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 :/

 

Pièces jointes

• Spadou V3.xls

  31.5 KB · Affichages: 28
• Spadou V3.xls

  31.5 KB · Affichages: 32
• Spadou V3.xls

  31.5 KB · Affichages: 26

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 4 Avril 2012

• #17

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😱

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 4 Avril 2012

• #18

Re : création d'une liste

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

 

Pièces jointes

• Spadou V4.xls

  31.5 KB · Affichages: 24

Vote positif 0 Vote négatif

S

spadou86

Guest

• 4 Avril 2012

• #19

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.

 

Pièces jointes

• Spadou V5.xls

  35.5 KB · Affichages: 28

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 4 Avril 2012

• #20

Re : création d'une liste

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

 

Pièces jointes

• Spadou V6.xls

  35 KB · Affichages: 25

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 4 Avril 2012

• #21

Re : création d'une liste

bonjour
qu'attend tu par validation matricielle ?

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 4 Avril 2012

• #22

Re : création d'une liste

Re

qu'attend tu par validation matricielle ?

Cliquez pour agrandir...

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+

 

Vote positif 0 Vote négatif

P

patrick7676

XLDnaute Occasionnel

• 5 Avril 2012

• #23

Re : création d'une liste

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

 

Vote positif 0 Vote négatif

S

spadou86

Guest

• 5 Avril 2012

• #24

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.

 

Dernière modification par un modérateur: 5 Avril 2012

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Avril 2012

• #25

Re : création d'une liste

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

 

Pièces jointes

• Spadou V7.xls

  35.5 KB · Affichages: 22

Vote positif 0 Vote négatif

S

spadou86

Guest

• 5 Avril 2012

• #26

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

 

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 5 Avril 2012

• #27

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

Code:

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

 

Dernière édition: 5 Avril 2012

Vote positif 0 Vote négatif

S

spadou86

Guest

• 5 Avril 2012

• #28

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

 

Vote positif 0 Vote négatif