generer feuilles - macro plante a 45 feuilles - pb string!

[happymarmotte]

bonsoir

j`ai un pb que j`ai deja eu mais je ne retrouve pas la solution.
la macro ci-jointe cree les feuilles mais elle plante a 45 feuilles.
ca vient du string je crois.
je dois mettre quoi pour creer 200 feuilles? 😛

merci

happymarmotte

 

[tirex28]

Re : generer feuilles - macro plante a 45 feuilles - pb string!

Bonsoir,

Chez moi ca a plante apres 57 feuilles, rien de tres logique dans tout ca..

Pour contourner le probleme tu peux d'abord creer la feuille et ensuite copier les cellules:

    If Not SheetExists(ThisWorkbook.Name, nmB) Then
        'Sheets("Format").Copy after:=Sheets("Format")'---
        Sheets.Add after:=Sheets("Format")  '+++
        Sheets("Format").Cells.Copy         '+++
        Cells.PasteSpecial xlPasteAll       '+++
        ActiveSheet.Name = nmB
    End If
    Application.CutCopyMode = False     '+++

+++ => les lignes à ajouter
--- => ligne à enlever

C'est moche mais ca fonctionne.

Cordialement,

Tirex28/

 

[happymarmotte]

Re : generer feuilles - macro plante a 45 feuilles - pb string!

salut tirex 28,

ben je veux bien (et ta modif marche 😉 ) mais je peux pas passer par la. J`ai des amcros sur la feuille a copier et la ca me fait sauter les macros j`ai l`impression

je vais te faire un fichier mais j`ai teste plusieurs fois et ca me tue les macros
l`autre solution marche (macro sautent pas) mais elle va pas jusqu`au bout 😡

t`as une autre solution?

merci
happymarmotte

 

[tirex28]

Re : generer feuilles - macro plante a 45 feuilles - pb string!

Bonjour,

t`as une autre solution?

Déplacer les procédures évènementielles dans un module de classe nommé SheetsEvents:

Public WithEvents Feuille As Worksheet

Private Sub Feuille_Activate()
        Debug.Print Feuille.Name
End Sub

Private Sub Feuille_SelectionChange(ByVal Target As Range)
        Debug.Print Feuille.Name
End Sub

Dans ton module standard:

Dim MesFeuilles As Collection '+++
Dim UneFeuille As SheetEvents '+++

Dans ta macro AddEmployee:

   If Not SheetExists(ThisWorkbook.Name, nmB) Then
        'Sheets("Format").Copy after:=Sheets("Format")
        Sheets.Add after:=Sheets("Format")  '+++
        Sheets("Format").Cells.Copy         '+++
        Cells.PasteSpecial xlPasteAll       '+++
        Set UneFeuille = New SheetEvents        '+++
        Set UneFeuille.Feuille = ActiveSheet    '+++
        MesFeuilles.Add UneFeuille              '+++
        ActiveSheet.Name = nmB
    End If
    Application.CutCopyMode = False     '+++

Ca t'oblige à gérer une collection, d'un autre coté si tu as besoin de modifier les procédures évènementielles tu ne le fais que dans le module de classe et pas sur chaque feuille.

Cordialement,

Tirex28/

 

[happymarmotte]

Re : generer feuilles - macro plante a 45 feuilles - pb string!

bonsoir Tyrex28, le forum,


je vais essayer ce que tu me proposes des demain.
peut etre que ca va solutionner mon pb
En tout cas merci pour ton aide.
je te colle le file si ca marche tjs pas.

a demain

happymarmotte

 

[happymarmotte]

Re : generer feuilles - macro plante a 45 feuilles - pb string!

re bonsoir

j`ai fait un file.

j`ai une macro que j`avais qui permet d`activer par clcik droit des reponses au choix (file excel) ==> file que j`utilise svt

la ce que je veux faire (zip file), c`est avec ma liste d`employes, clicker sur la creation des N feuilles et creer 150 feuillles avec les questions ou je puisse faire un click droit comme je le fais ds mon file excel actionsurrightclick ti (TI etant l`auteur de cette macro click droit, bonjour et merci a lui! 😉)

bref sur chaque feuille je veux pouvoir faire mon click droit
est ce que tu vois mieux le probleme?

est ce que ta technique resout le pb car j`avoue je vois pas la!
j`ai colle tes solutions, mais rien.

desole et merci pour ton aide.


a+ ds ma quete pour la verite! Ca me bloque ce probleme 😡
argghhh!

happymarmotte

 

[tirex28]

Re : generer feuilles - macro plante a 45 feuilles - pb string!

Bonsoir,

Ci-joint ton fichier corrigé, j'ai essaye de modifier ton code au minimum.

Cordialement,

Tirex28/

 

[happymarmotte]

Re : generer feuilles - macro plante a 45 feuilles - pb string!

bonsoir Tyrex 28

super! ca marche.
je vais regarder ce WE ce que tu as change pour comprendre

merci bcp pou le tempsmn que tu as passe

bon WE !
happymarmotte