chaelie2015
XLDnaute Accro
Bonsoir Forum
ci desous un code qu'efface une zone nommée "Zone_Taux_I11" composée deux deux colonnes, je souhaite lors d'excution de ce code et apres avoir effacer les données de cette zone , faire afficher dans toutes les cellules de la permiere colonne des valeurs 0 et dans la deuxiemme colonne faire afficher dans toutes les cellules le texte "En cours"
NB: Zone_Taux_I11=Feuil1!$C$11:$F$16
Salutations
ci desous un code qu'efface une zone nommée "Zone_Taux_I11" composée deux deux colonnes, je souhaite lors d'excution de ce code et apres avoir effacer les données de cette zone , faire afficher dans toutes les cellules de la permiere colonne des valeurs 0 et dans la deuxiemme colonne faire afficher dans toutes les cellules le texte "En cours"
VB:
Sub Vider_zone_taux_I11()
Rep = MsgBox("Vous allez supprimer toutes les données :" & Chr(10) & "Poursuivre ?", vbYesNo, "ATTENTION")
If Rep = vbYes Then [Zone_Taux_I11] = Empty
Exit Sub
End Sub
Salutations
Pièces jointes
Dernière édition: