chaelie2015
XLDnaute Accro
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.
Salutations
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