Changer le mois automatiquement

[sedan]

Bonjour à tous,

Je voudrais connaître la formule qui me permets d'inscrire le mois de janvier dans une cellule et automatiquement que j'ai inscris janvier dans la cellule , tous les autres mois s'inscrivent dans les cellules suivantes.
Merci pour vos réponses

 

[Monique]

Bonjour,

Tu as plusieurs méthodes dans le fichier joint.
[file name=MoisSedan.zip size=2850]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MoisSedan.zip[/file]

 

[fdarro]

bonjour sedan,
tu peux également passer en VBA avec:


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 'janvier' Then
Target.Offset(1, 0) = 'février'
Target.Offset(2, 0) = 'mars'
Target.Offset(3, 0) = 'avril'
Target.Offset(4, 0) = 'mai'
Target.Offset(5, 0) = 'juin'
Target.Offset(6, 0) = 'juillet'
Target.Offset(7, 0) = 'août'
Target.Offset(8, 0) = 'septembre'
Target.Offset(9, 0) = 'octobre'
Target.Offset(10, 0) = 'novenbre'
Target.Offset(11, 0) = 'décembre'
End If
End Sub

@+

 

[dg62]

Bonjour Monique, Sedan, Fdaro, le Forum


ou tout simplement une recopie incrémentale


en A1 : Janvier et poignée de recopie (c'est tres rapide)

 

[sedan]

Merci de vous occuper de mon problème,

Je crois que je me suis mal exprimé

En fait je voudrais inscrire Janvier dans une cellule dans feuille 1 et ensuite je voudrais que février s'inscrive automatiquement dans la feuille 2 et ainsi de suite pour arriver à Décembre dans la feuille 12

 

[sedan]

Merci de vous occuper de mon problème,

Je crois que je me suis mal exprimé

En fait je voudrais inscrire Janvier dans une cellule dans feuille 1 et ensuite je voudrais que février s'inscrive automatiquement dans la feuille 2 et ainsi de suite pour arriver à Décembre dans la feuille 12

 

[fdarro]

salut sedan,
veux tu que les mois soit dans une cellule ou sur l'onglet de chaque feuille
@+

 

[sedan]

Dans une cellule

Merci pour ton aide

 

[fdarro]

j' ai essayer un truc, il peux peut etre te convenir

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = 'janvier' Then
actu = ActiveSheet.Name
pos = Target.Address
For a = 2 To 12
Sheets.Add
ActiveSheet.Name = ('mois' & a)
Sheets('mois' & a).Move Before:=Sheets(a)
Sheets('mois' & a).Range(pos).Value = Format('01/' & a, 'mmmm')
Next a
Sheets(actu).Move Before:=Sheets(1)
End If
End Sub

@+

 

[sedan]

Je ne veux pas utiliser de macro, un formule me suffit, je ne sais pas encore utiliser les macros

 

[selecteur]

Bonjour tout le monde,

Je pense que dans ton cas il faut simplement créer dès le départ tes 12 feuilles. Ensuite tu insères en A1 dans ta prmière feuille 'Janvier'. Sur la deuxième feuille tu mets la formule suivante : =SI(Feuil1!A1='janvier';'Février';''), sur la feuille 3 : =SI(Feuil1!A1='janvier';'Mars';'') et ainsi de suite.

J'espère avoir été clair.


Selecteur.

 

[selecteur]

Pour la troisième feuille il faut lire =SI(Feuil2!A1='Février';'Mars';'') et ainsi de suite. Pardon pour l'erreur.



Selecteur.

 

[chris]

Bonjour
Autre solution :
Mettre 1/1/2005 dans la cellule A1 de la feuil1 et la mettre au format date 'mmmm'
Dans les feuilles suivantes
mettre
= mois.decaler(feuil1!a1;1)
en mettant 2 puis 3 puis 4 à la place du 1 au fur et à mesure des feuilles.

Toutes ces cellules doivent être au même format 'mmmm'.


La fonction mois.decaler nécessite que la macro complémentaire utilitaire d'analyse soit activée (outils, macros complémentaires)

Message édité par: chris, à: 16/04/2005 13:16

 

[Monique]

Re,

Ou bien par une formule d'extraction de texte.
Une cellule prend le nom de l'onglet (c'est du texte)
=STXT(CELLULE('filename';B6);TROUVE(']';CELLULE('filename';B6))+1;9)
et une formule peut lui donner une valeur numérique (une date)
=(STXT(CELLULE('filename';A1);TROUVE(']';CELLULE('filename';A1))+1;9)&5)*1
(le 9, c'est le nb max de caractères du nom des mois, septembre)
[file name=MoisSedanV1.zip size=2164]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MoisSedanV1.zip[/file]