Discussion :

[goninph]

Bonjour,

Je n'arrive pas à trouver le code pour renvoyer le numéro de la semaine du lundi.

La formule est :

Le lundi 30 décembre 2019 fait partie de la semaine 1 2020, c'est correct.
=TEXTE(DX19;"mmmm aaaa") &" "& "Sem."&NO.SEMAINE(DX19;21) (avec le 21 pour la norme ISO Euro)

Mais en VBA ????
Le code ci-dessous affiche pour le lundi 30 décembre 2019 la semaine 53 2019, ce qui n'est pas correct.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox Format(ActiveCell, "ww", vbMonday)

Help ...

Merci pour vos lumières
Philippe

[Pierre Fauconnier]

Salut.

Le fait de préciser vbMonday ne veut pas dire que tu demandes le n° européen, mais seulement que la semaine commence le lundi et pas le dimanche...

Je te propose une fonction perso (utilisable uniquement en VBA Excel):

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function WeekNoIso(MyDate As Date) As Integer
  WeekNoIso = Evaluate("isoweeknum(" & CLng(MyDate) & ")")
End Function

[goninph]

Ok, mais quelle est le code avec Activecell ...
Merci

Salut.

Le fait de préciser vbMonday ne veut pas dire que tu demandes le n° européen, mais seulement que la semaine commence le lundi et pas le dimanche...

Je te propose une fonction perso (utilisable uniquement en Excel):

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function WeekNoIso(MyDate As Date) As Integer
  WeekNoIso = Evaluate("isoweeknum(" & CLng(MyDate) & ")")
End Function

[Menhir]

En supposant que cette formule est écrite dans la cellule A1, tu tapes dans la fenêtre d'exécution ? Range("A1").Formula et tu auras ta formule utilisable avec un WorksheetFunction ou un Evaluate.

[goninph]

OK merci, mais le problème c'est que je n'ai pas de formule avec que le numéro de la semaine ...

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=TEXTE(U19;"mmmm aaaa") &" "& "Sem."&NO.SEMAINE(U19;21)

En supposant que cette formule est écrite dans la cellule A1, tu tapes dans la fenêtre d'exécution ? Range("A1").Formula et tu auras ta formule utilisable avec un WorksheetFunction ou un Evaluate.

[Menhir]

OK merci, mais le problème c'est que je n'ai pas de formule avec que le numéro de la semaine ...

Code formule :

Sélectionner tout - Visualiser dans une fenêtre à part

=TEXTE(U19;"mmmm aaaa") &" "& "Sem."&NO.SEMAINE(U19;21)

C'est une blague ???
Tu dis que tu n'as pas de formule et tu montres une formule à la ligne juste après...

[Pierre Fauconnier]

Tu ne sais pas lire ma réponse?

[Pierre Fauconnier]

Faut faire un effort, quand même, depuis le temps que tu poses des questions sur nos forums...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evaluate("isoweeknum(" & CLng(activecell.value) & ")")

Ou encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

application.isoweeknum(activecell.Value)

[goninph]

Désolé, mais je pose des questions pour apprendre et ne pas me tromper ou trouver la meilleure solution, je débute et c'est loin d'être simple.

Je confirme que j'ai enfin le bon numéro de semaine

Merci pour votre patience et votre temps
Salutations
Philipe

[Menhir]

Désolé, mais je pose des questions pour apprendre et ne pas me tromper

On pourrait te croire si tu passais plus de 10 min à étudier les propositions qui te sont faite avant de dire "je sais pas faire, faites-le pour moi".

[Pierre Fauconnier]

Désolé, mais je pose des questions pour apprendre[...]

C'est très bien. Il n'y a aucun soucis à cela. Mais tu as déjà un petit paquet de messages à ton actif, avec pas mal de code qui t'a été donné et parfois expliqué. Dans cette discussion, je t'ai montré une architecture pour t'expliquer comment écrire ton code, le découper en procédures petites et faciles à écrire, comprendre et tester. D'autres t'ont renseigné de la littérature sur DVP pour t'aider à progresser. Je pense qu'il faut que tu te penches sur les codes fournis et expliqués pour les comprendre et appréhender la syntaxe et le vocabulaire de VBA.

S'il te manque les bases, il y a un tuto qui ressemble plus à un bouquin qu'à un tuto qui explique le VBA...

[goninph]

Bonsoir,

Je remercie toutes les personnes qui me donnent un coup de main.

Concernant cette discussion, elle m'a beaucoup aidée et j'ai repensé mon projet grâce à vous. J'ai oublié de répondre.

J'ai beaucoup appris ces derniers mois et j'espère pouvoir en apprendre encore beaucoup et désolé si j'ai ouvert beaucoup de discussions

Ce forum est d'une qualité exceptionnelle.

Encore merci et bonne soirée
Philippe

[Pierre Fauconnier]

Merci pour ton appréciation de nos forums.

Bonne continuation dans le développement de tes projets (et n'hésite pas à poser des questions, mais aussi à essayer et tenter par toi-même )