Afficher valeur cellule nommée [Résolu/Fermé]

Signaler
Messages postés
11
Date d'inscription
lundi 21 juillet 2014
Statut
Membre
Dernière intervention
25 septembre 2014
-
Messages postés
11
Date d'inscription
lundi 21 juillet 2014
Statut
Membre
Dernière intervention
25 septembre 2014
-
Bonjour,

Malheureusement tout n'est pas aussi simple que dans le titre.
Je m'explique :
J'ai nommé 12 cellules en mois de Janvier à Décembre
Dans chaque cellule nommée j'ai le nombre de jour ouvré du mois nommé

J'ai créé une macro qui actualise les données d'un fichier à l'ouverture de celui-ci et j'aimerai en fonction du mois auquel on ouvre le fichier qu'une des cellules affiche le nombre de jours ouvrés du mois en cours

J'espère que mes explications sont clairs
Merci d'avance pour votre aide

2 réponses

Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
2 449
Bonjour,

Peut être une piste ICI, chez Mr Boisgontier...
Messages postés
11
Date d'inscription
lundi 21 juillet 2014
Statut
Membre
Dernière intervention
25 septembre 2014

Bonjour pijaku,

malheureusement pour moi le nombre de jour ouvré calendaire ne correspond aux jours ouvrés de mon fichier
Le nombre de jour ouvré de mon fichier correspond aux jours d'ouverture de l'usine

Merci
Messages postés
11
Date d'inscription
lundi 21 juillet 2014
Statut
Membre
Dernière intervention
25 septembre 2014

tout ce passe dans le même classeur
les jours ouvrés (avec les cellules nommées) sont dans l'onglet "JRS OUVRES" cellule E11:E22
le résultat obtenu devra être dans l'onglet "DAILY SALES" cellule AA1

Pourquoi me demander le nom de l'onglet des jours ouvrés ?
Je pensais qu'en nommant les cellules il n'avait plus besoin d'aller activer l'onglet ou l'on recherche l'information ?
Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
2 449
Pourquoi me demander le nom de l'onglet des jours ouvrés ?
Parce que, dans ma grande mansuétude, je vais faire un fichier de test...
Je reviens.
Messages postés
11
Date d'inscription
lundi 21 juillet 2014
Statut
Membre
Dernière intervention
25 septembre 2014

ok merci :-)
Messages postés
12177
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
26 juin 2020
2 449
Voici le code proposé :
Private Sub Workbook_Open()
Dim mois As String
mois = Format(Date, "mmmm")
ThisWorkbook.Worksheets("DAILY SALES").Range("AA1") = Range(mois).Value
End Sub

Code à insérer dans le Module ThisWorkbook du classeur concerné

Classeur exemple ;-) => cellule A1 au lieu de AA1
Messages postés
11
Date d'inscription
lundi 21 juillet 2014
Statut
Membre
Dernière intervention
25 septembre 2014

merci ça marche au top