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

hello

j'ai un fichier excel composé de 2 feuilles : "base" et "fiche"
"base" contient une liste d'infos sur plusieurs individus et "fiche" permet d'afficher la fiche d'un gars avec toute une série de recherchev et autres fonctions amusantes

ce que j'aimerais? avoir une pitite macro vba qui me permette d'enregistrer toutes les fiches dans un fichier à part, 1 fiche par feuille (jai 94 titulaires), nommée par le nom de l'individu (stocké en cellule C11), EN SUPPRIMANT LES LIAISONS & FORMULES avant de passer à la fiche suivante

j'y connais rien en VBA mais qqn m'avait déjà fait ce genre de truc pour créer des fichiers html et la macro n'avait pas l'air super compliqué... est-ce que qqn peut m'aider svp?

Tu choisi comment la fichie à afficher ... tu as une liste ?




desolé... Alain pour l'edit ... j'ai écrit trop vite... et corrigé dans la foulée...

bon j'ai supossé que la listes des nom des 94 individu été dans la colonne A du fichier base ...:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Dim Fd As Workbook 'Classeur destination   Sub CopieFeuille() If IsEmpty(Fd) Or Fd Is Nothing Then   ThisWorkbook.Sheets("Fiche").Copy Set Fd = ActiveWorkbook Else ThisWorkbook.Sheets("Fiche").Copy After:=Fd.Sheets(Fd.Sheets.Count) End If ActiveSheet.Name = ActiveSheet.Range("C11").Value Cells.Copy Cells(1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub Sub test() Dim r As Range ' Ligne ... For Each r In ThisWorkbook.Sheets("Base").Cells(1, 1).CurrentRegion.Rows 'Parcours les lignes de la feuille de base ThisWorkbook.Sheets("Fiche").Range("C11") = r.Cells(1, 1).Value '.. 1° Colonne le Nom en réfèrence.. CopieFeuille Next End Sub

---

:roll: :wink:

Pendant qu'ils se font la guerre, ces deux là, tu peux sélectionner ta plage de connées, créer une nouvelle feuille de calcul, la nommer avec le contenu de la cellule C11, et coller les "Valeurs"

Code:

---

1 2 3 4 5 6 7 8 9

NomFeuille = Range("C11").value Range("A1").Select Selection.CurrentRegion.Select Selection.Copy Sheets.Add Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= False, Transpose:=False With activesheet .Name = NomFeuille End with

---

A+

Citation:

---

Envoyé par ouskel'n'or

Pendant qu'ils se font la guerre, ces deux là, tu peux sélectionner ta plage de connées, créer une nouvelle feuille de calcul, la nommer avec le contenu de la cellule C11, et coller les "Valeurs"

---

c'est ou la guerre ?...

sinon tout est déjà dans le code + haut... :wink:

Grillé sur ce coup là... :cry:

Pour nommer ta feuille, tu peux effectivement prendre la solution de Bbil

Code:

---

1 2 3

With activesheet .Name = ActiveSheet.Range("C11").Value End

---

ce qui t'évite une variable... mais ma solution reste plus courte... :langue:

A+

Citation:

---

Envoyé par ouskel'n'or

ce qui t'évite une variable... mais ma solution reste plus courte... :langue:

---

désolé ... mais si elle est plus courte c'est parce qu'elle ne fait pas tous ce qui faut ...

- Elle ne copie pas le formatage (largeurs colonnes, lignes..) complet de la f iche..
- si les cellules adjacente à la cellule A1 son vide ... ( ce qui à de grande chance d'être le cas pour une fiche et non pas une liste) ... tu copie seulement le contenu de A1 et au mieux les cellules non-vides adjacente...

- Comment change tu de titulaire..

(...)
:lol:

Hello bbil,
D'accord pour le format... J'ai raté le coche... :cry:
mais pour ce qui est du nom du titulaire, je pense qu'avant de copier la fiche elle est mise à jour.

Citation:

---

"fiche" permet d'afficher la fiche d'un gars avec toute une série de recherchev et autres fonctions amusantes

---

Ensuite, j'ai supposé que si toutes les cellules n'étaient pas renseignées, elles comportaient au moins une formule auquel cas currentregion... etc... mais bon, tu as quand même raison, je te le concède bien volontier, d'autant que je suis obligé de reconnaître que je m'inspire souvent de tes réponses... :evil:

A+

merci beaucoup pour ces réponses :D

j'essaye tout de suite mais j'ai oublié de préciser quelquechose : la fiche se met à jour en fonction d'un numéro qui fait le lien entre "base" et "fiche" et qui sert de référence aux recherchev

ce numéro se trouve en cellule C2 dans "fiche" et doit s'incrémenter au fur et à mesure pour que la fiche s'actualise avec le titulaire suivant

est-ce que cette macro marche comme ça?

argh, ça marche pas... :cry:

alors pour préciser :

dans ma feuille "base", les numéros qui servent aux recherchev sont en colonne A (à partir de A4) et les noms sont en colonne C (à partir de C4)

dans la feuille "fiche", le numéro se trouve en cellule C2 et doit s'incrémenter de 1 à 94 pour sortir les 94 fiches différentes
le nom apparait grâce au résultat d'un recherchev (de la même façon que toutes les autres infos) dans la cellule C11 et ne doit servir à rien d'autre qu'à renommer l'onglet

dernier point, il est super important qu'à chaque fiche, les formules et liens soient supprimés parce que j'ai une image (drapeau) qui s'affiche en fonction du pays d'origine de la personne mais c'est avec une fonction DECALER et si je duplique 5 fois la même fiche avec des titulaires différents, tout le monde aura le même drapeau (celui du dernier)

Citation:

---

dans la feuille "fiche", le numéro se trouve en cellule C2 et doit s'incrémenter de 1 à 94 pour sortir les 94 fiches différentes

---

Qu'est-ce qui incrémente la cellule C2 ?
Non, la macro ne prévoit pas l'incrémentation. Est-ce qu'elle marche "comme ça" ? Quelle est ta question ?
Si tu connais la plage de cellules à copier, c'est facile. Donne-la, on mettra un exemple.

Citation:

---

argh, ça marche pas... :cry:

---

Qu'est-ce qui ne marche pas ? Les RechercheV ? la copie ? l'incrémentation ?

A toi

bin en fait, j'ai modifié les trucs en rouge parce que je n'avais pas été assez précis et la macro plante dès la 1ère ligne (en bleu)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub CopieFeuille() [color=blue] If IsEmpty(Fd) Or Fd Is Nothing Then[/color]   ThisWorkbook.Sheets("Fiche").Copy Set Fd = ActiveWorkbook Else ThisWorkbook.Sheets("Fiche").Copy After:=Fd.Sheets(Fd.Sheets.Count) End If ActiveSheet.Name = ActiveSheet.Range("C11").Value Cells.Copy Cells(1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub   Sub test() Dim r As Range ' Ligne ... For Each r In ThisWorkbook.Sheets("[color=red]Base[/color]").Cells([color=red]4, 1[/color]).CurrentRegion.Rows 'Parcours les lignes de la feuille de base ThisWorkbook.Sheets("Fiche").Range("C11") = r.Cells([color=red]4, 1[/color]).Value '.. 1° Colonne le Nom en réfèrence.. CopieFeuille Next End Sub

---

et pour la cellule C2, je l'incrémente pour l'instant à la main, les formules se mettent à jour et j'imprime ensuite la fiche mais comme c'est assez long, c'est pour ça que j'aimerais avoir toutes les fiches en même temps sous les yeux

donc j'aimerais savoir si la macro incrémente qqchose jusqu'à 94 ou si elle se sert uniquement du nom, parce que si c'est le cas, ça n'est pas le nom qui sert aux recherchev, c'est le numéro (qui se trouve en 1ère colonne dans "Base" (qui en fait s'appelle "List") et qui se trouve en C2 dans "Fiche")

merci beaucoup de votre aide

il te suffit de modifier la macro d'appel :

si le nombre 94 est définitif tu peu écrire :

Code:

---

1 2 3 4 5 6 7

Sub test() Dim i as integer For i = 1 to 94 ThisWorkbook.Sheets("Fiche").Range("C2") = i CopieFeuille Next End Sub

---

:roll: :wink:

Citation:

---

Envoyé par minikisskool

bin en fait, j'ai modifié les trucs en rouge parce que je n'avais pas été assez précis et la macro plante dès la 1ère ligne (en bleu)

Sub CopieFeuille()
If IsEmpty(Fd) Or Fd Is Nothing Then

---

la premiére ligne c'est :

Code:

---

Dim Fd As Workbook 'Classeur destination

---

:wink:

le "truc en bleu" est un test ... si FD est vide c'est la premiére fiche , l'on cre un nouveau classeur .... si FD existe ... on rajoute au classeur existant ( pour les autres fichies...)

remet cette premiére ligne en bleu si tu veu que ça marche ....
:wink:

c'est bon, c'est modifié mais il continue à me mettre "erreur, objet requis" dès la 1ère ligne " If IsEmpty(Fd) Or Fd Is Nothing Then" :cry:

Citation:

---

Envoyé par minikisskool

c'est bon, c'est modifié mais il continue à me mettre "erreur, objet requis" dès la 1ère ligne " If IsEmpty(Fd) Or Fd Is Nothing Then" :cry:

---

tu as rajouter la ligne ....

Code:

---

Dim Fd As Workbook 'Classeur destination

---

tout en haut de ton module ? (c'est une variable globale...)...

euh en fait, elle y est encore...
mais excel trace un trait au-dessus de "Sub CopieFeuille()" alors je ne sais pas si c'est pris en compte....

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim Fd As Workbook 'Classeur destination   Sub CopieFeuille() If IsEmpty(Fd) Or Fd Is Nothing Then   ThisWorkbook.Sheets("Fiche").Copy Set Fd = ActiveWorkbook Else ThisWorkbook.Sheets("Fiche").Copy After:=Fd.Sheets(Fd.Sheets.Count) End If ActiveSheet.Name = ActiveSheet.Range("C11").Value Cells.Copy Cells(1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub   Sub test() Dim i As Integer For i = 1 To 94 ThisWorkbook.Sheets("Fiche").Range("C2") = i CopieFeuille Next End Sub

---

et au dessus de cette ligne il ya rien ?

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)

bref, je n'ai qu'une fiche pour l'instant mais ça marche (sauf que les formules et liens sont encore là mais j'attends de pouvoir en sortir plus pour vérifier)

je regarde et je vous tiens au courant

merci beaucoup