Créer autant de checkbox qu'il y a de feuilles

Robert

XLDnaute Barbatruc

Repose en paix

• 16 Août 2012

• #2

Re : Créer autant de checkbox qu'il y a de feuilles

Bonjour Zikmmu et bienvenu, bonjour le forum,

Plutôt que des chekboxes qui impliquent la gestion de la taille de l'UserForm en fonction du nombre d'onglets, pourquoi pas une simple ListBox ?

Un exemple en pièce jointe :

 

Pièces jointes

• Zikkmu_v01.xls

  31 KB · Affichages: 90

Vote positif 0 Vote négatif

Z

zikkmu

XLDnaute Nouveau

• 16 Août 2012

• #3

Re : Créer autant de checkbox qu'il y a de feuilles

Effectivement, c'est exactement ce que je veux faire! Je vais méditer ce code et voir si j'arrive à mes fins.

Merci beaucoup Robert!

 

Vote positif 0 Vote négatif

Z

zikkmu

XLDnaute Nouveau

• 16 Août 2012

• #4

Re : Créer autant de checkbox qu'il y a de feuilles

J'ai modifié ton code pour arriver à mes fins mais ça bloquesur un truc tout simple mais je vois pas quoi, étant tout nouveau du VBA... Voici le code:

Code:

Private Sub CommandButton1_Click() 'bouton "Ok"
Dim i As Byte 'déclare la variable i (Incrément(
Dim msg As String 'déclare la variable msg (MeSsaGe)
Dim sh As Sheets, nsh As Sheets
Dim newbook As Workbook
Set newbook = Workbooks.Add()
msg = "Les Onglets suivants on été sélectionnées :" & Chr(13) 'définit le message msg
For i = 0 To Me.ListBox1.ListCount - 1 'boucle sur tous les éléments de la ListBox1
    'si l'élément est sélectionné, ajoute le nom de l'élément au message
    If Me.ListBox1.Selected(i) = True Then msg = msg & Me.ListBox1.List(i) & Chr(13)
    sh = Sheets(Me.ListBox1.List(i))
    nsh = MEF_INTERNET(Sheets(Me.ListBox1.List(i)))
    Sheets(nsh).Copy After:=Workbooks(newbook).Sheets(1)
Next i 'prochain élément de la boucle
MsgBox msg 'message

newbook.SaveAs Filename:="C:/TDS_INTERNET.xls"
End Sub

Ca bloque à la ligne "sh = Sheets....." et ça me mets "Erreur de compilation utilisation incorrecte de la propriété"


As-tu une idée?

 

Dernière édition: 16 Août 2012

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 17 Août 2012

• #5

Re : Créer autant de checkbox qu'il y a de feuilles

Bonsoir Zikkmu, bonsoir le forum,

sh et nsh sont des variables objet. Il leur faut le Set devant :

Code:

Set sh = Sheets(Me.ListBox1.List(i))
Set nsh = MEF_INTERNET(Sheets(Me.ListBox1.List(i)))

 

Vote positif 0 Vote négatif

Z

zikkmu

XLDnaute Nouveau

• 17 Août 2012

• #6

Re : Créer autant de checkbox qu'il y a de feuilles

J'avais essayé le "Set" mais j'obtiens l'erreur " type incompatible" .

Je pense m'emmeler les pinceaux entre les collections Sheets et WorkSheets...

 

Vote positif 0 Vote négatif

mutzik

XLDnaute Barbatruc

• 17 Août 2012

• #7

Re : Créer autant de checkbox qu'il y a de feuilles

Bonjour zikkmu, Salut Robert

c'est quoi MEF_INTERNET ???
c'est là que cela bloque

 

Vote positif 0 Vote négatif

Z

zikkmu

XLDnaute Nouveau

• 17 Août 2012

• #8

Re : Créer autant de checkbox qu'il y a de feuilles

Ça m'étonne que ce soit MEF_INTERNET car j'ai l'erreur une ligne plus haut, mais sinon c'est un module qui prend une Sheet en argument et qui renvoie une Sheet, je colle le code dès que je peux...

 

Vote positif 0 Vote négatif

Z

zikkmu

XLDnaute Nouveau

• 17 Août 2012

• #9

Re : Créer autant de checkbox qu'il y a de feuilles

Ça m'étonne que ce soit MEF_INTERNET car j'ai l'erreur une ligne plus haut, mais sinon c'est un module qui prend une Sheet en argument et qui renvoie une Sheet, je colle le code dès que je peux...

 

Vote positif 0 Vote négatif

Z

zikkmu

XLDnaute Nouveau

• 17 Août 2012

• #10

Re : Créer autant de checkbox qu'il y a de feuilles

Je confirme que ça ne vient pas de MEF_INTERNET, lorsque je supprime la ligne, l'erreur est toujours là.

J'ai l'impression que sh est Sheets(nom) ne sont pas du même type ce qui provoque l'erreur...

 

Vote positif 0 Vote négatif

Z

zikkmu

XLDnaute Nouveau

• 18 Août 2012

• #11

Re : Créer autant de checkbox qu'il y a de feuilles

Bonjour et bon week end à tous,

J'ai finalement réussi et supprimant ma MEF_INTERNET, probablement mal déclarée, et en insérant le code directement dans l'userform.

Merci à tous

 

Vote positif 0 Vote négatif