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 :

Fusionner des cellules si y a pas de bordure entre elles en utilisant une macro (VBA) [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Service public

    Informations forums :
    Inscription : Février 2018
    Messages : 7
    Par défaut Fusionner des cellules si y a pas de bordure entre elles en utilisant une macro (VBA)
    Bonjour,

    j'ai envie de créer une macro qui me permet de fusionner les cellules d'une colonne qui n'ont pas de bordure entre elles, mais j'ai pas trouver de piste en cherchant sur le net.
    pourriez-vous m'aider Svp , c'est vraiment urgent ??

    ci-joint un exemple de cellules que je veux fusionner :

    Nom : Capture.PNG
Affichages : 398
Taille : 3,8 Ko

  2. #2
    Expert confirmé Avatar de Patrice740
    Homme Profil pro
    Retraité
    Inscrit en
    Mars 2007
    Messages
    2 478
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 71
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Aéronautique - Marine - Espace - Armement

    Informations forums :
    Inscription : Mars 2007
    Messages : 2 478
    Par défaut
    Bonjour,

    Avec Excel, fusionner des cellules, c'est toujours une mauvaise idée !
    Et c'est rarement utile ...

  3. #3
    Expert éminent
    Avatar de Marc-L
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Avril 2013
    Messages
    9 468
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Hauts de Seine (Île de France)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : Avril 2013
    Messages : 9 468
    Par défaut
    Bonjour, bonjour !

    Citation Envoyé par mounder mel Voir le message
    c'est vraiment urgent
    Alors si c'est tellement urgent il suffit pourtant juste d'activer l'Enregistreur de macro et d'opérer manuellement :
    une base de code est livrée sur un plateau ‼

    Et merci d'enfin lire les règles de ce forum …

    Voilà, voilà !

    ___________________________________________________________________________________________________________
    Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

  4. #4
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Service public

    Informations forums :
    Inscription : Février 2018
    Messages : 7
    Par défaut
    Citation Envoyé par Marc-L Voir le message
    Bonjour, bonjour !

    Alors si c'est tellement urgent il suffit pourtant juste d'activer l'Enregistreur de macro et d'opérer manuellement :
    une base de code est livrée sur un plateau ‼

    Et merci d'enfin lire les règles de ce forum …

    Voilà, voilà !

    ___________________________________________________________________________________________________________
    Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
    merci de lire les règles de ce forum !!!!

    je vois pas pourquoi vous me dites ca

    merci pour la repense

  5. #5
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par mounder mel Voir le message
    merci de lire les règles de ce forum !!!!
    je vois pas pourquoi vous me dites ca
    Parce que sur ce forum, il est apprécié que le demandeur montre qu'il a fait l'effort de chercher au préalable par lui-même en montrant ce qu'il a essayé (même si c'est infructueux).
    http://club.developpez.com/regles/#LIV-N

    Il est aussi peu apprécié qu'un demandeur précise que sa demande est "urgente", comme si on lui devait un temps de réponse.
    Ce forum n'est pas un SAV et ses participants ne sont pas des employés.
    D'autant plus que, la plupart du temps, l'urgence en question n'est que le symptôme d'un retard dû au demandeur.

  6. #6
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Service public

    Informations forums :
    Inscription : Février 2018
    Messages : 7
    Par défaut
    Citation Envoyé par Menhir Voir le message
    Parce que sur ce forum, il est apprécié que le demandeur montre qu'il a fait l'effort de chercher au préalable par lui-même en montrant ce qu'il a essayé (même si c'est infructueux).
    http://club.developpez.com/regles/#LIV-N

    Il est aussi peu apprécié qu'un demandeur précise que sa demande est "urgente", comme si on lui devait un temps de réponse.
    Ce forum n'est pas un SAV et ses participants ne sont pas des employés.
    D'autant plus que, la plupart du temps, l'urgence en question n'est que le symptôme d'un retard dû au demandeur.
    Bonjour M. Menhir,
    je vous assure que j'ai passer la journée d'hier a chercher une solution pour mon problème mais j’ai échoué, d’ailleurs je viens juste d’essayer votre proposition mais ça marche toujours pas.
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     Sub marge()
     Worksheets("Feuil1").Activate
       For h = 1 To 21
          If Feuil1.Range("Feuil1.Cells(h, 1)").Borders(xlEdgeBottom) = False Then
            Feuil1.Range(Feuil1.Cells(h, 1), Feuil1.Cells(h + 1, 1)).MergeCells = True
          End If
        Next
    End Sub
    je vois pas ou est le problème, j’ai un message erreur d'exécution '1004': " la méthode 'range' de l'objet'_Worksheet a échoué "

    PS: je suis débutant programmation.

    Cordialement

  7. #7
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Commence par supprimer les Feuil1 des lignes 4 et 5.
    Merge est une méthode, pas une propriété. On ne peut donc pas lui assigner une valeur. Elle fait une action (voir l'aide dans le lien que j'ai donnée).
    Border est un objet, pas une valeur booléenne. On ne peut donc pas la comparer à False (voir l'aide dans le lien que j'ai donné).

  8. #8
    Expert éminent Avatar de Menhir
    Homme Profil pro
    Ingénieur
    Inscrit en
    Juin 2007
    Messages
    16 037
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : Ingénieur
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 16 037
    Par défaut
    Citation Envoyé par mounder mel Voir le message
    j'ai envie de créer une macro qui me permet de fusionner les cellules d'une colonne qui n'ont pas de bordure entre elles, mais j'ai pas trouver de piste en cherchant sur le net.
    D'accord avec Patrice ( ), c'est une mauvaise idée.

    Cela dit, si tu veux persister sur cette mauvaise voie, tu fais une boucle For Each sur l'ensemble des cellules de la zone.
    Pour chacune, tu vérifies si elle a une bordure supérieure avec sa propriété Borders(xlEdgeTop)
    https://msdn.microsoft.com/fr-fr/lib.../ff822605.aspx
    https://msdn.microsoft.com/fr-fr/VBA...s-object-excel
    Si c'est le cas, tu la fusionnes avec celle du dessus avec la méthode Merge.
    https://msdn.microsoft.com/fr-fr/lib.../ff840729.aspx

  9. #9
    Membre régulier
    Homme Profil pro
    Étudiant
    Inscrit en
    Février 2018
    Messages
    7
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 32
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Étudiant
    Secteur : Service public

    Informations forums :
    Inscription : Février 2018
    Messages : 7
    Par défaut
    Citation Envoyé par Menhir Voir le message
    D'accord avec Patrice ( ), c'est une mauvaise idée.

    Cela dit, si tu veux persister sur cette mauvaise voie, tu fais une boucle For Each sur l'ensemble des cellules de la zone.
    Pour chacune, tu vérifies si elle a une bordure supérieure avec sa propriété Borders(xlEdgeTop)
    https://msdn.microsoft.com/fr-fr/lib.../ff822605.aspx
    https://msdn.microsoft.com/fr-fr/VBA...s-object-excel
    Si c'est le cas, tu la fusionnes avec celle du dessus avec la méthode Merge.
    https://msdn.microsoft.com/fr-fr/lib.../ff840729.aspx
    Merci beaucoup pour votre repense, je vais essayer de faire cela en espérant que ça va marcher

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

Discussions similaires

  1. poi excel : fusionner des cellules
    Par don'de dans le forum Documents
    Réponses: 1
    Dernier message: 07/03/2007, 16h04
  2. [C# 1.1] Comment fusionner des cellules dans un datagrid ?
    Par absolute_beginner dans le forum ASP.NET
    Réponses: 5
    Dernier message: 09/11/2006, 16h45
  3. Php et Excel - Fusionner des cellules
    Par krolineeee dans le forum Langage
    Réponses: 1
    Dernier message: 08/08/2006, 10h37
  4. [JTable] Fusionner des cellules
    Par Rimk78 dans le forum Composants
    Réponses: 2
    Dernier message: 13/05/2005, 15h53
  5. [] [Excel] Fusionner des cellules
    Par SamyD dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 13/12/2002, 18h37

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