Création des bouton sur vba pour établir la liste des classes
Résolu
clavervba
Messages postés
47
Date d'inscription
Statut
Membre
Dernière intervention
-
clavervba Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
clavervba Messages postés 47 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Création des bouton sur vba pour établir la liste des classes
- Liste déroulante excel - Guide
- Creation compte gmail - Guide
- Création site web - Guide
- Media creation tool - Télécharger - Systèmes d'exploitation
- Création compte google - Guide
7 réponses
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.
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
or si je met le filtre, j'aurai pas cela.