Remplir une cellule automatiquement [Résolu/Fermé]

Signaler
Messages postés
14
Date d'inscription
mardi 2 octobre 2012
Statut
Membre
Dernière intervention
11 décembre 2013
-
Messages postés
14
Date d'inscription
mardi 2 octobre 2012
Statut
Membre
Dernière intervention
11 décembre 2013
-
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

Messages postés
23381
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
6 231
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
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 61496 internautes nous ont dit merci ce mois-ci

Messages postés
85
Date d'inscription
lundi 1 octobre 2012
Statut
Membre
Dernière intervention
5 octobre 2012
23
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.
Messages postés
14
Date d'inscription
mardi 2 octobre 2012
Statut
Membre
Dernière intervention
11 décembre 2013

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 :)
Messages postés
85
Date d'inscription
lundi 1 octobre 2012
Statut
Membre
Dernière intervention
5 octobre 2012
23
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.
Messages postés
14
Date d'inscription
mardi 2 octobre 2012
Statut
Membre
Dernière intervention
11 décembre 2013

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 !
Messages postés
14
Date d'inscription
mardi 2 octobre 2012
Statut
Membre
Dernière intervention
11 décembre 2013

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
Messages postés
23381
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
10 juillet 2020
6 231
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
Messages postés
14
Date d'inscription
mardi 2 octobre 2012
Statut
Membre
Dernière intervention
11 décembre 2013

Merci beaucoup, votre réponse m'a vraiment aidé ! :-)