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 :calim2: :calim2:, c'est vraiment urgent ??

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

Pièce jointe 349034

Bonjour,

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

Bonjour, bonjour !

Citation:

---

Envoyé par mounder mel

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, …

Citation:

---

Envoyé par mounder mel

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 ( :ccool: ), 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

Citation:

---

Envoyé par Menhir

D'accord avec Patrice ( :ccool: ), 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

Citation:

---

Envoyé par Marc-L

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 !!!! :koi:

je vois pas pourquoi vous me dites ca

merci pour la repense

Citation:

---

Envoyé par mounder mel

merci de lire les règles de ce forum !!!! :koi:
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.

Citation:

---

Envoyé par Menhir

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:

---

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

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é).

Citation:

---

Envoyé par Menhir

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é).

---

Merci pour la repense.
J'ai fais les changement mais je bloque toujours sur comment dire " Si y a pas de bordure inférieure alors " : les points d’interrogation dans le code

Code:

---

1 2 3 4 5 6 7 8

Sub marge() Worksheets("Feuil1").Activate For h = 1 To 21 If Range("Cells(h, 1)").Borders(xlEdgeBottom) ??????? then Range(Cells(h, 1), Cells(h + 1, 1)).Merge End If Next End Sub

---

Cordialement

Qu'il y ait une propriété LineStyle dans les membres de Border, ça ne t'interpelles pas ?

Citation:

---

Envoyé par Menhir

Qu'il y ait une propriété LineStyle dans les membres de Border, ça ne t'interpelles pas ?

---

Bonjour,
Merci beaucoup :D, mon programme fonctionne maintenant.
Peut être y a une autre solution mais c'est cela ce que j’ai réussi a faire :

Code:

---

1 2 3 4 5 6 7 8 9

Sub merge1() Worksheets("Feuil1").Activate For h = 1 To 35 If Cells(h, 5).Borders(xlEdgeBottom).LineStyle = xlContinuous Then ''''''''' Else: Range(Cells(h, 5), Cells(h + 1, 5)).merge End If Next End Sub

---

Bonne continuation

Citation:

---

Envoyé par mounder mel

Code:

---

1 2 3 4

If Cells(h, 5).Borders(xlEdgeBottom).LineStyle = xlContinuous Then ''''''''' Else: Range(Cells(h, 5), Cells(h + 1, 5)).merge End If

---

---

Un premier truc : au lieu de mettre un If vide suivi d'un Else (ce qui est vraiment cracra en code), mets un Not devant la condition du If ou change ton = en <>.

Mais il serait encore plus propre d'écrire

Code:

---

1 2 3

If Cells(h, 5).Borders(xlEdgeBottom).LineStyle = xlLineStyleNone Then Range(Cells(h, 5), Cells(h + 1, 5)).merge End If

---

Comme ça, même si tu décides de mettre d'autres types de traits comme séparation, ça fonctionnera.

Citation:

---

Envoyé par Menhir

Comme ça, même si tu décides de mettre d'autres types de traits comme séparation, ça fonctionnera.

---

Parfait, merci pour tout Menhir.