Salut à tous...
Et merci bien de tous vos petits conseils...;)
Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir créer un
userform dans lequel quelqu´un introduit le nom de la feuille qu´il veut
voire et ça saute direct vers A1 de la feuille choisie...
Merci une fois de plus...
Et à plus...;)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
Bonjour Exemple ici : http://cjoint.com/data/jpnaIKHUKv.htm
Cordialement Pascal
"José Carapito" a écrit dans le message de news:
Salut à tous... Et merci bien de tous vos petits conseils...;) Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir créer un userform dans lequel quelqu´un introduit le nom de la feuille qu´il veut voire et ça saute direct vers A1 de la feuille choisie... Merci une fois de plus... Et à plus...;)
Bonjour
Exemple ici :
http://cjoint.com/data/jpnaIKHUKv.htm
Cordialement
Pascal
"José Carapito" <JosCarapito@discussions.microsoft.com> a écrit dans le
message de news: BF1B9CE7-83D5-4D84-B76F-8F906CA956B8@microsoft.com...
Salut à tous...
Et merci bien de tous vos petits conseils...;)
Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir créer
un
userform dans lequel quelqu´un introduit le nom de la feuille qu´il veut
voire et ça saute direct vers A1 de la feuille choisie...
Merci une fois de plus...
Et à plus...;)
Bonjour Exemple ici : http://cjoint.com/data/jpnaIKHUKv.htm
Cordialement Pascal
"José Carapito" a écrit dans le message de news:
Salut à tous... Et merci bien de tous vos petits conseils...;) Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir créer un userform dans lequel quelqu´un introduit le nom de la feuille qu´il veut voire et ça saute direct vers A1 de la feuille choisie... Merci une fois de plus... Et à plus...;)
JB
Bonjour,
http://cjoint.com/?jpnwckxoJC
Liste triée des onglets du classeur
Private Sub UserForm_Initialize() For i = 1 To Sheets.Count Me.ComboBox1.AddItem Sheets(i).Name Next i End Sub
Version avec tri:
Private Sub UserForm_Initialize() Dim temp() For i = 1 To Sheets.Count ReDim Preserve temp(1 To i) temp(i) = Sheets(i).Name Next i n = UBound(temp) Call Tri(temp, 1, n) Me.ComboBox1.List = temp End Sub
On peut également créer un combo directement dans une feuille sans formulaire:
Private Sub Workbook_Open() Dim temp() For i = 1 To Sheets.Count ReDim Preserve temp(1 To i) temp(i) = Sheets(i).Name Next i n = UBound(temp) Call Tri(temp, 1, n) Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp End Sub
Private Sub ChoixOnglet_Change() m = ChoixOnglet Sheets(m).Select End Sub
Cordialement JB
Salut à tous... Et merci bien de tous vos petits conseils...;) Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir c réer un userform dans lequel quelqu´un introduit le nom de la feuille qu´il v eut voire et ça saute direct vers A1 de la feuille choisie... Merci une fois de plus... Et à plus...;)
Bonjour,
http://cjoint.com/?jpnwckxoJC
Liste triée des onglets du classeur
Private Sub UserForm_Initialize()
For i = 1 To Sheets.Count
Me.ComboBox1.AddItem Sheets(i).Name
Next i
End Sub
Version avec tri:
Private Sub UserForm_Initialize()
Dim temp()
For i = 1 To Sheets.Count
ReDim Preserve temp(1 To i)
temp(i) = Sheets(i).Name
Next i
n = UBound(temp)
Call Tri(temp, 1, n)
Me.ComboBox1.List = temp
End Sub
On peut également créer un combo directement dans une feuille sans
formulaire:
Private Sub Workbook_Open()
Dim temp()
For i = 1 To Sheets.Count
ReDim Preserve temp(1 To i)
temp(i) = Sheets(i).Name
Next i
n = UBound(temp)
Call Tri(temp, 1, n)
Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp
End Sub
Private Sub ChoixOnglet_Change()
m = ChoixOnglet
Sheets(m).Select
End Sub
Cordialement JB
Salut à tous...
Et merci bien de tous vos petits conseils...;)
Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir c réer un
userform dans lequel quelqu´un introduit le nom de la feuille qu´il v eut
voire et ça saute direct vers A1 de la feuille choisie...
Merci une fois de plus...
Et à plus...;)
Private Sub UserForm_Initialize() For i = 1 To Sheets.Count Me.ComboBox1.AddItem Sheets(i).Name Next i End Sub
Version avec tri:
Private Sub UserForm_Initialize() Dim temp() For i = 1 To Sheets.Count ReDim Preserve temp(1 To i) temp(i) = Sheets(i).Name Next i n = UBound(temp) Call Tri(temp, 1, n) Me.ComboBox1.List = temp End Sub
On peut également créer un combo directement dans une feuille sans formulaire:
Private Sub Workbook_Open() Dim temp() For i = 1 To Sheets.Count ReDim Preserve temp(1 To i) temp(i) = Sheets(i).Name Next i n = UBound(temp) Call Tri(temp, 1, n) Sheets("ListeOngletsFeuille").ChoixOnglet.List = temp End Sub
Private Sub ChoixOnglet_Change() m = ChoixOnglet Sheets(m).Select End Sub
Cordialement JB
Salut à tous... Et merci bien de tous vos petits conseils...;) Á ce moment lá, je me demande comment pourrai-je faire pour pouvoir c réer un userform dans lequel quelqu´un introduit le nom de la feuille qu´il v eut voire et ça saute direct vers A1 de la feuille choisie... Merci une fois de plus... Et à plus...;)