macro effacer cellule

[ccpapy]

bonsoir le forum
je veux imprimer un onglet Matrice avec une macro
l'onglet est caché, la macro rend bien visible l'onglet, deprotege bien,,,
mais le hic c'est que je ne comprend pas pourquoi les cellules ne se vident pas

merci pour votre aide ou (et) explication de mon erreur

 

[david84]

Re : macro effacer cellule

Bonsoir,
a tester (il faut défusionner les cellules fusionnées) :

Private Sub Imprimer_Click()
    With Sheets("Matrice")
        .Visible = True
        .Select
        .Unprotect
        .Range("D4,W4,E6,Z6").UnMerge
        .Range("D4,W4,E6,Z6").ClearContents
    End With
End Sub

Si tu veux fusionner à nouveau les cellules vidées :

Private Sub Imprimer_Click()
    With Sheets("Matrice")
        .Visible = True
        .Select
        .Unprotect
        .Range("D4,W4,E6,Z6").UnMerge
        .Range("D4,W4,E6,Z6").ClearContents
        .Range("D4:J4,E6:J6,W4:AB4,Z6:AE6").Merge
    End With
End Sub

A+

 

[ccpapy]

Re : macro effacer cellule

merci pour cette réponse rapide.
je confirme que les cellules fusionnées foutaient la pagaille et que ta solution fonctionne à merveille
bonne soirée

 

[Fo_rum]

Re : macro effacer cellule

Bonsoir,

la macro est écrite dans le module de la feuille "RECAP" donc Range est associé à cette feuille et non à "Matrice" !
Ou tu mets ton code dans un Module Standard ou tu le transformes ainsi (attention aux .)

Private Sub Imprimer_Click()
    With Sheets("Matrice")
          .Visible = True
          .Select
          .Unprotect
          .Range("D4:J4,W4:AB4,E6:J6,Z6:AE6").ClearContents
    End With
End Sub

 

[david84]

Re : macro effacer cellule

Re,
Effectivement Fo_rum, pas besoin de défusionner pour effacer si l'on veut refusionner ensuite😱.
Ci-joint code permettant de faire le travail en ne spécifiant que la cellule de gauche de la zone fusionnée (moins source d'erreur je pense, notamment si les différentes zones ne comportent pas le même nombre de cellules) :

Private Sub Imprimer_Click()
    With Sheets("Matrice")
    Set Plage = Application.Union(.[D4].MergeArea, .[W4].MergeArea, .[E6].MergeArea, .[Z6].MergeArea)
          .Visible = True
          .Select
          .Unprotect
    End With
    Plage.ClearContents
End Sub

A+

 

[ccpapy]

Re : macro effacer cellule

merci à tous
je n'ai que l'embarras du choix...
je vais donc poursuivre mon travail en espérant me débrouiller seul (pas si sur)
à+