Problème avec ordre des macros multiples...

[silvia]

Bonjour à tous!

Travaillant toujours sur ma base de données client (j'y arrive gentiment mais surement...), j'ai un problème avec mes macro:

En effet, j'ai créer un bouton qui me reprend 3 macros:

1. nom de feuille
2. reprise des intitulés des onglets
3. test: qui reprend les diverses données dont j'ai besoin dans ma page de récapitulation

J'avais donc crée la macro suivante:

Private Sub CommandButton1_Click()
Noms_Feuilles
Onglets
test
End Sub.

Les macros s'exécutent mais le soucis c'est que la macro "onglets" qui ne devrait me mettre à jour que la liste des onglets dans mon récapitulatif, m'insère également la liste des onglets dans la dernière feuille crée.

J'ai donc fait plusieurs test, et j'ai remarqué que si je met "onglets" avant "Noms_feuilles" ça ne le fait pas. Mais le soucis c'est que du coup, la liste des onglets ne se met plus à jour....

Je ne sais donc pas comment faire!!!

Je débute avec les macros, et je suis vraiment perdue...

J'ai autre petit soucis. Lorsque j'exécute les macros, j'arrive toujours en dernière feuille, mais idéalement je souhaiterais rester dans le récapitulatif.

Voici le lien vers le fichier pour plus de compréhension:

http://www.cijoint.fr/cjlink.php?file=c ... LVNH2.xlsm

Si quelqu'un à une idée, je suis preneuse!
Merci d'avance pour votre aide!!!

Edit de Nad : Fichier .xls

[Nad-Dan]

Bonjour,

Ton fichier est au format 2007 et non lisible pour les versions précédentes. Peux-tu le replacer en version excel inférieur (extension .xls)

Amicalement

Dan

[Nad-Dan]

Bonjour,

Je débute avec les macros...

Hum...il y a des codes qui ne sont pas de débutants là.. notamment un venant de Veriti.
Ton fichier vient d'où effectivement ?

Sinon voici les modifications à apporter.
Rempalce les 3 macros Noms_feuilles, Onglets et Nouveau par celles ci-après

Code: Tout sélectionner

Sub Noms_Feuilles()
'Macro Dan modifiée pour Silvia le 13/08/09
'http://forum.excel-pratique.com/viewtopic.php?t=12800
Dim sh As Worksheet
For Each sh In Sheets
If sh.Range("B4") <> "" Then
sh.Range("B4") = sh.Name
End If
Next sh
End Sub

Code: Tout sélectionner

Sub Onglets()
'Macro Dan modifiée pour Silvia le 13/08/09
'http://forum.excel-pratique.com/viewtopic.php?t=12800
Dim I As Byte
For I = 1 To ThisWorkbook.Sheets.Count
If Sheets(I).Name <> "Récapitulatif" Then
Sheets("Récapitulatif").Hyperlinks.Add Anchor:=Cells(I + 3, 1), Address:="", _
    SubAddress:="'" & Sheets(I).Name, TextToDisplay:=Sheets(I).Name
End If
Next
End Sub

Code: Tout sélectionner

Sub nouveau()
'Macro Dan pour Silvia le 13/08/09
'http://forum.excel-pratique.com/viewtopic.php?t=12800
Sheets("modèle").Copy After:=Sheets(Sheets.Count)
End Sub

Fais un essai et dis nous.

Il y a d'autres macros dans ce fichier dont je ne vois pas l'utilité. Tu pourrais les supprimer.

Amicalement

Dan

PS : Si ton pb est terminé, n'ounlie pas de mettre RESOLU sur le fil. explications par ici --> http://forum.excel-pratique.com/viewtopic.php?t=13
Merci de ta participation.

[silvia]

Désolé, j'y avais pas pensé...

voici le fichier à nouveau:
http://www.cijoint.fr/cjlink.php?file=c ... d9rxlW.xls

Merci d'avance!
Silvia

[silvia]

Le fichier est le mien, mais j'ai fait des heures de recherche sur internet et des heures de test aussi!!! Mais surtout grâce à quelques internautes j'ai enfin réussi à mettre en place le fichier client!

Mais c'est vrai que du coup le fichier a besoin d'un grand nettoyage!
il faut aussi que je tente de comprendre pourquoi ça ne marchait pas avant!!

Merci pour ton aide!!!
silvia

[silvia]

Merci pour les codes!

J'ai fait un peu de nettoyage aussi...
Petit soucis quand même avec le noms des feuilles:

en effet si je met ton code ça me donne l'inverse de se que je voulais. (c'est à dire que le nom de la feuille vient s'insérer dans la cellule pour le nom du client).

Mais à part ça en ayant modifié les codes, ça bug toujours lorsque je les combine. (alors que si je les fait séparément ça joue...)

merci!!!
Silvia

[Nad-Dan]

re,

J'ai vu un petit bug dans ce que je t'ai proposé donc modifie ta macro Onglets comme suit

Code: Tout sélectionner

Sub Onglets()
'Macro Dan pour Silvia le 13/08/09
'http://forum.excel-pratique.com/viewtopic.php?t=12800
Dim I As Byte
For I = 1 To ThisWorkbook.Sheets.Count
If Sheets(I).Name <> "Récapitulatif" Then
Sheets("Récapitulatif").Hyperlinks.Add Anchor:=Cells(I + 3, 1), Address:="", _
    SubAddress:="'" & Sheets(I).Name & "'" & "!B4", TextToDisplay:=Sheets(I).Name
End If
Next
End Sub

en effet si je met ton code ça me donne l'inverse de se que je voulais. (c'est à dire que le nom de la feuille vient s'insérer dans la cellule pour le nom du client).

Le code te donne dans la feuille Récapitulatif, les noms des feuilles telles qu'elles sont positionnées dans ton fichier.Tu peux expliquer ??

A te relire

Dan

[silvia]

J'ai fais le changement et ça joue. Merci!!! par contre toujours le soucis avec le bouton.. je vois vraiment pas pourquoi ça marche pas...

Par contre, c'est vrai que les noms viennent dans l'ordre où elles sont insérées.
Expliquer je peux pas... mais par contre c'est sur ma liste des macros à trouver!!!:

1. Mettre les fichiers automatiquement par ordre alphabétique
2. Font de cellule et nom du client en rouge si cours restant inférieur ou égal à 2
3. Mettre en place menu déroulant pour recherche simplifiée
4. Mettre en place bouton de séléction pour publipostage ou alors séléction automatique des clients en rouge.
5. Et lorsque j'aurais compris un peu plus les macros, Essayer de faire un userform qui permettrait d'entrer le noms et la date sans devoir entrer à chaque fois dans les feuilles.

Alors voilà encore de nombreuses heures de travail... Mais à ce stade je pense que je peux utiliser le fichier pour la rentrée, les améliorations viendront plus tard...

Merci pour tout!!
silvia

[Nad-Dan]

Re,

par contre toujours le soucis avec le bouton..

Quel bouton et surtout quel souci ??
Explique ce tu veux exactement au final. on verra mieux le pb.

1. Mettre les fichiers automatiquement par ordre alphabétique

Quels fichiers ?

2. Font de cellule et nom du client en rouge si cours restant inférieur ou égal à 2

Le nom du client se trouve où ?

A te relire

Dan

[silvia]

Rebonjour,

Pour le bouton : je souhaiterais qu'en cliquant dessus cela exécute plusieurs macros (noms_feuilles, onglets, test) pour que la feuille récapitulative se mette à jour.

pour l'odre alphabétique, c'était surtout pour que les onglets soit par ordre alphabétique. (et non les fichiers... désolé).

Pour le nom du client, c'est le nom de l'onglet (repris dans la colonne A), pour l'instant j'ai seulement mis A, B, C... Ce que je souhaiterais faire c'est que si une des abonnements arrive à 2 ou moins la cellule de l'abonnement se mette en rouge et aussi la cellule où il y a le nom. (par exemple:

Si D6 ou G6 ou J6 est égal ou inférieur à 2, alors la cellule qui est inférieur à 2 se colore en rouge mais également la cellule A6.
(pas sûre que se soit très clair...)

Merci
Silvia