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 :

addition en tenant compte de la date et du format personnalisé


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Inscrit en
    Novembre 2012
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations forums :
    Inscription : Novembre 2012
    Messages : 15
    Par défaut addition en tenant compte de la date et du format personnalisé
    Bonjour à tous

    Je vous remercie par avance de l'aide que vous voudrez bien m'apporter.

    Je fais un fichier excel dans lequel je dois calculer le stock en fonction de cellules dont le format personnalisé 'kg" ou "loc" s'active avec une case à cocher et en fonction des dates. J'ai essayé SOMMEPROD mais ça ne fonctionne pas.

    J'aimerais aussi faire une impression sur une page, même si la zone n'est pas contigüe ?

    Je joins un fichier pour une meilleure compréhension et j'espère que ce sera suffisamment clair pour que vous puissiez m'aidez.
    Merci
    Fichiers attachés Fichiers attachés

  2. #2
    Membre Expert Avatar de QuestVba
    Homme Profil pro
    Enseignant
    Inscrit en
    Juillet 2012
    Messages
    2 475
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 55
    Localisation : Belgique

    Informations professionnelles :
    Activité : Enseignant
    Secteur : Service public

    Informations forums :
    Inscription : Juillet 2012
    Messages : 2 475
    Par défaut
    Bonjour,

    Voici un début, tu devrais avoir le total de c18 à o18 en b18 en fonction du format

    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
    Sub Addition18()
    Dim c, som&, ad$, i As Byte
    c = Array(CheckBox1, CheckBox2, CheckBox3, CheckBox4, CheckBox5)
     
    Application.ScreenUpdating = False
    For i = 0 To 13
     
      If Cells(18, i + 3).NumberFormat = "#0 ""kg""" Then
           som = som + Cells(18, i + 3).Value
      End If
     
    Next
    Range("B18").Value = som
     
    End Sub

  3. #3
    Membre averti
    Femme Profil pro
    Inscrit en
    Novembre 2012
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations forums :
    Inscription : Novembre 2012
    Messages : 15
    Par défaut
    Bien lu et tester la réponse.
    Super, ça répond parfaitement à ma question sur la ligne 18.

    Merci pour cette aide,
    reste la ligne 17 avec l'addition avec les 2 critères de format et de date
    et puis l'impression sur une seule page quand la zone d'impression n'est pas contigüe

    Bonne journée
    Merci d'avance.

  4. #4
    Expert confirmé
    Avatar de Didier Gonard
    Homme Profil pro
    Formateur Office et développeur VBA en freelance
    Inscrit en
    Février 2008
    Messages
    2 805
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Formateur Office et développeur VBA en freelance

    Informations forums :
    Inscription : Février 2008
    Messages : 2 805
    Par défaut
    Citation Envoyé par therese067117 Voir le message
    Merci pour cette aide,
    reste la ligne 17 avec l'addition avec les 2 critères de format et de date
    et puis l'impression sur une seule page quand la zone d'impression n'est pas contigüe

    Merci de lire Les règles :http://club.developpez.com/regles/

    1 seul sujet par fil

    cordialement,

    Didier

Discussions similaires

  1. [AC-2003] Calcul d'une nouvelle date en tenant compte des jours ferie
    Par Phil37 dans le forum VBA Access
    Réponses: 6
    Dernier message: 19/09/2013, 08h11
  2. Déplacement Date en tenant compte des FDS
    Par Beaudelicius dans le forum Langage SQL
    Réponses: 3
    Dernier message: 09/08/2012, 15h13
  3. Exprimer en where sur datetime ne tenant compte que de date
    Par olibara dans le forum MS SQL Server
    Réponses: 8
    Dernier message: 07/04/2010, 21h47
  4. Réponses: 6
    Dernier message: 20/02/2007, 10h54
  5. Réponses: 1
    Dernier message: 09/01/2007, 15h33

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