Besoin d'aide sur vba
Résolu
japlo
Messages postés
44
Statut
Membre
-
japlo Messages postés 44 Statut Membre -
japlo Messages postés 44 Statut Membre -
Bonjour,
Dans un tableau excel ayant plusieurs onglets,j'ai créé un bouton dans l'onglet 1 je lui ai ensuite associé un programme qui ouvre une boite de dialogue pour demander le noms d'une personne mon but est que ce nom vienne s'inscrire dans une liste qui se trouve sur un autre onglet.
J'espere avoir été assé clair et que quelq'un me vienne en aide.
Sub JYL()
rep = InputBox("NOM")
Workbooks("FDG 2008.xls").Worksheets("Bilans individuels").Range("b47").EntireRow.Insert
Workbooks("FDG 2008.xls").Worksheets("Bilans individuels").Range("b47").Value = rep
Rows("23:235").Select
Selection.EntireRow.Hidden = False
ActiveWindow.SmallScroll Down:=6
Range("B24:B100").Select
Selection.Sort Key1:=Range("B24"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=-3
Rows("24:100").Select
Selection.EntireRow.Hidden = True
Range("I103").Select
Sheets("Sommaire").Select
If rep = "" Then Exit Sub
End Sub
Dans un tableau excel ayant plusieurs onglets,j'ai créé un bouton dans l'onglet 1 je lui ai ensuite associé un programme qui ouvre une boite de dialogue pour demander le noms d'une personne mon but est que ce nom vienne s'inscrire dans une liste qui se trouve sur un autre onglet.
J'espere avoir été assé clair et que quelq'un me vienne en aide.
Sub JYL()
rep = InputBox("NOM")
Workbooks("FDG 2008.xls").Worksheets("Bilans individuels").Range("b47").EntireRow.Insert
Workbooks("FDG 2008.xls").Worksheets("Bilans individuels").Range("b47").Value = rep
Rows("23:235").Select
Selection.EntireRow.Hidden = False
ActiveWindow.SmallScroll Down:=6
Range("B24:B100").Select
Selection.Sort Key1:=Range("B24"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
ActiveWindow.SmallScroll Down:=-3
Rows("24:100").Select
Selection.EntireRow.Hidden = True
Range("I103").Select
Sheets("Sommaire").Select
If rep = "" Then Exit Sub
End Sub
A voir également:
- Besoin d'aide sur vba
- Excel compter cellule couleur sans vba - Guide
- Dépassement de capacité vba ✓ - Forum Excel
- Incompatibilité de type vba ✓ - Forum VB / VBA
- Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
- Vba range avec variable ✓ - Forum VB / VBA
4 réponses
Désolé j'oubliais un détail qui a surement sont importance une fois le noms arrivée dans la liste je lui demande de la trier automatiquement.
Pour répondre à ta question la boite de dialogue s'ouvre je rentre le nom ensuite le noms s'inscrit dans la liste mais au moment de trier le noms reste en haut avec une erreur de debogage.
Cette partie surligné jaune : Workbooks("FDG 2008.xls").Worksheets("Bilans individuels").Range("b47").EntireRow.Insert
Donc pour etre plus clair je détail
1 ouveture de la boite de dialogue
2 inscription du nom dans la liste
3 afficher la liste
4 trier la liste
5 masquer la liste
Pour répondre à ta question la boite de dialogue s'ouvre je rentre le nom ensuite le noms s'inscrit dans la liste mais au moment de trier le noms reste en haut avec une erreur de debogage.
Cette partie surligné jaune : Workbooks("FDG 2008.xls").Worksheets("Bilans individuels").Range("b47").EntireRow.Insert
Donc pour etre plus clair je détail
1 ouveture de la boite de dialogue
2 inscription du nom dans la liste
3 afficher la liste
4 trier la liste
5 masquer la liste