Vider cellules fusionnées sans effacer les formules

chaelie2015 · 14 Avril 2020

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.

VB:

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 · 14 Avril 2020

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

VB:

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

Staple1600 · 14 Avril 2020

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 · 14 Avril 2020

Re

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

VB:

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

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

Staple1600 · 14 Avril 2020

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

VB:

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 · 14 Avril 2020

Bonjour JM
MERCI , C'EST PARFAIT.
A+

Vider cellules fusionnées sans effacer les formules

chaelie2015

XLDnaute Accro

Staple1600

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

Staple1600

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires