Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

erreur affichage n°semaine

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Nimbus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

Nimbus

XLDnaute Occasionnel
Bonjour à tous,

J'ai un petit soucis avec mon pgm vba.
Jusqu'à maintenant l'affichage du n° sem fonctionnait très bien et depuis hier, il ne m'affiche plus rien...
Je ne sais pas si c'est à cause du nombre de ligne du tableau ( environ 430) mais auriez vous une idée de comment résoudre ce problème?

Voici le code utilisé:

Code: 
Function prem(an As Integer) As Date
For n = CDate("01/01/" & an) To CDate("07/01/" & an)
  If Weekday(n) = 5 Then prem = n - 3
Next n
End Function
Function NOSEM(ladate As Date) As Variant
  NOSEM = Int((ladate - prem(Year(ladate))) / 7) + 1
  If NOSEM = 53 And Weekday(ladate) < 5 Then NOSEM = "1 de " & Year(ladate) + 1
End Function

Merci pour votre aide

Nimbus
 
Trier par date Trier par votes
Re : erreur affichage n°semaine

Bonjour
Je te conseille plutôt cette fonction de Daniel Maher

Code: 
Public Function IsoWeekNum(d1 As Date) As Integer
' Provided by Daniel Maher.
   Dim d2 As Long
   d2 = DateSerial(Year(d1 - Weekday(d1 - 1) + 4), 1, 3)
   IsoWeekNum = Int((d1 - d2 + Weekday(d2) + 5) / 7)
End Function

qui te renvoie le N° de semaine norme européenne à partir de la date
 
Vote positif 0 Vote négatif
Re : erreur affichage n°semaine

Bonjour Misange,

Je viens de tester ton programme et il m'indique "NOM?" dans la colonne du N° semaine. Sais tu pourquoi?
Est-ce parce qu'au paravant j'avais mon mis la formule (=NOSEM (@Date)) dans cette colonne?

Je te mets, en pièce jointe, mon document pour t'aider
 

Pièces jointes

Vote positif 0 Vote négatif
Re : erreur affichage n°semaine

En B6 :
=IsoWeekNum([@[Date ]])
si tu mets une fonction personnalisée et que tu cherches à l'appeler par un autre nom ça ne risque pas de marcher !
 
Vote positif 0 Vote négatif
Re : erreur affichage n°semaine

Ok maintenant ça fonctionne mais, quand je fais une nouvelle saisie, il ne prend pas en compte la formule.
Il me note bien la date mais, pas le numéro de semaine alors qu'il le fais pour les semaines précédentes...
 

Pièces jointes

Vote positif 0 Vote négatif
Re : erreur affichage n°semaine

Chez moi cela fonctionne.
Dans l'exemple que tu as joint, ta ligne sous le tableau n'en fait pas partie.
Efface la
écris une date juste sous le tableau dans la première colonne, la nouvelle ligne se crée avec la formule recopiée et fonctionnelle
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
5 K
Usine à gaz
U
  • Question Question
Autres Comment puis-je m'en sortir?
Réponses
2
Affichages
542
un internaute
U
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
893
bsalv
B
U
  • Question Question
Autres {RÉSOLU] Problème macro
Réponses
2
Affichages
821
un internaute
U
U
  • Résolu(e)
Autres Mettre en couleur ligne avec VBA car MFC occupées (Excel 2003)
2
Réponses
15
Affichages
2 K
un internaute
U
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
F
  • Question Question
XL 2019 erreur 1004
Réponses
8
Affichages
719
florian50470
F
  • Question Question
Autres une Function doit elle être dans un module ?
2
Réponses
23
Affichages
2 K
Macpoy
A
  • Question Question
XL 2016 Combobox Saisie Date
Réponses
12
Affichages
1 K
aurelio.ewane
A
V
  • Question Question
XL 2016 [RESOLU] Traduction code VBA (code trouvé sur internet je ne comprend rien)
2
Réponses
17
Affichages
3 K
VBgalère
V
S
  • Question Question
Microsoft 365 Mise à Jour dates
Réponses
0
Affichages
650
Stephane Mex
S
  • Question Question
XL 2013 VBA insérer des retours à la ligne dans un résultat
Réponses
1
Affichages
803
sylvanu
F
  • Question Question
XL 2019 Avis macro sur classeur maître
Réponses
0
Affichages
790
Fanrs
F
B
  • Question Question
Calendrier, Function férié(i) et ajout de dates dynamiques
Réponses
10
Affichages
2 K
patricktoulon
L
  • Résolu(e)
XL 2013 RECUPARATION FICHIER PDF
Réponses
2
Affichages
986
laurentsicli
L
  • Suggestion Suggestion
Date et heure EcartDate
2 3
Réponses
32
Affichages
6 K
patricktoulon
F
  • Résolu(e)
Microsoft 365 Msg Box sur conditions
Réponses
8
Affichages
1 K
FCMLE44
F
  • Question Question
XL 2016 Optimisation code agenda
Réponses
0
Affichages
1 K
Nicolas JACQUIN
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…