Signaler

Création des bouton sur vba pour établir la liste des classes [Résolu]

Posez votre question clavervba 48Messages postés vendredi 3 février 2017Date d'inscription 7 mars 2017 Dernière intervention - Dernière réponse le 16 févr. 2017 à 10:52 par clavervba
Bonjour,

j'ai besoin de votre aide.

j'ai une liste de nom/prénom/classe (1iere année, 2ieme année, 3ieme année) et j'aimerai créer un bouton pour chaque classe.
c'est a dire en cliquant sur 1iere année, nous avons que la liste des élevés de 1iere année.
Utile
+0
plus moins
Bonjour Claver, bonjour le forum,

Pourquoi pas, tout simplement, un Filtre Automatique sur la colonne C des classes ?... Ça se trouve dans le ruban Données / Filtrer.
citundu2017 1Messages postés jeudi 2 février 2017Date d'inscription 3 février 2017 Dernière intervention - 3 févr. 2017 à 16:34
je veux avoir le nombre effectif a coté en ordre.1,2,3,4,5,6...
or si je met le filtre, j'aurai pas cela.
Répondre
Donnez votre avis
Utile
+0
plus moins
voici le fichier

http://www.cjoint.com/c/GBdozUXk1TN
Donnez votre avis
Utile
+0
plus moins
Bonjour Clavervba, Thautheme

Pourquoi du VBA ?
https://mon-partage.fr/f/NVXvIHvi/

Quant à
je veux avoir le nombre effectif a coté en ordre.1,2,3,4,5,6...
demande très ésotérique

Donnez votre avis
Utile
+0
plus moins
Bonjour à tous
Allez, une de plus, comme ça clavervba aura le choix
https://mon-partage.fr/f/BoflAnPO/
Cdlt
clavervba 48Messages postés vendredi 3 février 2017Date d'inscription 7 mars 2017 Dernière intervention - 16 févr. 2017 à 10:52
super frenchie83.
Merci
Répondre
Donnez votre avis
Utile
+0
plus moins
Bonjour et bravo Frenchie83
C'est professionnel et super
Cdlt
Donnez votre avis
Utile
+0
plus moins
bonjour à tous

Avant de penser VBA , Penser EXCEL

Donnez votre avis
Utile
-1
plus moins
Bonjour
Je ne suis pas très forte, mais voilà quelque chose qui marche. tu crées un bouton sur ta feuille, tu lui mets le nom : classe? si tu veux et tu lui associes la macro suivante


Sub BoutonClasse_Cliquer()
Dim Lig(100)
ligresul = 18
numresul = 1
rechclass = InputBox("Classe ?", "Choisissez la classe")
Range("C15").Value = rechclass
For I = 1 To 100
If I = 1 Then
lrech = 1
Else
lrech = ligrech
End If
Range("D" & lrech).Activate
Cells.Find(What:=rechclass, After:=ActiveCell).Activate
If ActiveCell.Row > 11 Then
I = 100
GoTo fini
End If
Lig(I) = ActiveCell.Row
ligrech = Lig(I)
Range("B" & Lig(I) & ":C" & Lig(I)).Select
Selection.Copy
Range("B" & ligresul).Select
ActiveSheet.Paste
Range("A" & ligresul).Select
ActiveCell.Value = numresul
numresul = numresul + 1
ligresul = ligresul + 1
fini:
Next I
End Sub


Ce n'est pas pro, mais cela marche. Tu peux ensuite effacer tes résultats pour refaire une nouvelle liste, cela je ne l'ai pas prévu dans la macro

Bon courage
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !