défusionner et garder la valeur dans toutes les cellules

baud95 · 2 Janvier 2010

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 · 3 Janvier 2010

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 :

Code:

[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 · 3 Janvier 2010

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

défusionner et garder la valeur dans toutes les cellules

baud95

XLDnaute Nouveau

ROGER2327

XLDnaute Barbatruc

baud95

XLDnaute Nouveau

Discussions similaires

défusionner et garder la valeur dans toutes les cellules

baud95

XLDnaute Nouveau

ROGER2327

XLDnaute Barbatruc

baud95

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency