Discussion :

[Ramoneur]

Bonjour à tous. Mon problème est résumé dans le titre. Je suis en train de créer un document excel avec quelques macros pour mon boulot.
Pour l'instant j'en suis au stade de base.

Mon document comprend 8 feuilles, dont 6 contiennent des listes.
Le but du jeu pour le moment, est de construire une nouvelle liste en ajoutant certaines des listes comprises dans les 6 feuilles.
Pour ce faire, j'ai créé différentes macros (une pour chaque liste), dont voici un exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub Selection_4eme()
'Permet de sélectionner les 4èmes et de les coller dans la feuille d'Effectif session
    Worksheets("4ème").Activate
    ActiveSheet.UsedRange.Rows("2:" & ActiveSheet.UsedRange.Rows.Count).Select
    Selection.Copy
    Worksheets("Effectif session").Activate
    Range("a1").Select
    Selection.CurrentRegion.Select
    Cells(Selection.Row + Selection.Rows.Count, Selection.Column).Select
    ActiveSheet.Paste
End Sub

Tout marche nickel en faisant outils, macros, puis en la sélectionnant.

Seulement voilà, pour interagir avec l'utilisateur, j'ai créé un userform comprenant des checkbox. Si la checkbox "4èmes" est sélectionnée, le bouton valider doit appeler la macro "Selection_4eme".

Quand je fais F5 pour tester, je reçois un message d'erreur 1004 "La méthode Copy de la classe Range a échoué".

Voici le code du bouton Valider de mon userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Private Sub Command_Valider_Click()
    If Check_4eme.Value = True Then
    Call Module1.Selection_4eme
    End If
    Unload UserForm1
End Sub

Sauriez-vous d'où vient le problème et comment le résoudre?

Merci d'avance

[Jean-Pierre49]

Bonjour

comme du veux activer des feuilles
Ouvre ton Usf en Modal = 0

Ou modifie ta procedure Selection_4eme pour le pas avoir de changement de feuille avec activate

[ouskel'n'or]

Tu n'as pas à indiquer le module. Ton userform saura le trouver tout seul comme un grand
Si tu n'as rien à faire manuellement, ne modifie pas le mode modal.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Command_Valider_Click()
    If Check_4eme.Value Then Selection_4eme
    Unload UserForm1
End Sub

le "= true est inutile" avec un contrôle qui renvoie un boolean (vrai ou faux - True ou False)

Edit
Pendant que je suis là, il est toujours déconseillé d'utiliser la sélection. Tu peux simplifier ta première procédure.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Selection_4eme()
'Permet de sélectionner les 4èmes et de les coller dans la feuille d'Effectif session
Worksheets("4ème").UsedRange.Rows("2:" & _
ActiveSheet.UsedRange.Rows.Count).Copy _
Worksheets("Effectif session").Range("a1")
End Sub

Ça fait la même chose mais bien sûr, c'est plus court

[Ramoneur]

Merci à tous les deux pour votre réponse rapide, mais ça ne marche toujours pas, j'ai toujours le même code d'erreur.
Par contre je n'ai pas bien compris cette histoire de true inutile : si la case n'est pas sélectionnée, alors l'action ne se déroule pas, en revanche si elle l'est la fonction est appelée (le code transmis est une ébauche, il y a six autres classes présentes, et l'utilisateur doit avoir un choix).
J'ai essayé sans =True, et le userform ne se lance même pas.

Bref rien n'a avancé. J'ai toujours besoin de vous ...

[Ramoneur]

Ca y est j'ai compris.
En fait, je dois Unloader mon Userform AVANT d'appeler la macro et c'est tout bon. Me reste plus qu'à gérer le choix multiple mais en réfléchissant ça devrait aller ...

[Ramoneur]

Bah en fait non, je m'étais un peu emballé sur ce coup-là. Ca ne marhe toujours pas. Quelqu'un a une idée?

[zazaraignée]

À tout hasard...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command_Valider_Click()
    If Check_4eme.Value = True Then
        Me.Visible = False    ' où Me est un mot réservé pour le Form actif
        Call Module1.Selection_4eme
    End If
End Sub

[Ramoneur]

Merci à tous et désolé pour le silence, mais travail travail...
Pour répondre à Mayekeul, le msgbox s'ouvre bien avec écrit nom dedans.

[mayekeul]

as-tu essayé le fichier envoyé?