ré-initialisation combobox

[Geraldine]

bonsoir,

j'ai un petit problème sur la réinitialisation d'une combobox.
J'ai une Combobox (lister les feuilles du classeur) et un bouton nouveau (copier la feuille "modele") dans une userform affichée en permanence (showmodal = false)
L'initialisation de la combobox est dans userform_initialize :

Private Sub userform_initialize()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Visible = xlSheetVisible Then
Me.ComboBox1.AddItem WS.Name
End If
Next WS
With Me
.startUpPosition = 0
.Top = 80
.Left = Application.Width - Me.Width
End With
End Sub

Bouton "nouveau":
Private Sub Nouveau_Click()
If ActiveWorkbook.Name = ("Dossier1.xls") Then
MsgBox "Veuillez retourner dans le dossier02"
Exit Sub
End If
Dim Temp As String
Dim NumFeuille As Integer
Dim Sh As Worksheet
For Each Sh In Worksheets
If Left(Sh.Name, 5) = "Article" Then
If Val(Right(Sh.Name, 2)) > NumFeuille Then
NumFeuille = Val(Right(Sh.Name, 2))
End If
End If
Next
NumFeuille = NumFeuille + 1
Temp = ActiveSheet.Name
Worksheets("Article 0").Copy before:=Sheets("-DEVIS-")
ActiveSheet.Name = "Article" & Format(NumFeuille, " 0")
ActiveSheet.Visible = True
End Sub


Quand je click sur bouton"nouveau" il crée une nouvelle feuille et je cherche tout simplement qu'une réinitialisation de la combobox pour que toutes les feuilles crées soit lister.

merci Géraldine

 

[Geraldine]

Re : ré-initialisation combobox

et en plus le code du bouton nouveau (copie d'une feuille modele) ne marche pas sous excel 2007, il ne veut pas copier la feuille modele qui est masquée, si je l'affiche , la copie marche

 

[Geraldine]

Re : ré-initialisation combobox

bonjour au forum,

Est ce que quelqu'un vas pouvoir me sauver ce matin, je sais que c'est tout bête mais je ne comprend pas les codes alors ...

Merci, Géraldine

 

[Chloulou]

Re : ré-initialisation combobox

Pour que ta combobox soit actualisé, il faudrait relaner la macro de ton formulaire, car une fois initialisé, il ne le fera de nouveau qu'a sa réouverture

 

[Geraldine]

Re : ré-initialisation combobox

re
j'ai compris mon erreur, je n'arrivais pas a relancer ma macro, c'est ok, il me reste plus que vider la selection de la combobox avant la reintialise, parce que pour l'instant les données s'accumule type feuil1, feuil2 a la création de la feuil3 j'ai : feuil1, feuil2, feuil1, feuil2, feuil3

Sub ActiveCombobox()
Dim WS As Worksheet
For Each WS In Worksheets
If WS.Visible = xlSheetVisible Then
UserForm1.ComboBox1.AddItem WS.Name
End If
Next WS
With UserForm1
.startUpPosition = 0
.Top = 80
.Left = Application.Width - UserForm1.Width
End With
End Sub


merci à vous, géraldine

 

[Hervé]

Re : ré-initialisation combobox

bonjour

pour vider ta combobobox :

Sub ActiveCombobox()
Dim WS As Worksheet
UserForm1.ComboBox1.clear
For Each WS In Worksheets
If WS.Visible = xlSheetVisible Then
UserForm1.ComboBox1.AddItem WS.Name
End If
Next WS
With UserForm1
.startUpPosition = 0
.Top = 80
.Left = Application.Width - UserForm1.Width
End With
End Sub

salut

 

[Geraldine]

Re : ré-initialisation combobox

super et merci
géraldine