macro effacer cellule

ccpapy · 28 Avril 2011

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 · 28 Avril 2011

Re : macro effacer cellule

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

Code:

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 :

Code:

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 · 28 Avril 2011

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 · 28 Avril 2011

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 .)

Code:

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 · 28 Avril 2011

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) :

Code:

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 · 29 Avril 2011

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)
à+

macro effacer cellule

ccpapy

XLDnaute Impliqué

Pièces jointes

david84

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

Fo_rum

XLDnaute Accro

david84

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

Discussions similaires

macro effacer cellule

ccpapy

XLDnaute Impliqué

Pièces jointes

david84

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

Fo_rum

XLDnaute Accro

david84

XLDnaute Barbatruc

ccpapy

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency