Vider cellules fusionnées sans effacer les formules

[chaelie2015]

Bonsoir Forum
ci dessous un code qui effacer les données dans une plage des cellules fusionnées ( 02 colonnes et 06 lignes ) et qui contient des formules, je souhaite vider les cellules sans effacer les formules.

Sub Vider_zone_taux_I11()
  [Zone_Taux_I11].Interior.Color = vbRed
  If MsgBox("Vous allez supprimer toutes les données de :" & vbLf & vbLf & [A10] & [B10] & [C10] & "   " & [D10] & vbLf & vbLf & "Poursuivre ?", vbYesNo, "ATTENTION") = vbYes Then [Zone_Taux_I11] = Array(0, , "En cours")
  [Zone_Taux_I11].Interior.Color = xlNone
  Exit Sub
  End Sub

Salutations

 

[Staple1600]

Bonsoir chaelie2015

On aurait pu rester dans le fil initial, non?
Sinon pour ta question, je t'invite à tâter de la toucher F5 tout en laissant tourner l'enregistreur de macros.

 

[Staple1600]

Re

Au lieu de tristement bouder , tu aurais du suivre mon conseil et appuyer sur la touche F5
Tu aurais obtenu ceci

Sub Macro1()
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
End Sub

qui te sera bien utile pour résoudre ta question.

 

[Staple1600]

Re

Et donc en mixant une des propositions faites dans ton précédent fil, et le code obtenu par l'enregistreur de macros, cela donne

Sub Vider_zone_taux_I11_cinquo()
If MsgBox("Vous allez supprimer toutes les données..." & vbLf & vbLf & "Poursuivre ?", vbYesNo, "ATTENTION") = vbYes Then
With [Zone_Taux_I11]
    .SpecialCells(xlCellTypeConstants, 23).ClearContents
    .Columns(1) = 0: .Columns(4) = "En cours"
End With
End If
End Sub

 

[chaelie2015]

Bonjour JM
MERCI , C'EST PARFAIT.
A+