Vider cellules fusionnées sans effacer les formules

Staple1600

XLDnaute Barbatruc

• 14 Avril 2020

• #2

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

 

Dernière édition: 14 Avril 2020

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2020

• #3

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 14 Avril 2020

• #4

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

 

Vote positif 0 Vote négatif

Solution

chaelie2015

XLDnaute Accro

• 14 Avril 2020

• #5

Bonjour JM
MERCI , C'EST PARFAIT.
A+😉

 

Vote positif 0 Vote négatif