Remplir une cellule automatiquement

Résolu/Fermé
Xuli Messages postés 14 Date d'inscription mardi 2 octobre 2012 Statut Membre Dernière intervention 11 décembre 2013 - 2 oct. 2012 à 16:25
Xuli Messages postés 14 Date d'inscription mardi 2 octobre 2012 Statut Membre Dernière intervention 11 décembre 2013 - 3 oct. 2012 à 10:08
Bonjour à tous,

J'ai un fichier excel dans lequel je remplis chaque jour de nouvelles info avec la date correspondante dans la colonne B. J'ai également 3 colonnes en C, D et E : année, mois, numéro de semaine, correspondant à cette date.

J'aimerais qu'en remplissant la date manuellement dans la colonne B, les 3 colonnes C, D et E se remplissent automatiquement. Je connais déjà les formules =ANNEE(C2) etc, mais la je cherche vraiment à automatiser ce fichier :)

Est-ce que c'est possible ?

Merci d'avance pour votre aide !

4 réponses

eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
Modifié par eriiic le 2/10/2012 à 18:10
Bonjour,

en vba:
Private Sub Worksheet_Change(ByVal Target As Range)  
    If Target.Column <> 1 Or Target.Row = 1 Then Exit Sub  
    Target.Offset(0, 1) = Year(Target)  
    Target.Offset(0, 2) = Month(Target)  
    Target.Offset(0, 3) = DatePart("ww", Target, vbMonday, vbFirstFourDays)  
End Sub 

Fichier exemple : https://www.cjoint.com/?BJcsgcXEqtI
Clic-droit sur le nom d'onglet et 'visualiser le code...' pour y accéder.

Attention, je ne modifie pas l'année pour le 01/01/2012 par exemple.
La date est bien en 2012, mais c'est semaine 52... de 2011.
Précise si tu préfères.

eric

Jamais tu ne répondras à un mp non sollicité...
Bon, ça c'est fait.
2
Yakuru Messages postés 78 Date d'inscription lundi 1 octobre 2012 Statut Membre Dernière intervention 4 octobre 2012 24
2 oct. 2012 à 16:30
Salut,

Si j'ai bien compris, tu veux qu'en rentrant la date en cellule B, les cellules C, D et E se remplisse automatiquement ?

Comme tu connais déjà les fonctions ANNEE, MOIS et JOUR, pourquoi ne les utilises-tu pas ? Il te suffit de le faire pour la première ligne de ton classeur Excel, puis d'étirer la formule jusqu'à ta dernière ligne.
0
Xuli Messages postés 14 Date d'inscription mardi 2 octobre 2012 Statut Membre Dernière intervention 11 décembre 2013
2 oct. 2012 à 16:36
Merci pour ta réponse,

Ce fichier se remplit tous les jours, je peux effectivement étirer les formules chaque jour, mais je me demandais s'il existait une formule qui remplisse la cellule automatiquement, sans avoir besoin de rien faire :)
0
Yakuru Messages postés 78 Date d'inscription lundi 1 octobre 2012 Statut Membre Dernière intervention 4 octobre 2012 24
2 oct. 2012 à 16:41
Si tu étires sur ton fichier les cellules sur plusieurs dizaines (ou centaines) de lignes, c'est gênant pour toi ? Comme ça, tes formules sont déjà prêtes pour les futurs jours.
Je ne connais pas de formule permettant de faire ça automatiquement, ou alors via macro écrite en VBA, mais de même, il faudra que tu l'exécutes chaque jour.
0
Xuli Messages postés 14 Date d'inscription mardi 2 octobre 2012 Statut Membre Dernière intervention 11 décembre 2013
2 oct. 2012 à 16:45
Je pense que je vais faire ça comme ça alors s'il n'y a pas d'autre possibilité, ça ira quand même :)

Merci !
0
Xuli Messages postés 14 Date d'inscription mardi 2 octobre 2012 Statut Membre Dernière intervention 11 décembre 2013
3 oct. 2012 à 09:42
Merci beaucoup c'est exactement ça !

Est-ce que vous pouvez me préciser, si je viens à modifier mes colonnes, comment modifier ce code : exemple : Année, mois, semaine en A, B, C et date de publication en colonne I > la colonne de référence est déplacée.

Je suis en pleine refonte de ce fichier et je pense qu'à l'avenir il sera présenté comme ça,

Merci encore pour votre réponse
0
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
3 oct. 2012 à 09:57
Bonjour,

La cellule modifiée est appelée Target dans l'évènement change.

If Target.Column <> 1 si la colonne est différente de 1 (A) on sort
Target.Offset(0, 1) cellule à un offset de : 0 ligne et 1 colonne à droite de target.
L'offset peut-être négatif => colonnes à gauche

Si A devient I et B devient A :
If Target.Column <> 9 .... exit sub
Target.Offset(0, -8) = Year(Target)

eric
0
Xuli Messages postés 14 Date d'inscription mardi 2 octobre 2012 Statut Membre Dernière intervention 11 décembre 2013
3 oct. 2012 à 10:08
Merci beaucoup, votre réponse m'a vraiment aidé ! :-)
0