listbox

[petchy]

Bonsoir le Forum,

dans un USF j'ai une listbox,comment associé le nom d'un onglet dans ma listbox.
je vais abusé de votre gentillesse:
une fois que j'aurais associé le nom de l'onglet dans la listbox,comment ajouté un produit dans cette feuille.
j'espère avoir était assez clair
merci

 

[Ludwig]

Bonjour Petchy,

Voici un code qui te permettra de compter les feuilles de ton classeur et d'inscrire leur nom dans la feuil1 en A1


For i = 1 To Sheets.Count
With Sheets("Feuil1")
.Cells(i, 1).Value = Sheets(i).Name
End With
Next i

Ce code te parmettra ensuite d'initialiser ton combobox

Private Sub Ini()
Dim Ligne As Integer
Dim Plage As String

Ligne= Sheets("Feuil1").Range("A65536").End(xlUp).Row
Plage = Sheets("Feuil1").Range("A1:A" & Ligne).Address
ComboBox1.RowSource = "Feuil1!" & Plage

End Sub

Pour un début... en attendant que les pros de se Forum trouvent une solution plus adéquate

A bientôt


Ludwig

 

[petchy]

bonjour le forum

merci Ludwig,mais ça ne fonctionne pas
par contre j'ai trouvé ça:
Private Sub CommandButton2_Click()
Dim Message, Texte, Value
'Dim Cheked As Boolean
Dim X As Variant
Dim I As Variant
Dim NewSheet As Object
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
Message = "Introduisez le nom de votre nouvelle feuille."
Texte = "Création d'une nouvelle feuille"
creation:
Value = InputBox(Message, Texte)
Application.ActiveSheet.Name = Value

End Sub
il me reste à trouvé,comment récupéré le nom de mes feuilles que je créer dans une listbox qui se trouve dans un USF
merci
@ plus
petchy

 

[Ludwig]

Bonjour Petchy,

Tu trouveras un exemple dans le fichier joint. J'espère avoir bien compris !!!

Il te reste à l'adapter.

Ludwig