Fonction ou macro copie de feuille en feuille Résolu

Question

Bonjour,
j'ai un classeur de 350 feuilles, avec un première feuille, une liste du nom de toutes les feuilles du classeur. 

Toutes les feuilles sont simillaire et ont des nom de format N+un chiffre.

Voila ma feuille 1
colonne A 
Nom de feuille
Modèle
N5
N7
N10
N20
N22
etc

je voudrais que pour chaque nom de feuille une fonction ou une macro alle dans la feuille portant ce nom et me mette en colonne B la valeur de la cellule C5 (Nom) et en colonne C la valeur de la cellule C6(prénom).


Donnant 

Colonne A.....Colonne B.....Colonne C
Nom de feuille
Modèle
N5..........                               Nom N5.....                      Prénom N5
N7..........                                    Nom N7.....                           Prénom N7
N10.....                                  Nom N10.....                         Prénom N10 
N20.....                                  Nom N10.....                         Prénom N20
N22.....                                  Nom N22.....                         Prénom N22

zebulon2503 · Answer

Salut
Tes feuilles sont numerotees aleatoirement ou de 1 a 350?
Tu as deja l'affichage de base sur ta feuille 1:

colonne A
Nom de feuille
Modèle
N5
N7
N10
N20
N22
etc 

?

Et tu as besoin d'une macro juste pour afficher les noms et prenoms ou le reste egalement ?

eriiic · Answer

Bonjour,

en B2:
=INDIRECT(A2 & "!C5")
en C2:
=INDIRECT(A2 & "!C6")

eric

JOLARITALE · Answer

Bonjour,

Eriic, j'ai pas tout compris,

Zebulon, mes feuilles sont numéroté de façon croissante de 5 à 3500 mais de manières discontinue
en tout il y en a environ 350.

En cellule C6 decahque feuille il y a un nom et en cellule C7 de chaque feuille il y a un prénom 

je voudrais juste les noms et prenoms pas d'autres infos.

Oui, j'ai l'affichage de base de la feuille 1 
Grace a PBGunner 

Merci

JOLARITALE · Answer

Bonjour,

Eriic, j'ai pas tout compris,

Zebulon, mes feuilles sont numéroté de façon croissante de 5 à 3500 mais de manières discontinue
en tout il y en a environ 350.

En cellule C6 decahque feuille il y a un nom et en cellule C7 de chaque feuille il y a un prénom 

je veux juste les noms et prenoms pas d'autres infos.

Oui, j'ai l'affichage de base de la feuille 1 
grace a PBGunner

eriiic · Answer

ccm recommence à merdouiller...
Je disais donc :
ça tombe bien, il n'y a rien à comprendre... juste la formule à recopier
eric

JOLARITALE · Answer

Wouahou c'est magique lol 
je ne comprend pas, mais alors pas du tout!!!

mais c'est génial ;)

JOLARITALE · Answer

Wouhaou!!!
c'est magique!!
je ne comprend rien, mais alors rien du tout!!!

mais c'est géniale :) 

Merci :)

JOLARITALE · Answer

et pendant qu'on y est y'aurais ps un truc qui me permetrait de ranger mes feuille par ordre croissant? 

hihi

JOLARITALE · Answer

Wouhaou!!!
c'est magique!!
je ne comprend rien, mais alors rien du tout!!!

mais c'est géniale :) 

Merci :)

JOLARITALE · Answer

oups... CCm merdouille un peu en effet... désolé pour le multipostage.... :$

eriiic · Answer

un truc qui me permetrait de ranger mes feuille par ordre croissant? 
Pas de truc non, seule une macro peut le faire.
J'ai supposé que tu voulais un tri numérique et non pas alphanumérique, le tri n'est pas optimisé mais pour 500 feuilles ça doit suffire...

A coller dans un module :
Sub TriFeuilles()
    ' Rassemble les feuilles Nxx en fin de classeur avec tri numérique sur xx
    ' Les feuilles ne commençant pas par N restent dans leur ordre d'apparition, remises au début.
    Dim i As Long, fini As Boolean
    Dim n1 As String, n2 As String, i1 As Long, i2 As Long
    Application.ScreenUpdating = True
    fini = False
    Do While Not fini
        fini = True
        For i = 1 To Worksheets.Count - 1
            n1 = Worksheets(i).Name
            n2 = Worksheets(i + 1).Name
            If Left(n1, 1) = "N" Then i1 = CLng(Mid(n1, 2)) Else i1 = 0
            If Left(n2, 1) = "N" Then i2 = CLng(Mid(n2, 2)) Else i2 = 0
            If i1 > i2 Then
                Sheets(i + 1).Move Before:=Sheets(i)
                fini = False
            End If
        Next i
    Loop
    Application.ScreenUpdating = False
End Sub

Teste mais je ne pense pas qu'il y ait des erreurs
eric

JOLARITALE · Answer

Bonjour, 

Merci de m'avoir trouvé non pas un truc mais une vrais macro digne de ce nom :) 

Mais, ça me donne une erreure où c'est en gras. 


Sub TriFeuilles()
    ' Rassemble les feuilles Nxx en fin de classeur avec tri numérique sur xx
    ' Les feuilles ne commençant pas par N restent dans leur ordre d'apparition, remises au début.
    Dim i As Long, fini As Boolean
    Dim n1 As String, n2 As String, i1 As Long, i2 As Long
    Application.ScreenUpdating = True
    fini = False
    Do While Not fini
        fini = True
        For i = 1 To Worksheets.Count - 1
            n1 = Worksheets(i).Name
            n2 = Worksheets(i + 1).Name
            If Left(n1, 1) = "N" Then i1 = CLng(Mid(n1, 2)) Else i1 = 0
            If Left(n2, 1) = "N" Then i2 = CLng(Mid(n2, 2)) Else i2 = 0
            If i1 > i2 Then
                Sheets(i + 1).Move Before:=Sheets(i)
                fini = False
            End If
        Next i
    Loop
    Application.ScreenUpdating = False
End Sub


c'est grave docteur????

JOLARITALE · Answer

c'est possible que les feuilles en NXX se range à partir de la 4ème position? 

Si j'en demande trop n'hésite surtout à me le dire... tu sais avec les enfants, il faut savoir leur poser des limites 
hihi

eriiic · Answer

Bonjour,

Tu dois avor un nom de feuille qui commence par N et qui n'est pas suivi d'un nombre.
Si tu dois te servir souvent de la macro on completera, en attendant renomme cette feuille le temps de trier tes feuilles.

eric

JOLARITALE · Answer

j'ai renommé feuille N en N00 mais ça me donne toujours le meme message d'erreure

JOLARITALE · Answer

tu veux que je t'envoi le fichier avec ci joint? 

par contre, je peut pas laisser le nom de feuille de N en N00
sinon mon autre macro va plus marcher

JOLARITALE · Answer

Voila le lien du fichier... 

Ya encore un soucis, cette fois ca va bien de page en page mais ca ne me les tri pas... 


http://www.cijoint.fr/cjlink.php?file=cj200807/cijvIlhgcQ.xls

JOLARITALE · Answer

la je ne comprend pas...

j'ai essayé d'exécuter la macro sur le gros fichier rien a faire, il bugg... je l'ai laissé travaillé 35min sans arriver à l'ouvrire après... 

Et apres j'ai éssayé sur le fichier leger que je t'ai envoyer et la pas de soucis et en un rien de temps en plus... 

le déséspoir me guette...

eriiic · Answer

Pour savoir où en est la macro l'arreter temporairement avec Ctrl+Pause.
Dans VBA placer le curseur souris sur la variable i, attendre que sa valeur s'affiche.
Si i < au nombre de feuilles c'est qu'elle n'a pas fini...
Si il est plus grand c'est qu'il y a réelllement un bug
Relancer par F5, l'arreter à nouveau pour voir si i a évolué.

eric

JOLARITALE · Answer

c'est normal que les valeur de I ne se suivent pas?

j'ai eu 131 puis 124 et après 135.

JOLARITALE · Answer

Youpyyy ca fonctionne.... bon c'est un peu long mais c'est pas trop grave :) 

j'avais pas mal de feuille vide au milieu en feuille120 j'ai tout virer et ca marche 
et dit, et si je redonne ne nom N à ma feuille ca va le faire??? ou pas? 

j'ai peur d'essayer loll

JOLARITALE · Answer

roooo ca marche!!!

c'est trop bien 

MERCI MERCI :)

eriiic · Answer

c'est normal que les valeur de I ne se suivent pas? 
oui, l'important est que la valeur change, c'est que la macro tourne toujours.
c'est un peu long  toutes ne s'en plaignent pas... ;-)
ça sera plus rapide les autres fois, il y aura bcp moins de permutations à faire puisque presque tout sera déjà trié.
si je redonne ne nom N à ma feuille ca va le faire??? 
oui, j'avais ajouté ce test, tes feuilles peuvent s'appeller comme tu veux.
roooo ca marche!!! 
ouffff :-)

JOLARITALE · Answer

roooo ca marche!!! 
ouffff :-)

j'ai rigolée toutes seules déjà qu'au bureaux je passait pas pour une des personnes les équilibrée mais là... c'est le pompom lol 

Merci bcp ;) 

je serais perdu toute seule avec mes macros...

Fonction ou macro copie de feuille en feuille

24 réponses

Votre réponse

Discussions similaires

Newsletters