Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Question a Jacky

Question a Jacky

19 réponses
Avatar
Baceri
Suite a la réponse que tu m'as donné, je l'avais essayé que sur une feuille
et la pas de problème. Par contre quand j'ai essaye sur le document en
question pas de mise a jour de l'onglet. Je m'explique j'ai une feuille qui
s'appelle "Mois" et la il y a un calcul pour trouver les semaines de ce
mois, sur les autres feuilles il y a "pointageS..." et "planningS..". Comme
les calculs se font sur la feuille "Mois" les autres feuilles ne se mettent
pas a jours. En clair le nom de l'onglet ne change que si la feuille est
ouverte quand la cellule A1 change de valeur.


'----------
Private Sub Worksheet_Change(ByVal Target As Range)
If [a1] <> x Then
ActiveSheet.Name = "Pointage " & [a1]
x = ActiveSheet.Name
End If
End Sub
'--------------
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Jacky
Re..
Est-ce que dans le fichier définitif les feuilles "pointageS.." et
"planningS.." excitent pour toutes les semaines de l'année ??
Est si oui, que contiennent-elles ?

--
Salutations
JJ

"Baceri" a écrit dans le message de news:
4523ca71$0$19086$
http://cjoint.com/?keqYHfweDn

J'ai suprime toute les feuilles c'etait encore trop gros



Avatar
Baceri
non Que pour le mois, Je sauvegarde le fichier par mois
Avatar
Jacky
Re..
Bien que perso., je n'opterai pas pour cette méthode.
Pour rester dans ta logique:
Ceci dans le module de la feuille 'Mois'
'-------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Fname As String
Dim Fexist As Boolean
On Error Resume Next
For Each c In [k6:k10]
Fname = "pointageS" & c
Fexist = False
Fexist = IsObject(Sheets(Fname))
If Not Fexist Then
Sheets.Add after:¬tiveSheet
ActiveSheet.Name = Fname
End If
Fname = "planningS" & c
Fexist = False
Fexist = IsObject(Sheets(Fname))
If Not Fexist Then
Sheets.Add after:¬tiveSheet
ActiveSheet.Name = Fname
End If
Next
Sheets("mois").Select
End Sub
'-------------
Ps: Une sauvegarde et une suppression des feuilles inutiles automatique
serait nécessaire.
--
Salutations
JJ

"Baceri" a écrit dans le message de news:
4523d10b$0$29221$
non Que pour le mois, Je sauvegarde le fichier par mois



Avatar
Baceri
Ca marche bien mais il y a encore un probleme, la il me rajoute des
feuilles, moi je voudrais qu'il me renome les existantes. Je les ai suprime
pour aleger le fichier pour l'envoi mais il y a des tableaux.
Avatar
Jacky
Re...

Ici...
http://cjoint.com/?kexH0Nu3q8
Bonne nuit
JJ

"Baceri" a écrit dans le message de news:
452401e1$0$19035$
Ca marche bien mais il y a encore un probleme, la il me rajoute des
feuilles, moi je voudrais qu'il me renome les existantes. Je les ai
suprime pour aleger le fichier pour l'envoi mais il y a des tableaux.



Avatar
Baceri
Quand il renomme les onglets, il efface les tableaux. Chaque mois je me
ressert du même fichier en faisant une sauvegarde le mois termine.
Avatar
Jacky
Re...
Ceci change juste le nom des feuilles.
http://cjoint.com/?kfqIeLBoVT

--
Salutations
JJ

"Baceri" a écrit dans le message de news:
45243162$0$23906$
Quand il renomme les onglets, il efface les tableaux. Chaque mois je me
ressert du même fichier en faisant une sauvegarde le mois termine.



Avatar
Baceri
Merci ca marche;
Il y a encore un petit probleme quand on fait un essai de janvier a decembre
par fois il y a des erreurs il me prend "k7" au lieu de "K6" pour les deux
premiere feuilles quand on choisis un mois de plus et qu'on revient la il
prend le bon.
Encore merci et bravo
Avatar
Jacky
Re...
Cela est dû à la présence de la même semaines dans les deux mois, une fois
en fin du mois et une fois en début du mois.
Et comme le test se fait sur une plage de K6>>>K10 , c'est normal.
Perso, j'aurais opté pour la création des feuilles sur une année, en
ouverture de classeur, et de travailler sur un défilement semaine par
semaine en masquant celles inutiles.
Ainsi le classeur sauvegarderait une année complète.
Mais bon, ça c'est une autre histoire.
--
Salutations
JJ

"Baceri" a écrit dans le message de news:
45252c35$0$10705$
Merci ca marche;
Il y a encore un petit probleme quand on fait un essai de janvier a
decembre par fois il y a des erreurs il me prend "k7" au lieu de "K6" pour
les deux premiere feuilles quand on choisis un mois de plus et qu'on
revient la il prend le bon.
Encore merci et bravo



1 2