Trame

[AnneSophie]

Bonjour,

j'ai actuellement une macro qui me vide automatiquement les cellules non bloquée.

Sub Bouton88_QuandClic()

Dim c As Range, d As Range
For Each c In ActiveSheet.UsedRange
For Each d In c.MergeArea
If d.Locked = False Then d.Value = ""
Next d
Next c

End Sub


Comment pourrais-je modifier cette macro pour pouvoir après avoir vider les cellules remplacer certaine par une "trame déjà faite" (par exemple par la feuille 2 du classeur); mais uniquement pour les cellules non bloquées.

Merci

Bonne Journée

 

[tototiti2008]

Re : Trame

Bonjour Anne-Sophie,

Peut-être

Sub Bouton88_QuandClic()

Dim c As Range, d As Range
For Each c In ActiveSheet.UsedRange
    For Each d In c.MergeArea
        If d.Locked = False Then d.Value = Sheets("Feuil2").range(d.address).value
    Next d
Next c

End Sub