[VBA-E] [help]macro pour dupliquer une feuille (en valeur)

Code:

---

1 2 3 4 5 6

Cells.Copy Cells(1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Range("A1").Select

---

c'est ce morceau de code qui supprime les formules ...
il copie toutes les cellules et colle les valeurs de celle-ci au même endroit...

:wink:

Citation:

---

Envoyé par minikisskool

ah si, je l'ai remis dans un module à part et ça a l'air de marcher (sauf que ça bug à cause des cellules fusionnées à partir de la 2e fiche)

---

il faut peu-être rajouter un recalcul du classeur avant l'appel de copyfeuille... afin de mettre toutes tes formules à jour :

Code:

---

1 2 3 4 5 6

... Calculate CopieFeuille Next ...

---

:wink:

Citation:

---

Si tu connais la plage de cellules à copier, c'est facile. Donne-la, on mettra un exemple.

---

merci pour tout, ça marche super bien :D

y'a encore qu'un seul truc à régler, c'est l'histoire de mon image (drapeau) qui est en lien avec une 3e feuille
le pays qui s'affiche dans la fiche renvoie cette info à une feuille qui s'appelle "flags" qui elle-même renvoie l'image du pays correspondant à la feuille fiche

mais lorsqu'il y a plusieurs fiches, c'est le même drapeau qui s'affiche dans toutes

je pense qu'il faudrait également supprimer les liaisons à chaque collage pour éviter que l'image ne se remette à jour...

sinon, pour la plage de cellules, c'est A4:N49 mais comme les lignes et les colonnes ont parfois un format spécial, je ne sais pas si ça le conserve si on ne copie qu'une plage de cellules...

dernier point, que faut-il changer pour que ça copie dans le même classeur plutôt que sur un nouveau?

Citation:

---

Envoyé par minikisskool

merci pour tout, ça marche super bien :D

y'a encore qu'un seul truc à régler, c'est l'histoire de mon image (drapeau) qui est en lien avec une 3e feuille
le pays qui s'affiche dans la fiche renvoie cette info à une feuille qui s'appelle "flags" qui elle-même renvoie l'image du pays correspondant à la feuille fiche

mais lorsqu'il y a plusieurs fiches, c'est le même drapeau qui s'affiche dans toutes

je pense qu'il faudrait également supprimer les liaisons à chaque collage pour éviter que l'image ne se remette à jour...

sinon, pour la plage de cellules, c'est A4:N49 mais comme les lignes et les colonnes ont parfois un format spécial, je ne sais pas si ça le conserve si on ne copie qu'une plage de cellules...

dernier point, que faut-il changer pour que ça copie dans le même classeur plutôt que sur un nouveau?

---

- non pour le drapeau je comprends pas tout ... dis nous en plus sur formule ...?

- pour la plage ... bon pour moi c'est pas trop utiles vu que l'on copie la feuille compléete...

- pour copier dans le même classeur ... ben initialise fd ... avant le premier appel à copie feuille ... (boucle for each...)

Code:

---

1 2	Set Fd = ThisWorkbook for each....

---

:wink:

pour le drapeau, j'ai une feuille "flag" qui contient le nom de tous les pays en colonne B avec le drapeau (image) correspondant en colonne C, j'ai également sur cette feuille une fonction equiv() qui va chercher le pays indiqué sur "fiche" et qui renvoie le n° de ligne correspondant

et sur ma feuille "fiche", j'ai collé une image drapeau quelconque que j'ai associé avec un nom, nom qui fait référence à une fonction décaler() qui prend en compte le résultat de la fonction equiv() pour afficher le drapeau correspondant au pays

mais comme il n'y a qu'une fonction equiv et que l'image garde son nom, donc sa référence, à chaque copie, toutes les fiches se mettent à jour avec le dernier résultat et tout le monde a le même drapeau

il faudrait donc supprimer la liaison à chaque copie ou alors trouver une autre bidouille pour que mon drapeau n'ait plus aucune référence et reste fixe

Citation:

---

Envoyé par minikisskool

pcorrespondant en colonne C, j'ai également sur cette feuille une fonction equiv() qui va chercher le pays indiqué sur "fiche" et qui renvoie le n° de ligne correspondant

---

ma prmiére idée est : déplace cette fonction équiv dans ta fiche ...(quitte à la masquer à l'affichage en changeant sa couleur par exemple.. ... :wink:


puis en relisant ton post j'ai toujours un probléme ... je sais pas faire ce que tu décris ? ' coller une image drapeau à laquelle j'associe un nom qui fait référence à la fonction décaler' ... pourrai tu SVP essayer d'être un peu plus précis ... sur la maniére dont tu crée ce lien.. :?:

c'est un truc que j'avais trouvé jenesaisplusou

excel n'est pas censé renvoyer d'image avec une formule mais il se trouve qu'avec cette bidouille, ça marche

1- on colle dans une feuille une série d'images avec la taille exacte de la cellule qui la contient (en se servant de la touche Alt je crois lorsqu'on redimensionne l'image); dans mon cas, c'est une série de drapeaux

2- on colle une image dans la feuille destination, image que l'on associe tout bêtement à un nom

3- sur la référence du nom, on met une fonction décaler() et le tour est joué, l'image se met à jour automatiquement

je crois que je vais essayer de mettre la fonction EQUIV() dans ma feuille "Fiche" mais vu que je n'ai qu'un seul nom de toute façon, je ne sais pas si ça va le faire...

Citation:

---

Envoyé par minikisskool

2- on colle une image dans la feuille destination, image que l'on associe tout bêtement à un nom

3- sur la référence du nom, on met une fonction décaler() et le tour est joué, l'image se met à jour automatiquement

---

je doit être un peu "bouché" ce matin ...

2 - C'est quoi associer une image à un nom ?

3 - C'est quoi que tu appelle référence du nom ? :oops:

lol :lol:

2- bin c'est juste utiliser la commande insertion/nom/définir après avoir sélectionné l'image

3- et c'est la référence de ce nom

bon il te faut rajouter le code suivant aprés la copie de la feuille fiche :

Code:

---

1 2 3

ActiveSheet.Shapes("MonDrapeau").Cut ActiveSheet.Range("B11").Select ActiveSheet.PasteSpecial Link:=False

---

la feuille active doit être la nouvelle fiche ,
MonDrapeau est le nom donné à l'image..

"B11" et la cellule dans laquelle l'image est placé ..

le code copie l'image ( Couper ...) et la colle en B11 ce qui permet de perdre la référence à la formule initale ..

Pour ce qui est de l'utilisation de la fonction DeCALER , j'ai trouvé ça :
http://www.polykromy.com/html/poly_m...s_decaler.html :wink:

ui, pour DECALER c'est exactement le site que j'avais trouvé à l'époque

sinon, pour la macro, ça ne marche pas, mon image est flottante dans la feuille "fiche"... :?