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 des cellule fusionnées pour une seule cellule [XL-2016]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre habitué
    Homme Profil pro
    Enseignant
    Inscrit en
    Septembre 2017
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Septembre 2017
    Messages : 12
    Par défaut Compter des cellule fusionnées pour une seule cellule
    Bonsoir à tous,

    Je me tourne vers vous pour aider mon épouse. Celle-ci gère des enfants en situation de handicap. Le planning de la semaine est très visuel par l'utilisation des plages de couleur.
    Pour les personnes qui les prennent en charge (des Assistantes de Vie Scolaire), Il est nécessaire de connaitre le nombre d'heures qu'elles font.
    J'ai donc trouvé une formule pour comptabiliser le nombre de cellules d'une même couleur (comptecouleurfound2) qui correspond à une AVS.

    Problème: Quand l'AVS prend en charge 3 enfants sur la même plage horaire (dans ce cas, les cellules sont fusionnées), Excel compte 3 cellules, alors que je voudrais qu'il n'en compte qu'une.
    Pour compliquer le tout, ce "comptage" ne doit concerner que les lignes (cellules fusionnées horizontalement).
    Et pour couronner le tout, je ne suis pas un expert en informatique!

    Par avance, je vous remercie pour votre aide.

    caïman51

  2. #2
    Membre Expert
    Profil pro
    Inscrit en
    Février 2007
    Messages
    2 266
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Février 2007
    Messages : 2 266
    Par défaut
    Bonjour,

    proposition avec une fonction personnalisée :
    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
    Function nbFusion(plage As Range, vide As Boolean, Optional couleur As Variant) As Long
        ' compte le nombre de fusion, sur 1 ligne !
        Dim c As Range
        Application.Volatile
        'nbFusion = 0
        For Each c In plage
            If Split(c.MergeArea.Address, ":")(0) = c.Address Then
                If vide Or Not vide And c <> "" Then
                    If IsMissing(couleur) Then
                        nbFusion = nbFusion + 1
                    ElseIf c.Interior.Color = couleur.Interior.Color Then
                        nbFusion = nbFusion + 1
                    End If
                End If
            End If
        Next c
    End Function
    J'ai prévu différentes possibilités, s'il manque la tienne précise le besoin.
    eric

    Edit :
    Syntaxe :
    =nbFusion(plage, vide, [couleur])
    plage plage d'une ligne
    vide VRAI compter également les fusions vides, FAUX sinon
    couleur Optionnel, cellule ayant la couleur à compter
    Fichiers attachés Fichiers attachés

  3. #3
    Membre habitué
    Homme Profil pro
    Enseignant
    Inscrit en
    Septembre 2017
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Septembre 2017
    Messages : 12
    Par défaut
    Bonjour Eriiic,

    Merci pour votre réponse. Cela fonctionne mais trop bien!!!

    Peut-être ai-je mal exprimé mon problème. Je veux que sur les lignes les cellules fusionnées ne soient comptées que pour une, mais pas sur les fusions verticales.

    Cordialement,

    Caiman51

  4. #4
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    bonjour le crocro

    autrement dis par exemple la fusion de A1:C3 devra etre comptée comme 3 cellules puisque 3 lignes
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

  5. #5
    Membre habitué
    Homme Profil pro
    Enseignant
    Inscrit en
    Septembre 2017
    Messages
    12
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : Septembre 2017
    Messages : 12
    Par défaut
    Bonjour Patrick

    Tout à fait:

    A1:A3 une seule cellule

    B1:B4 4 cellules

    Cordialement,

  6. #6
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    RE
    heu.... relis toi SVP
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 25/08/2015, 09h41
  2. protéger une seule cellule qui contient une liste déroulante
    Par rihab92 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 27/02/2015, 11h15
  3. Réponses: 2
    Dernier message: 19/11/2010, 23h17
  4. [Toutes versions] Récupérer des valeurs dans une ligne dont une seule cellule est selectionnée
    Par Tommy57 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 07/02/2010, 20h37
  5. Réponses: 0
    Dernier message: 26/06/2009, 10h36

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