VBA/Excel

Question

Bonjour,

J'aimerais avoir votre avis sur un petit programme qui m'embête un peu.
Voilà, j'ai un classeur nommé Suivi_prod dans lequel figure un tableau.
Je dois remplir ce tableau en me servant d'autres classeurs.
Notamment un nommé "Suivi des stocks".
Celui-ci présente une colonne date en B du Lundi au vendredi.
Je dois recuperer des données contenant dans une autre colonne en D.
Cela dit je dois recupérer les données compris entre Lundi et Vendredi uniquement.
Et si la date actuelle est un Mardi par exemple, il doit me generer la somme des valeurs du Lundi au vendredi précédant.
Si quelqu'un peut m'éclairer pour savoir comment m'y prendre ca serait sympa.

EnjoY · Answer

salut, 

tu as essaye d'enregistrer ta macro manuelement ? tu cliques sur enregistrer macro, tu fais tes etapes à la souris et après tu arretes l'enregitrement , ca te génére automatiquement du code. c'est pratique pour les debutants comme moi .

PleaseCallMe · Answer

Je vais essayer merci d'avance.

PleaseCallMe · Answer

La macro manuellement marche à merveille cela dit, je n'ai aucune idée comment je peux faire pour le résultats se fasse en fonction de la date.
Si on est mardi, alors il fait la somme de la semaine précédante, je bloque sur ce problème!
Si quelqu'un peut me donner une piste ça serait pas de refus!

Polux31 · Answer

Bonjour,

Peux tu mettre ici la macro que tu as généré.

Tu dis : Si on est mardi, alors il fait la somme de la semaine précédante ... que fait-on dans les autres cas ?

;o)

PleaseCallMe · Answer

Sub Contrats_Semaine()

Application.Workbooks.Open "C:\chemin\Suivi des stocks et des flux Année 2008.xls"

' Contrats Semaine
Windows("Suivi_prod_V29.xls").Activate
Range("F7").Select
ActiveCell.FormulaR1C1 = _
        "=SUM('[Suivi des stocks et des flux Année 2008.xls]Juillet'!R11C4:R15C4)"
Range("F8").Select

Workbooks("Suivi des stocks et des flux Année 2008.xls").Activate
ActiveWorkbook.Close False

End Sub 

Mais je voudrais qu'il fasse la somme par rapport à la date qu'on est.
En gros il fait la somme, lorsque la semaine est terminé, si le vendredi est passé, alors il fait la somme de la semaine passée. Sachant que dans une semaine ça va du Lundi au Vendredi.
A chaque fois il genere les résultats de la semaine précédante.

Polux31 · Answer

tu veux faire le calcul lorsque tu ouvres le classeur ?

PleaseCallMe · Answer

Le problème ne vient pas du calcul mais simplement par rapport à la date.
Pour qu'il puisse me calculer la somme d'une semaine lorsque celle ci est complète, c'est difficile à expliquer ^^

Polux31 · Answer

Je vois à peu près ce que tu veux mais également difficile à expliquer ... dans l'éditeur VB, regarde dans l'aide (F1) en tapant Date dans recherche.

Si tu rencontres des difficultés, reviens ici

;o)

lermite222 · Answer

Bonjour tous,
Une petite explication, je vois que tu a tes feuilles qui sont nommées par mois ?
Quand le mois commence, par ex: par mercredi, que doit-tu faire.
Et idem pour la fin du mois.
Chercher des données dans mois précédant ?
A+

PleaseCallMe · Answer

Si le mois commencent un mercredi je dois prendre le lundi du mois précedant et faire la somme.
Idem pour la fin du mois!
Je vois pas du tout comment procéder!
Merci de votre aide en tout cas, si vous avez d'autres idées à proposer ^^

PleaseCallMe · Answer

On considère que le modèle des fichiers Excel transmis en exemple ne changera pas, seul le nombre de ligne d’un onglet de fichier à un autre est amené à varier.

La génération de rapport se faisant d’une semaine à l’autre l’application devra par exemple en semaine 30 générer le rapport de la semaine 29 et non celle en cours.

La première chose à faire est donc de déterminer les limites incluses de la semaine passée (la fonction DayOfWeek(ddate As Date) devrait vous être utile pour déterminer le lundi de la semaine passée).

La première donnée à déterminer sera le nombre de dossiers reçus dans la semaine passée, pour cela il vous faudra d’abord créer un lien OLE vers le fichier choisit par l’utilisateur.
Au sein de ce fichier il vous faudra déterminer l’onglet concernant votre semaine en cours, pour cela je vous conseille de commencer à la feuille d’index 0 du fichier Excel, de tester la valeur du mois de la ligne 13 colonne B afin de déterminer à quel mois cet onglet correspond et vous positionner sur le bon onglet.
Une fois l’onglet déterminé il ne vous reste plus qu’à vous positionner à la ligne appropriée pour commencer le comptage (attention une semaine peut être à cheval sur deux mois).

Voila quelques infos que m'a donné mon chef de projet si jamais ça peut vous éclairer un minimum!

lermite222 · Answer

On considère que le modèle des fichiers Excel transmis en exemple ne changera pas
j'ai pas vu ce  fichiers Excel transmis  ? où est-il

PleaseCallMe · Answer

J'ai pas de lien pour founir le tableau mais en gros y'a une colonne "Date"
Avec chaque jour du Lundi au Vendredi, et une autre colonne avec les données que je veux récupérer par rapport à ces dates!

PleaseCallMe · Answer

Hm j'ai a peu près trouver comment faire!
Il me manque qu'un petit truc 
J'aimerais savoir comment on peut faire pour récupérer le Lundi d'une semaine à partir du Numéro de Semaine et de l'Année!
Merci d'avance

lermite222 · Answer

MyDate = "5/08/2008"

a = Weekday(MyDate, vbMonday) '=2 si c'est mardi
'La ligne de lundi = ta ligne - a + 1

PleaseCallMe · Answer

Une dernière petite question 
Avec le numéro du jour le numéro de la semaine et l'année
Comment on met la date sous le format jj/mm/aaaa

Merci de ton aide en tout cas!

lermite222 · Answer

Format(MyDate,"jjmmaa")
si Anglais
Format(MyDate,"ddmmyy")

PleaseCallMe · Answer

Hm ouais je vois.
Il me manque un tout petit truc pour faire ceci
Vu que le jour je l'ai en 1/2/3/4/5/6/7 que je le transforme en Lundi etc..
Mais avec le numéro de la semaine je dois être capable de retrouver le jour exact : par exemple si on est le 17 !

lermite222 · Answer

a = Format(MyDate, "dddd mm/yyyy")
si tu veux que le jour

a = Format(MyDate, "dddd")

PleaseCallMe · Answer

Ca marche mais c'est pas ça que je veux!
En gros je veux qu'à partir du jour c'est-a-dire un Lundi par exemple ET avec le numéro de la semaine retrouvé la date exacte (en combinant Numéro de la Semaine ET Jour)
Peu importe sur le jeu est en lettre ou en chaine de caractères!

lermite222 · Answer

cque tu veux, cque tu veux... cque tu voudrais je suppose.
Tu pourrais pas expliquer DIRECTEMENT cque tu VOUDRAIS ???????
parce que comme ça ont peu encore tourner en rond jusqu'à la Saint GlinGlin.

Y a pas de fonction VBA qui fait cela, faut calculer à partir d'une date
comment tu a trouver le N° de semaine ?

Anonyme · Answer

Bonjour

J'avais cela sous le coude si ça peut vous servir dans votre *programme* :
Opérations simples sur les timestamp et les dates :
http://www.konqi.fr/ts.php (Par 'Yoan' ; Modo & Contrib CCM)

Merci

PleaseCallMe · Answer

J'ai crée une fonction qui me permet d'avoir le numéro de la semaine!
En gros je pars de la Date d'aujourd'hui ! C'est-a-dire la Semaine 32
Il me faut des résultats de la semaine passée! Donc je me retrouve à la semaine 31!
Ensuite faut que je recupere le Lundi de cette fameuse Semaine 31 !
D'où pourquoi je dois transformer les 1/2/3/4/5/6/7 par une vraie date sous la forme jj/mm/aaaa
Donc j'ai le "Jour" Le numéro semaine et l'année
Il me semble que c'est possible de trouver la date sous la bonne forme!

Anonyme · Answer

Bonjour ; si cela peut vous servir,


J'aimerais savoir comment on peut faire pour récupérer le Lundi d'une semaine à partir du Numéro de Semaine et de l'Année !

function SemaineStamp($n_semaine, $annee)
{
        // 1er jour de l'année :
        $jour1 = mktime(0,0,0,1,1,$annee);
        $jour_retenu = $jour1;
        
        if(date("W", $jour1) == 1)
        {
                while(date("W", $jour1) == 1)
                {
                        $jour_retenu = $jour1;
                        $jour1 -= 86400;
                }
        }
        else
        {
                while(date("W", $jour1) != 1)
                {                        
                        $jour1 += 86400;
                }
                $jour_retenu = $jour1;
        }        
        return $jour_retenu + (604800 * ($n_semaine - 1));
}

Source : https://www.developpez.net/forums/d258171/php/langage/dates-numero-semaine-vers-timestamp/

(Par 'gloubi' : Modérateur : Titre sujet '[Dates] Numéro de semaine vers timestamp')


Merci à tous

lermite222 · Answer

Montre ta macro qui calcule la semaine

eriiic · Answer

Bonjour,

pourquoi s'embeter à passer par le n° de semaine pour avoir le lundi de la semaine précédente ????
Pars de la date d'aujourd'hui et :
lundi = Date - Weekday(Date, vbUseSystemDayOfWeek) - 6

eric

PleaseCallMe · Answer

J'ai peut-être compliqué le truc, je testerai demain si ça fonctionne
Merci de vos réponses!

Anonyme · Answer

Bonjour ; astuce / remarque / prévoyance,

Pourquoi s'embêter à passer par le n° de semaine ? Pour le lundi qui précède ?

Le calcul peut ainsi être fait sur n'importe quelle semaine ;))
Et pas que sur la semaine qui précède.

Quoi faire si l'ordinateur était éteint pendant 1 mois ou plus ?
Souplesse dans l'algorithme.

Merci à vous ; (votre aide est utile car je ne sais pas tout et pas tout bien)

Anonyme · Answer

Bonjour PleaseCallMe,

Est-ce que vous devez conserver les données pour chaque semaine ?
Quid des données saisies dans 1 mois ou plus couvrant 4 semaines (pour 1 mois) + ou - ?

((pour 1 mois) + ou - car 1 mois n'est pas égale exactement à 4 semaines)

Est-ce que vous devez faire un document final que vous conservez chaque semaine ou est-il remplacé ?

(Le truc du lundi au vendredi de la semaine précédente si on est le mardi)

Merci (J'ai bien lu le message précédant d'eriiic #34)

PleaseCallMe · Answer

Je dois recuperer des valeurs d'une feuille, appelons là "X" qui s'étale sur un mois avec toutes les dates du 1er au 31 sauf les Samedis et Dimanche (Colonne B).
Je dois ensuite sous un autre classeur recupérer semaine par semaine les valeurs d'une autre colonne (D) de "X".
Ce calcul se fait par rapport à la date du jour que l'on est.
Ensuite par rapport à ce jour je dois generer les résultats de la semaine précédante.

Donc mon idée était de retrouver grâce à une formule le Lundi de la semaine précédante.
A partir de ce "Lundi précédant" parcourir jusqu'au Vendredi de cette même semaine précédante et prendre les valeurs de la colonne D!
Je pense que c'est une bonne méthode.
Cela dit, les résultats d'une semaine peuvent être à cheval sur deux feuilles vu qu'une feuille équivaut à un mois!

C'est assez tordu à faire, et c'est tout aussi difficile à expliquer!

VBA/Excel

30 réponses

Newsletters