Y
ya_v_ka
Guest
salut tout le monde...
autre approche pour inserer une feuille:
Private Sub ListBox1_Click()
Dim DerF As Byte
DerF = Sheets.Visible.Count
If ListBox1.Value = "Contrôle de caisse" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Controlle_caisse_.xlt"
If ListBox1.Value = "Compte / Recette" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Compte_Recette.xlt"
If ListBox1.Value = "Subs en pension" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Subs_Pension_+_Boissons.xlt"
If ListBox1.Value = "Téléphone" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Communications_telephoniques.xlt"
If ListBox1.Value = "Jours service isolés" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Annonce_S_isole.xlt"
If ListBox1.Value = "Débit / Crédit" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\Debit_Credit.XLT"
If ListBox1.Value = "Contrôle jours service" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\Jours_S.XLT"
If ListBox1.Value = "Contrôle" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\Controle_militaires.xlt"
If ListBox1.Value = "Rapport d'occupation" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\Rapport_occupation_thoune.xlt"
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "Contrôle de caisse"
.AddItem "Compte / Recette"
.AddItem "Subs en pension"
.AddItem "Téléphone"
.AddItem "Jours service isolés"
.AddItem "Débit / Crédit"
.AddItem "Contrôle jours service"
.AddItem "Contrôle"
.AddItem "Rapport d'occupation"
End With
End Sub
le problème: ma variable DerF est toujours egale à 32 (nombre de feuilles du classeur) et non pas au nombre de feuilles visibles !
Est-il possible de ne renvoyer que le nombre de feuilles visibles ? ou de mettre automatiquement la nouvelle feuille à la fin ?
2e question, comment afficher ma listbox au coin supérieur droite de la feuille au lieu d'au centre (avec les données en pixels cela dépends de la résolution d'écran!) ?
voilà... si quelqu'un peut une fois encore me sortir de ce guèpier que je fourie à nouveau tranquillement ;-)
ya'v
autre approche pour inserer une feuille:
Private Sub ListBox1_Click()
Dim DerF As Byte
DerF = Sheets.Visible.Count
If ListBox1.Value = "Contrôle de caisse" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Controlle_caisse_.xlt"
If ListBox1.Value = "Compte / Recette" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Compte_Recette.xlt"
If ListBox1.Value = "Subs en pension" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Subs_Pension_+_Boissons.xlt"
If ListBox1.Value = "Téléphone" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Communications_telephoniques.xlt"
If ListBox1.Value = "Jours service isolés" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\traité\Annonce_S_isole.xlt"
If ListBox1.Value = "Débit / Crédit" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\Debit_Credit.XLT"
If ListBox1.Value = "Contrôle jours service" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\Jours_S.XLT"
If ListBox1.Value = "Contrôle" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\Controle_militaires.xlt"
If ListBox1.Value = "Rapport d'occupation" Then Sheets.Add After:=Sheets(DerF + 1), Type:="C:\Documents and Settings\Christian Cart\Bureau\Mil News\Rapport_occupation_thoune.xlt"
End Sub
Private Sub UserForm_Initialize()
With ListBox1
.AddItem "Contrôle de caisse"
.AddItem "Compte / Recette"
.AddItem "Subs en pension"
.AddItem "Téléphone"
.AddItem "Jours service isolés"
.AddItem "Débit / Crédit"
.AddItem "Contrôle jours service"
.AddItem "Contrôle"
.AddItem "Rapport d'occupation"
End With
End Sub
le problème: ma variable DerF est toujours egale à 32 (nombre de feuilles du classeur) et non pas au nombre de feuilles visibles !
Est-il possible de ne renvoyer que le nombre de feuilles visibles ? ou de mettre automatiquement la nouvelle feuille à la fin ?
2e question, comment afficher ma listbox au coin supérieur droite de la feuille au lieu d'au centre (avec les données en pixels cela dépends de la résolution d'écran!) ?
voilà... si quelqu'un peut une fois encore me sortir de ce guèpier que je fourie à nouveau tranquillement ;-)
ya'v