Fision de celulles automatique

[Jacky]

Bonjour a tous
Je voudrais fusionner des cellules 4 par 4 sur toute la ligne 1, comment faire ca en quelque cliques et non et non en manuel cellule par cellule
Merci par avance

 

[PascalXLD]

Bonjour

Une petite macro pour le faire

Sub fusioncell()
Dim x As Integer
For x = 1 To 256 Step 4
Range(Cells(1, x), Cells(1, x + 3)).Merge
Next
End Sub


Bon courage

 

[Jacky]

Re:Fusion de celulles automatique

Merci Pascal
Peux tu me dire ou je dois mettre ta macro stp car je ne suis pas un pro d'excel

Merci pascal

 

[PascalXLD]

Re:Fusion de celulles automatique

Bonjour

Tu ouvres VBE en faisant alt F11

puis dans la liste à gauche de tes projets tu cherches le nom du classeur

Tu fais un clic droit et tu ajoutes un module

Puis tu colles la macro dans le module

Tu n'as plus qu'à la lancer en faisant outils> macro et prendre le nom de la macro

Bonne journée

 

[Jacky]

Re:Fusion de celulles automatique

Merci pascal tout marche au poil
C'est très sympa de ta part
Bon clavier
Jacky