Fusionner des cellules VBA excel Fermé

Question

Bonjour à tous, 

J'aimerai fusionner des cellules en VBA suite à une condition. voici mon code:
ThisWorkbook.Sheets("feuille2").Activate
With Sheets("feuille2").Cells
Set celluletrouvee = Range("A1:A50").Find("telephone", lookat:=xlWhole)
Set celluletrouvee1 = celluletrouvee.Offset(0, 1)
Range(celluletrouvee, celluletrouvee1).Merge
End With

Mon code fonctionne une seule fois car ensuite il me donne des erreurs. Avez vous des idées?
J'espère avoir été à peu pret clair.

Merci bcp

Configuration: Windows XP / Internet Explorer 7.0

michel_m · Answer

Bonjour, 
Il est fort déconseillé d'utiliser des cellules fusionnées  car génant considérablement le fonctionnement d'excel comme les tris par ex.!

Si tu veux écrire une donnée + large que la largeur de colonne, utilise l'alignement centrée sur plusieurs colonnes

dans ton cas:
Range(celluletrouvee, celluletrouvee1).HorizontalAlignment = xlCenterAcrossSelection

autre petit pont: si "téléphone" se trouve en A1, il  sera ignoré avec la fonction "find"

Fusionner des cellules VBA excel

1 réponse

Discussions similaires