FEUILLE qui marche plus une fois copiée

Bonsoir à vous ,

quelqu un pourrais me dire pourquoi je n arrive pas a copier la feuille1 de ce classeur .

12copy-of-essaie-3.xlsm (147.79 Ko)

Bonsoir,

Rien ne t'en empêche, tu l'as d'ailleurs fait une fois !

Bonsoir,

le soucis vient du nom du tableau qui n'est pas tableau2 mais tableau 14

Du coup modification du code pour "aller chercher" le "vrai" nom du tableau et hop ! Ca marche !

Ensuite nul besoin de renommer les bouton en 2 3 etc.... Car les boutons même s'ils ont le même nom ils ne sont pas sur la même feuille et leur code est en "Private" donc le bouton1 de la feuille1 ne marche qu'avec la feuille 1 comme le bouton1 de la feuille 2 ne marchera qu'avec la feuille 2.

Il n'y a vraiment que le problème du nom du tableau....

Voir le fichier :

@ bientôt

LouReeD

Maréchal, bonsoir,

en fait le reste de la question est dans le titre du fil :

quelqu'un pourrais me dire pourquoi je n arrive pas a copier la feuille1 de ce classeur

car après la copie elle ne marche plus...

En fait le bouton ne provoque pas le fonctionnement du code "attaché" à la feuille, reste à voir si ma réponse corrige ce problème

@ bientôt

LouReeD

Ah ! Salut LouReed ! C'était donc ça ! Pas un problème de copie alors !

Ben il suffit de qualifier correctement ses expressions (je n'arrête pas de le dire ! )

Avec ActiveSheet.ListObjects(1), pas de problème !

Cordialement.

Forcément.... avec ma recherche de nom, je me complique tout !!!

Encore une fois j'ai les boules car en fait avec "mon" code :

ListObjects(ActiveSheet.ListObjects(1).Name)

je me complique la vie car le ActiveSheet.ListObjects(1) je l'avais !

C'est le problème de ne pas se poser...

@ bientôt

LouReeD

Pas grave ! Ce genre de truc arrive à tout le monde... Souvent quand je relis un bout de code écrit la veille, je fais des bonds ! me demandant ce que j'avais bu !

Je crois surtout que je "n'imprime" pas,

ou bien qu'à force de chercher une solution "bille en tête", j'en oublis de poser le problème, de regarder les outils que j'ai et de faire le bon choix !

Il y a un fil où j'ai fais la même "erreur" : =CHOISIR(MOIS($A$1&1);1;2;3;4;5;6;7;8;9;10;11;12)

pour renvoyer le numéro du mois "alphanumérique" qui se trouve en A1 !

C'est exactement le même truc ! Les poupées Russes ! C'est la même chose mais je les emboite, ça fait plus pro peut-être

@ bientôt

LouReeD

Moi qui suis partisan de viser la ligne droite, je dois constater que si l'espace se courbe elle subit quelques torsions !

oui ?

@ bientôt

LouReeD

Bonsoir,

le soucis vient du nom du tableau qui n'est pas tableau2 mais tableau 14

Du coup modification du code pour "aller chercher" le "vrai" nom du tableau et hop ! Ca marche !

Ensuite nul besoin de renommer les bouton en 2 3 etc.... Car les boutons même s'ils ont le même nom ils ne sont pas sur la même feuille et leur code est en "Private" donc le bouton1 de la feuille1 ne marche qu'avec la feuille 1 comme le bouton1 de la feuille 2 ne marchera qu'avec la feuille 2.

Il n'y a vraiment que le problème du nom du tableau....

Voir le fichier : Copie de Copy of essaie 3_loureed.xlsm

@ bientôt

LouReeD

merci cela copie en effet super bien . merci beaucoup maintenant un autre petit soucis , pourquoi cela marche plus quand je protège cette feuille ? Et j ai corriger avec la manière de Maréchal.

Bonjour,

essayez avec un ActiveSheet.Unprotect en début de procédure

et un ActiveSheet.Protect en fin de procédure.

Ici dans les deux cas il n'y a pas de mot de passe...

Ou bien attendez que le Maréchal passe...

@ bientôt

LouReeD

Bonjour,

essayez avec un ActiveSheet.Unprotect en début de procédure

et un ActiveSheet.Protect en fin de procédure.

Ici dans les deux cas il n'y a pas de mot de passe...

Ou bien attendez que le Maréchal passe...

@ bientôt

LouReeD

hahahaha Maréchal lol . hihihi non merci à vous LouReed j essai ça

ActiveSheet.Unprotect
Private Sub boutonafficher_Click()
'déclaration des variables

et a la fin cela donne ça

      End If
        Next x
        .AddItem "Total"
        .List(i, 6) = Range("L4").Text
    End With
End Sub
ActiveSheet.Protect

et cela me ramene a la premiere ligne comme errore compil.

j avais trouver le code suivant mais marche pas ,je suis une bille

Option Explicit
Private Sub Workbook_Open()
Sheets("NomFeuille").Protect "toto", userinterfaceonly:=True
End Sub

Re à tous !

Pas mieux !

Re à tous !

Pas mieux !

haaha slt

ActiveSheet.Unprotect

Quand je fait ceci il me ramène à cette ligne comme error compil.

Merci a vous 2 pour l aide . En tout cas sans protéger cela copie parfaitement

Disons que ActiveSheet.Unprotect est un code VBA qui doit être dans une procédure...

Donc entre Sub xxxx() et End Sub

@ bientôt

LouReeD

Bonsoir Maréchal !

Rechercher des sujets similaires à "feuille qui marche fois copiee"