trier

ric · 19 Septembre 2005

bonjour,

j'ai une liste d'élèves(tout un niveau de classe), chaque élève a 5 choix mais ne peut en faire qu'un. A partir de cette liste ou je coche l'activité désirée je voudrais établir une liste d'élève par activité. (et c'est la que je bloque, car je n'arrive pas a faire une liste avec les noms en dessous des uns et des autres dans chaque activité)

merci pour votre aide précieuse

andré · 19 Septembre 2005

Salut ric,

Qu'appelles-tu 'je coche' ?

Il n'est pas possible de te conseiller une solution sans savoir comment tes listes sont organisées.
Le meiux serait de mettre un petit extrait en pièce jointe.

Pour t'y prendre :
Lien supprimé

Â+

ChTi160 · 19 Septembre 2005

Salut ric
bonjour andré
une interprétation en pièce jointe a adapter biensur
[file name=Tri_20050919142433.zip size=8209]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tri_20050919142433.zip[/file]

ric 54 · 19 Septembre 2005

voila le fichier joins

merci

ChTi160 · 19 Septembre 2005

re
oupssssssss c'est loupé
fichier Zipper de moins de 50ko sans accent ni caractères spéciaux ni espaces dans le titre

essaye encore c'est bien !!!!lol

a très bientôt

ric 54 · 19 Septembre 2005

re

merci [file name=Classeur1_20050919144719.zip size=1827]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20050919144719.zip[/file]

ric 54 · 19 Septembre 2005

merci andre de ton aide précieuse,

a moi de jouer maintenant

encore merci

ric 54 · 19 Septembre 2005

pardon merci jean marie

Hervé · 19 Septembre 2005

Bonjour ric, andré, chti

je profite de ce post pour montrer un truc à l'ami chti, truc qui m'a été donné par @+thierry (merci)

Chti, on peut utiliser les tableaux array directement dans une boucle for each, au lieu de les initialiser avant et de boucler dessus, ensuite, via un for to

Ainsi ton code donnerai ceci :

Sub trie()
Dim derlgn As Byte, Col As Byte, C As Byte, L As Byte
Dim tabtemp As Variant
Dim item As Variant

With Worksheets('Feuil1')

    derlgn = .Range('B100').End(xlUp).Row
    tabtemp = .Range(.Cells(2, 2), .Cells(derlgn, 3))
   
    For Col = 5 To 10
        For Each item In Array('A', 'B', 'C', 'D', 'E')
            For L = 1 To UBound(tabtemp, 1)
                If tabtemp(L, 2) = item Then
                    derlgn = .Cells(100, Col).End(xlUp).Row + 1
                    .Cells(derlgn, Col) = tabtemp(L, 1)
                End If
            Next L
            Col = Col + 1
        Next item
    Next Col
       
End With
End Sub

l'intéret se trouve dans l'élimination d'une variable, et (peut etre)un traitement plus rapide.

voilà, c'etait la minute : 'j'ai appris quelque chose, je vais en faire profiter les copains' sponsorisé par hervé

salut

andré · 19 Septembre 2005

Salut à vous,

Tu ne manque pas d' [color=#FF0000]air vé[/color] nard !

C'était trop fort, je n'ai pu m'en empêcher (lol).

Â+

andré · 19 Septembre 2005

Et bien c'est loupé !

air vé

Mieux que :tu ne manques pas d'Hergé rare.

Bon il est temps que je me substante (tiens ce verbe n'existe pas au dictionnaire, serait-ce un belgicisme ?)

Â+

ChTi160 · 20 Septembre 2005

bonsoir le Fil
Salut andré

Hervé je te remercie
effectivement très pratique et on gagne en espace Lol
moi tu sais des cours particuliers je suis preneur c'est quand tu veux Lol
Merci encore demain je fais tourner pour le Fun comme dirait @+Thierry

ChTi160 · 20 Septembre 2005

Salut ric 54

j'ai mis du temps à retrouver le fil Lol
en pièce jointe une autre version

[file name=Transfert_Act.zip size=9809]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Transfert_Act.zip[/file]

Gael · 20 Septembre 2005

Bonjour Ric, Jean-Marie, André, Hervé,

Uns solution dans le fichier joint avec des formules. La mise à jour se fait automatiquement.

J'ai ajouté un contrôle de validation pour éviter qu'un étudiant ne saisisse 2 choix avec données validation et la formule:

=NB.SI($B2:$F2;'x')<=1

@+

Gael [file name=Activites.zip size=5589]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Activites.zip[/file]

Message édité par: Gael, à: 20/09/2005 20:39

trier

ric

Guest

andré

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

ric 54

Guest

ChTi160

XLDnaute Barbatruc

ric 54

Guest

Pièces jointes

ric 54

Guest

ric 54

Guest

Hervé

XLDnaute Barbatruc

andré

XLDnaute Barbatruc

andré

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

Pièces jointes

Gael

XLDnaute Barbatruc

Pièces jointes

Discussions similaires