Re : Fusionner par 3 toutes les cellules de ligne 4 en partant de B4 à DN
Bonjour, Gilbert_RGI
La version 2 fonctionne en laissant un espace entre chaque cellules fusionnées, il ne devrait pas ne avoir.
J'Sub FUSIONNER_CELLULES()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
J' ai donc modifié le code de la manières suivante:
Sub FUSIONNER_CELLULES()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("Réalisation").Select
Range("B4:E4,F4:I4,J4:M4,N4:Q4,R4:U4,V4:Y4,Z4:AC4,AD4:AG4,AH4:AK4,AL4:AO4,AP4:AS4,AT4:AW4,AX4:BA4,BB4:BE4,BF4:BI4, _
BJ4:BM4,BN4:BQ4,BR4:BU4,BV4:BY4,BZ4:CC4,CD4:CG4,CH4:CX4,CL4:CO4,CP4:CS4,CT4:CW4,CX4
A4, _
DB4
E4,DF4
I4,DJ4
M4,DN4
Q4,DR4
U4,DV4
Y4,DZ4:EC4,ED4:EG4,EH4:EK4,EL4:EO4,EP4:ES4").Select
End Sub
Et j'ai un Bug.
je pense que le plus simple serait que toute la ligne 4 à partir de B4 fusionne par groupe de 4 cellules jusqu'à XFD4.
Merci d'avance.
Broch002