G gothc Guest 30 Août 2005 #1 Private Sub UserForm_Initialize() 'à l'initialisation de l'userform Dim x As Byte 'déclare la variable x 'boucle sur tous les onglets du classeur For x = 1 To Sheets.Count 'condition : si l'onglet ne se nomme pas 'tab' If Sheets(x).Name <> 'tab' Then 'remplit la ComboBox1 par le nom de l'onglet ComboBox1.AddItem Sheets(x).Name End If 'fin de la condition Next x 'prochain onglet du classeur bonjour comment p ton rajoute un onglets dans la condition merci pour votre aide
Private Sub UserForm_Initialize() 'à l'initialisation de l'userform Dim x As Byte 'déclare la variable x 'boucle sur tous les onglets du classeur For x = 1 To Sheets.Count 'condition : si l'onglet ne se nomme pas 'tab' If Sheets(x).Name <> 'tab' Then 'remplit la ComboBox1 par le nom de l'onglet ComboBox1.AddItem Sheets(x).Name End If 'fin de la condition Next x 'prochain onglet du classeur bonjour comment p ton rajoute un onglets dans la condition merci pour votre aide
Hervé XLDnaute Barbatruc 30 Août 2005 #2 Bonsoir gothc Je pense que tu veux exclure une autre feuille pour le remplissage de la combobox, mais c'est pas très clair. Essaye comme ceci : If Sheets(x).Name <> 'tab' and sheets(x) <> 'nomdelafeuille' Then salut Vote positif 0 Vote négatif
Bonsoir gothc Je pense que tu veux exclure une autre feuille pour le remplissage de la combobox, mais c'est pas très clair. Essaye comme ceci : If Sheets(x).Name <> 'tab' and sheets(x) <> 'nomdelafeuille' Then salut
G gothc Guest 30 Août 2005 #3 bonsoir hervé apres modif il v plus ouvrir userform2 erreur UserForm2.Show End Sub je fait un copier coller If Sheets(x).Name <> 'SFM' And Sheets(x) <> 'Feuil2' Then avant If Sheets(x).Name <> 'SFM' Then Vote positif 0 Vote négatif
bonsoir hervé apres modif il v plus ouvrir userform2 erreur UserForm2.Show End Sub je fait un copier coller If Sheets(x).Name <> 'SFM' And Sheets(x) <> 'Feuil2' Then avant If Sheets(x).Name <> 'SFM' Then
Hervé XLDnaute Barbatruc 30 Août 2005 #4 Bonjour gothc, le forum Oups une petite erreur de synthaxe, pense à changer feuil2 par le vrai nom de la feuille : If Sheets(x).Name <> 'SFM' And Sheets(x).name <> 'Feuil2' Then Désolé salut Vote positif 0 Vote négatif
Bonjour gothc, le forum Oups une petite erreur de synthaxe, pense à changer feuil2 par le vrai nom de la feuille : If Sheets(x).Name <> 'SFM' And Sheets(x).name <> 'Feuil2' Then Désolé salut