IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Compter le nombres de cellules différentes d'une colonne en fonction de date


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Nouveau candidat au Club
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Mai 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2013
    Messages : 2
    Par défaut Compter le nombres de cellules différentes d'une colonne en fonction de date
    Bonjour à tous

    Je vous demande un peu d'aide
    J'ai un tableau de ce type :

    N° demande: Date
    c0001 01/01/2013
    c0002 01/01/2013
    c0001 01/01/2013
    c0003 01/02/2013
    c0004 01/03/2013
    c0005 01/01/2013
    c0002 01/01/2013

    Je souhaiterais afficher dans un autre tableau le nombre de demande par mois :
    janv 13 fev 13 mar 13
    3 1 1

    pouvez vous m'aidez s'il vous plait

  2. #2
    Membre confirmé
    Homme Profil pro
    Étudiant
    Inscrit en
    Août 2013
    Messages
    86
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Août 2013
    Messages : 86
    Par défaut
    Holà,

    Perso j'partirais sur une boucle qui check la valeur de ta colonne "date" et qui incrementera ta colonne contenant le nb de demande.
    Un peu sous cette forme

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
    Sub test()
    Dim j As Long
    Dim lastrow As Long
     
    lastrow = Range("A" & Rows.Count).End(xlUp).Row 'va chercher la derniere ligne non vide de ton tableau
     
    For j = 2 To lastrow 'à la place du 2, tu met la première ligne avec une variable a checker
        If (Cells(j, "B").Value = "01/01/2013") Then 'remplace B par la colonne à verifier
            Cells(2, "C").Value = Cells(2, "C").Value + 1 'remplace C par la colonne janvier 2013 ( pour l'exemple)
        Else If ' tu check une autre date etc
     
        End If
     
    Next j
     
    End Sub
    J'ai fait dans le cas où tes colonnes jan 13 etc sont dans le même fichier, sur la même feuille. Si ce n'est pas le cas, il faut le préciser :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Workbooks.Open("nomdufichier").Sheets("nomdelafeuille").cells(2,"C").value

  3. #3
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 176
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 176
    Billets dans le blog
    53
    Par défaut
    Bonjour,
    A moins que ce ne soit absolument indispensable, je ne vois pas l'intérêt d'utiliser un code VBA pour faire cela. Une simple formule Excel suffit
    En E1 la date 01/01/2013 (au format personnalisé mmm aa) et ensuite copie des autres mois vers la droite
    En B2:B8 les dates
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    =SOMMEPROD( (MOIS(E$1)=MOIS($B$2:$B$8)) * (ANNEE(E$1)=ANNEE($B$2:$B$8)) * 1)
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

  4. #4
    Nouveau candidat au Club
    Homme Profil pro
    Ingénieur qualité méthodes
    Inscrit en
    Mai 2013
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur qualité méthodes
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2013
    Messages : 2
    Par défaut
    Merci pour cette réponse.

    Je souhaite que le code ne compte pas les doublons et que il vienne plutot rechercher le mois en cours qu'une date car derrière je regroupe par mois.

    Ca m'eviterais de faire 355 else if en plus...

    Merci d'avance

    Merci Philippe

    Mais Bonus j'avais une troisième colonne avec des champs vides ou Oui ; et là la formule somme prod ne fonctionnait pas.

  5. #5
    Rédacteur
    Avatar de Philippe Tulliez
    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    Janvier 2010
    Messages
    13 176
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : Janvier 2010
    Messages : 13 176
    Billets dans le blog
    53
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Mon dernier billet : Utilisation de la fonction Dir en VBA pour vérifier l'existence d'un fichier

Discussions similaires

  1. [XL-2010] Compter le nombre de noms différents dans une colonne
    Par mcog2 dans le forum Macros et VBA Excel
    Réponses: 10
    Dernier message: 02/12/2015, 08h34
  2. Compter le nombre de cellules identiques d'une colonne sur un msflexgrid
    Par GRIMPMASTER dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 29/07/2014, 23h46
  3. [XL-2007] Compter le nombre de valeurs différente dans une colonne
    Par Mist-e-Fire dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 30/04/2013, 09h01
  4. Réponses: 1
    Dernier message: 22/05/2012, 19h15
  5. Réponses: 19
    Dernier message: 31/05/2010, 09h51

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo