Trier une liste
KWET2501
Messages postés
8
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
20 septembre 2007
-
20 sept. 2007 à 00:11
KWET2501 Messages postés 8 Date d'inscription vendredi 14 septembre 2007 Statut Membre Dernière intervention 20 septembre 2007 - 20 sept. 2007 à 11:59
KWET2501 Messages postés 8 Date d'inscription vendredi 14 septembre 2007 Statut Membre Dernière intervention 20 septembre 2007 - 20 sept. 2007 à 11:59
5 réponses
PCPT
Messages postés
13272
Date d'inscription
lundi 13 décembre 2004
Statut
Membre
Dernière intervention
3 février 2018
47
20 sept. 2007 à 01:32
20 sept. 2007 à 01:32
VBA! pas VB6 !!!
topic déplacé
topic déplacé
tubafat
Messages postés
79
Date d'inscription
lundi 17 juillet 2006
Statut
Membre
Dernière intervention
25 septembre 2007
20 sept. 2007 à 09:51
20 sept. 2007 à 09:51
Bonjour,
j'avoue que ton code me laisse énormément perplexe...
Pourquoi passer par l'écriture de formules dans les cellules pour seulement recopier un titre?
De plus, tu fais référence à une Sheets("Feuil1") à la fin de ton code, alors que la feuille sur laquelle tu veux travailler s'appelle Sheets("liste_exercé").
Evite également les accents dans les noms de feuille, ou les noms de contrôle...
Un petit code qui me semble plus judicieux (mais je peux me tromper)...
Sub tri_semaine()
Dim reponse As Integer
Dim i As Integer
Sheets.Add
'ATTENTION la feuille ne doit pas déjà exister, sinon la macro plante!!
ActiveSheet.Name = "Resultat_Semaine_Choisie" ' création d'une feuille nouvelle nommée : Resultat_Semaine_Choisie
' recopie du titre des données situées en A5, B5, C5, D5de la feuil1
ActiveWorkbook.Worksheets("Resultat_Semaine_Choisie").Range("A5:D5").Value = ActiveWorkbook.Worksheets("liste_exercé").Range("A5:D5").Value
' choix semaine
reponse = InputBox("choisir la semaine")
'initialisation des variables de boucle
i = 6
j = 6
'boucle de copie
While ActiveWorkbook.Worksheets("liste_exercé").Range("A" & i).Value <> ""
'test de la valeur de la colonne semaine
If ActiveWorkbook.Worksheets("liste_exercé").Range("A" & i).Value = reponse Then
ActiveWorkbook.Worksheets("Resultat_Semaine_Choisie").Range("A" & j & ":D" & j).Value = ActiveWorkbook.Worksheets("liste_exercé").Range("A" & i & ":D" & i).Value
j = j + 1
End If
i = i + 1
Wend
End Sub
A améliorer bien sur (gestion des entrées non numériques de l'inut box, test de l'existence de la feuille résultat,...) mais ça te fait un bonne base pour commencer.
Tubafat
Avant d'imprimer, pensez à l'environnement
j'avoue que ton code me laisse énormément perplexe...
Pourquoi passer par l'écriture de formules dans les cellules pour seulement recopier un titre?
De plus, tu fais référence à une Sheets("Feuil1") à la fin de ton code, alors que la feuille sur laquelle tu veux travailler s'appelle Sheets("liste_exercé").
Evite également les accents dans les noms de feuille, ou les noms de contrôle...
Un petit code qui me semble plus judicieux (mais je peux me tromper)...
Sub tri_semaine()
Dim reponse As Integer
Dim i As Integer
Sheets.Add
'ATTENTION la feuille ne doit pas déjà exister, sinon la macro plante!!
ActiveSheet.Name = "Resultat_Semaine_Choisie" ' création d'une feuille nouvelle nommée : Resultat_Semaine_Choisie
' recopie du titre des données situées en A5, B5, C5, D5de la feuil1
ActiveWorkbook.Worksheets("Resultat_Semaine_Choisie").Range("A5:D5").Value = ActiveWorkbook.Worksheets("liste_exercé").Range("A5:D5").Value
' choix semaine
reponse = InputBox("choisir la semaine")
'initialisation des variables de boucle
i = 6
j = 6
'boucle de copie
While ActiveWorkbook.Worksheets("liste_exercé").Range("A" & i).Value <> ""
'test de la valeur de la colonne semaine
If ActiveWorkbook.Worksheets("liste_exercé").Range("A" & i).Value = reponse Then
ActiveWorkbook.Worksheets("Resultat_Semaine_Choisie").Range("A" & j & ":D" & j).Value = ActiveWorkbook.Worksheets("liste_exercé").Range("A" & i & ":D" & i).Value
j = j + 1
End If
i = i + 1
Wend
End Sub
A améliorer bien sur (gestion des entrées non numériques de l'inut box, test de l'existence de la feuille résultat,...) mais ça te fait un bonne base pour commencer.
Tubafat
Avant d'imprimer, pensez à l'environnement
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 août 2018
23
20 sept. 2007 à 11:53
20 sept. 2007 à 11:53
Tu pourrais aussi utiliser la méthode du filtre comme tu as dit ...
Il te suffit d'utiliser l'enregistreur de macro, regarder le code généré et l'adapter avec un InputBox.
MPi
Il te suffit d'utiliser l'enregistreur de macro, regarder le code généré et l'adapter avec un InputBox.
MPi
KWET2501
Messages postés
8
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
20 septembre 2007
20 sept. 2007 à 11:58
20 sept. 2007 à 11:58
bonjour
merci pour ton aide je comprend deja la facon de faire!
je viens d'essayer ta facon de voir mais il dois y avoir un problème à partir de la boucle car ça me génére un code 9
je retrouve le résultat que j'avais auparavant.
je regarderais un peu plus un détail cet aprem et te dirais quoi!
merci de ton aide Kwet
merci pour ton aide je comprend deja la facon de faire!
je viens d'essayer ta facon de voir mais il dois y avoir un problème à partir de la boucle car ça me génére un code 9
je retrouve le résultat que j'avais auparavant.
je regarderais un peu plus un détail cet aprem et te dirais quoi!
merci de ton aide Kwet
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
KWET2501
Messages postés
8
Date d'inscription
vendredi 14 septembre 2007
Statut
Membre
Dernière intervention
20 septembre 2007
20 sept. 2007 à 11:59
20 sept. 2007 à 11:59
message ci dessus adressé à "tubafat"
