Création des bouton sur vba pour établir la liste des classes
Résolu/Fermé
clavervba
Messages postés
47
Date d'inscription
vendredi 3 février 2017
Statut
Membre
Dernière intervention
7 mars 2017
-
3 févr. 2017 à 11:20
clavervba Messages postés 47 Date d'inscription vendredi 3 février 2017 Statut Membre Dernière intervention 7 mars 2017 - 16 févr. 2017 à 10:52
clavervba Messages postés 47 Date d'inscription vendredi 3 février 2017 Statut Membre Dernière intervention 7 mars 2017 - 16 févr. 2017 à 10:52
A voir également:
- Création des bouton sur vba pour établir la liste des classes
- Liste déroulante excel - Guide
- Gertrude a préparé la liste des affaires à prendre pour l'excursion. juliette a modifié cette liste en utilisant le mode suivi des modifications proposé par le traitement de texte. - Guide
- Creation compte gmail - Guide
- Liste déroulante en cascade - Guide
- Création compte google - Guide
7 réponses
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
3 févr. 2017 à 12:06
3 févr. 2017 à 12:06
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.
Pourquoi pas, tout simplement, un Filtre Automatique sur la colonne C des classes ?... Ça se trouve dans le ruban Données / Filtrer.
clavervba
Messages postés
47
Date d'inscription
vendredi 3 février 2017
Statut
Membre
Dernière intervention
7 mars 2017
3 févr. 2017 à 15:28
3 févr. 2017 à 15:28
voici le fichier
https://www.cjoint.com/c/GBdozUXk1TN
https://www.cjoint.com/c/GBdozUXk1TN
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
Modifié par michel_m le 4/02/2017 à 11:55
Modifié par michel_m le 4/02/2017 à 11:55
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
Michel
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
Michel
Frenchie83
Messages postés
2240
Date d'inscription
lundi 6 mai 2013
Statut
Membre
Dernière intervention
11 août 2023
338
4 févr. 2017 à 13:35
4 févr. 2017 à 13:35
Bonjour à tous
Allez, une de plus, comme ça clavervba aura le choix
https://mon-partage.fr/f/BoflAnPO/
Cdlt
Allez, une de plus, comme ça clavervba aura le choix
https://mon-partage.fr/f/BoflAnPO/
Cdlt
clavervba
Messages postés
47
Date d'inscription
vendredi 3 février 2017
Statut
Membre
Dernière intervention
7 mars 2017
16 févr. 2017 à 10:52
16 févr. 2017 à 10:52
super frenchie83.
Merci
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
patty5046
Messages postés
46
Date d'inscription
lundi 8 février 2016
Statut
Membre
Dernière intervention
15 septembre 2023
5
4 févr. 2017 à 13:52
4 févr. 2017 à 13:52
Bonjour et bravo Frenchie83
C'est professionnel et super
Cdlt
C'est professionnel et super
Cdlt
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
5 févr. 2017 à 08:45
5 févr. 2017 à 08:45
bonjour à tous
Avant de penser VBA , Penser EXCEL
Avant de penser VBA , Penser EXCEL
patty5046
Messages postés
46
Date d'inscription
lundi 8 février 2016
Statut
Membre
Dernière intervention
15 septembre 2023
5
4 févr. 2017 à 12:13
4 févr. 2017 à 12:13
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
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
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
3 févr. 2017 à 16:34
or si je met le filtre, j'aurai pas cela.