condition

[gothc]

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é]

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

 

[gothc]

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é]

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

 

[gothc]

Merci Hervé

ça marche bonne journée