Discussion :

[minikisskool]

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?

[SfJ5Rpw8]

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...

[SfJ5Rpw8]

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

Code :

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

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

[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"

Code :

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

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+

[SfJ5Rpw8]

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...

[ouskel'n'or]

Grillé sur ce coup là...

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

Code :

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

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

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

A+

[SfJ5Rpw8]

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

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..

(...)

[ouskel'n'or]

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

"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...

A+

[minikisskool]

merci beaucoup pour ces réponses

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?

[minikisskool]

argh, ça marche pas...

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)

[ouskel'n'or]

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.

argh, ça marche pas...

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

A toi

[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)

Code :

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

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

[minikisskool]

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

[SfJ5Rpw8]

il te suffit de modifier la macro d'appel :

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

Code :

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

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

[SfJ5Rpw8]

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 :

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

Dim Fd As Workbook 'Classeur destination

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 ....

[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"

[SfJ5Rpw8]

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"

tu as rajouter la ligne ....

Code :

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

Dim Fd As Workbook 'Classeur destination

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

[minikisskool]

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 :

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

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

[SfJ5Rpw8]

et au dessus de cette ligne il ya rien ?

[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)

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