Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1463 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Probleme VBA

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Probleme VBA

n°1756725
ndbdr
Posté le 08-07-2008 à 10:27:01  profilanswer
 

Bonjour... Je fais appel à vote aide car je n'arriev pas à résoudre un probleme que j'ai avec une macro... je ne suis pas un expert dans la matiere...
 
Donc, j'ai un fichier Excell avec en 1ere colone des dates, en 4eme un nom. En fait, chaque fois qu'un article apparait pour un de mes clients, je met la date, le nom du média dans lequel l'article est apparu, etc.
 
Ce dont j'ai besoin poru ma macro, c'est de remplir un tableau comme suit:
 
Médias              Dec 06                 Jan 07               Fev 07              Mars 07     ....
 
Média n1                X                          Y                 Z                    A          
 
Média n2             J                           K                      L                       M
 
...
 
ou x, y, z, a, j, k, l, m représentent le nombre d'articles apparus pendant ce mois la dans tel média.
 
Donc, comme macro, je me suis dit que j'allais procéder comme suit:
Voir la 1ere colone, la ou on est entre le 01/12/2006 et le 31/12/2006 -  voir la 5eme colonne ou c'est mis Média n1 (dans ma macro, ce média s'appel Metro) et compabiliser le tout (X) et mettre ce chiffre (X) dans la case qu'il faut (pour ma macro, faut mettre ca dns la case U7).
Ensuite, voir la 1ere colone, voir les dates entre 01/01/2007 et 31/01/2007 - voir ou c'est marqué Média n1, et comptabiliser le tout (Y) et marquer ca dans la case V7).
etc. pour tous les mois.
Pour tous les médias.......
 
Je sais, c'est long, probablement pas la meilleur facon de procéder... Mais je ne connais pas d'autre moyen. C'est pour cela que je viens demander l'aide des experts :-).
Voici une copie de ma macro:
 
Option Explicit
 
Sub count()
 
Dim metrodec As Double
Dim businessictdec As Double
Dim nom As String
Dim ligne As Double
Dim day As Date
Dim datedeb As Date
Dim datefin As Date
 
 
 
metrodec = 0
businessictdec = 0
 
nom = "Cells(ligne, 5).Value"
day = "Cells(ligne, 1).Value"
datedeb = "Cells(7,18).Value"
datefin = "Cells(8,18).Value"
 
ligne = 7
 
     
While (nom <> "End" )
 
 
 
If (nom = "De Tijd" And day > datedeb And day < datefin) Then
metrodec = metrodec + 1
 
ElseIf (nom = "Business ICT" And day > datedeb And day < datefin) Then
 
businessictdec = businessictdec + 1
 
 
End If
 
 
ligne = ligne + 1
 
nom = Cells(ligne, 5).Value
day = Cells(ligne, 1).Value
 
Cells(7, 21).Value = metrodec
Cells(9, 21).Value = businessictdec
 
 
Wend
End Sub
 
 
 
Merci poru votre aide!!!

mood
Publicité
Posté le 08-07-2008 à 10:27:01  profilanswer
 

n°1756752
86vomito33
Posté le 08-07-2008 à 11:14:10  profilanswer
 

bonjour,
 
set un petit tableau croise dynamique ca ne ferait pas l'affaire ?

n°1756754
ndbdr
Posté le 08-07-2008 à 11:25:15  profilanswer
 

En gros, toutes mes connaissances VBA sont dans ma macro :p. Comment faire pour le tableau croise dynamique svp?

n°1756758
86vomito33
Posté le 08-07-2008 à 11:27:38  profilanswer
 

voir ce site (par exemple)
 
http://www.lecompagnon.info/excel/ [...] cdcreation
 
il ne sagit pas de VBA mais dune fonctionalite dexcel


Message édité par 86vomito33 le 08-07-2008 à 11:28:56
n°1756938
ndbdr
Posté le 08-07-2008 à 15:53:41  profilanswer
 

Merci!!! J'ai réussi :D.


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Probleme VBA

 

Sujets relatifs
VBA problème de saisie dans Textbox[VBA] Probleme sur une macro
[VBA] Problème de calcul d'une maturité pour un pricer d'optionProblème d'ouverture de formulaire en VBA sous Access 2007
Problème code VBA jauge verticaleProbleme requete VBA
Problème sauvegarde envoi de mails Lotus Notes dans macro VBAVBA Excel, problème de filtre avec valeurs décimales
Problème boucle de recherche sous VBA sur Excel 
Plus de sujets relatifs à : Probleme VBA


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR