Sujet Précédent Sujet Suivant

Fusionner des cellules VBA excel

Fermé
FM38 - 23 mai 2011 à 16:46
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 23 mai 2011 à 17:02
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

1 réponse

Réponse 1 / 1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 mai 2011 à 17:02
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"
0