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
Jacky
Bonsoir
Affiche les onglets du classeur actif Adapter le nom des feuilles 1 et 2 '------------------ Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To Worksheets.Count If Sheets(i).Name <> "Feuil1" And Sheets(i).Name <> "Feuil2" Then Me.ComboBox1.AddItem Sheets(i).Name End If Next End Sub '-----------------
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
bonsoir
j'aimerai savoir comment récupérer dans une combobox de mon formulaire le nom des onglets de ce meme classeur sauf la feuille 1 et 2
merci de votre aide
Bonsoir
Affiche les onglets du classeur actif
Adapter le nom des feuilles 1 et 2
'------------------
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "Feuil1" And Sheets(i).Name <> "Feuil2" Then
Me.ComboBox1.AddItem Sheets(i).Name
End If
Next
End Sub
'-----------------
--
Salutations
JJ
"magic-dd" <ciolandre@gmail.com> a écrit dans le message de news:
6fb46328-e2e6-46c7-b42a-ec09ef7cda3c@b25g2000prb.googlegroups.com...
bonsoir
j'aimerai savoir comment récupérer dans une combobox de mon formulaire
le nom des onglets de ce meme classeur sauf la feuille 1 et 2
Affiche les onglets du classeur actif Adapter le nom des feuilles 1 et 2 '------------------ Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To Worksheets.Count If Sheets(i).Name <> "Feuil1" And Sheets(i).Name <> "Feuil2" Then Me.ComboBox1.AddItem Sheets(i).Name End If Next End Sub '-----------------
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
bonsoir
j'aimerai savoir comment récupérer dans une combobox de mon formulaire le nom des onglets de ce meme classeur sauf la feuille 1 et 2
merci de votre aide
magic-dd
On 27 oct, 21:14, "Jacky" wrote:
Bonsoir
Affiche les onglets du classeur actif Adapter le nom des feuilles 1 et 2 '------------------ Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To Worksheets.Count If Sheets(i).Name <> "Feuil1" And Sheets(i).Name <> "Feuil2" Then Me.ComboBox1.AddItem Sheets(i).Name End If Next End Sub '-----------------
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
bonsoir
j'aimerai savoir comment récupérer dans une combobox de mon formulair e le nom des onglets de ce meme classeur sauf la feuille 1 et 2
merci de votre aide
merci jacky une nouvelle fois tu me viens en aide efficacement
@u plaisir
On 27 oct, 21:14, "Jacky" <Dup...@marcel.fr> wrote:
Bonsoir
Affiche les onglets du classeur actif
Adapter le nom des feuilles 1 et 2
'------------------
Private Sub UserForm_Initialize()
Dim i As Integer
For i = 1 To Worksheets.Count
If Sheets(i).Name <> "Feuil1" And Sheets(i).Name <> "Feuil2" Then
Me.ComboBox1.AddItem Sheets(i).Name
End If
Next
End Sub
'-----------------
--
Salutations
JJ
"magic-dd" <ciolan...@gmail.com> a écrit dans le message de news:
6fb46328-e2e6-46c7-b42a-ec09ef7cd...@b25g2000prb.googlegroups.com...
bonsoir
j'aimerai savoir comment récupérer dans une combobox de mon formulair e
le nom des onglets de ce meme classeur sauf la feuille 1 et 2
merci de votre aide
merci jacky
une nouvelle fois tu me viens en aide efficacement
Affiche les onglets du classeur actif Adapter le nom des feuilles 1 et 2 '------------------ Private Sub UserForm_Initialize() Dim i As Integer For i = 1 To Worksheets.Count If Sheets(i).Name <> "Feuil1" And Sheets(i).Name <> "Feuil2" Then Me.ComboBox1.AddItem Sheets(i).Name End If Next End Sub '-----------------
-- Salutations JJ
"magic-dd" a écrit dans le message de news:
bonsoir
j'aimerai savoir comment récupérer dans une combobox de mon formulair e le nom des onglets de ce meme classeur sauf la feuille 1 et 2
merci de votre aide
merci jacky une nouvelle fois tu me viens en aide efficacement