XL 2013 Défusionner des cellule excel et les remplir par des textes spécifiques

[draydi]

Bonjour à tous j'aimerai bien avoir une macro avec laquelle je peux balayer une plage dans feuille excel, compter le nombre des cellules fusionnées,colorier les cellule fusionner.
Défusionner les cellules.
Ecrire des données comme suit :
Les cellule de la même ligne reçoit yi et en colonner yi+1.

merci.

 

[mapomme]

Bonjour @draydi, bienvenue sur XLD ,

Essayez le code suivant à mettre dans un module VBA:

Sub Test()
Dim Plage, xcell, x

   On Error Resume Next
   Set Plage = Application.InputBox(prompt:="Sélectionner la plage des données, svp...", Type:=8)
   If Plage Is Nothing Then MsgBox "Erreur dans la saisie de la plage", vbInformation: Exit Sub
   On Error GoTo 0: Application.ScreenUpdating = False
   For Each xcell In Plage
      Set x = xcell.MergeArea
      If x.Address <> xcell.Address Then
         xcell.UnMerge
         x.Interior.Color = vbYellow
         x.Value = xcell.Value
      End If
   Next xcell
End Sub