Fusionner des cellules VBA excel
FM38
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
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
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
-
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"
