défusionner et garder la valeur dans toutes les cellules

[baud95]

Bonjour à vous tous et bonne année,


Petite question de débutant :

Est il possible de défusionner une zone de cellule avec une valeur et d'affecter la valeur de la zone fusionnée dans toutes les cellules défusionnées?

je sais pas si je suis très clair mais bon je tente

merci d'avance
bonne nuit

David

 

[ROGER2327]

Re : défusionner et garder la valeur dans toutes les cellules

Bonjour à tous

S'il s'agit des lignes impaires de la plage C9:AG200 :

[COLOR="DarkSlateGray"][B]Sub toto()
Dim oLig As Range, oCel As Range
   For Each oLig In Range("C9:AG200").Rows
      If oLig.Row Mod 2 Then
         For Each oCel In oLig.Cells
            If oCel.MergeArea.Count > 1 Then
               With oCel.MergeArea.Cells
                  oCel.UnMerge
                  .Value = oCel.Value
               End With
            End If
         Next oCel
      End If
   Next oLig
End Sub[/B][/COLOR]

ROGER2327
#2525

 

[baud95]

Re : défusionner et garder la valeur dans toutes les cellules

moi j 'ai mis ça et ça marche tres bien

Dim I As Byte
For Each Cel In Range("C10:BL150")
If Cel.MergeCells And Cel.Row Mod 2 = 0 Then
I = Cel.MergeArea.Cells.Count
Cel.UnMerge
Cel.Resize(1, I).Value = Cel.Value
End If
Next Cel


merci à vous tous pour votre aide

Cordialement
David