bonjour a tous , imaginer le code suivant
Private Sub CommandButton1_Click()
Dim Reponse
Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel)
If Reponse = vbYes Then
Range('E4:E6').ClearContents
Range('M4:M6').ClearContents
Range('E17:G36').ClearContents
Range('M17:O36').ClearContents
End If
End Sub
pour info c est omicron qui me la ecrit et sa fonctionne impect mais quand je rajoute par exemple
Range('B4:B6').ClearContents
sa fonctionne pas car B C D sont fusionner !!
quelqu un a une reponse ? il y a la feuille excel avec l exemple si dessu nommé 'initialisation'
merci d avance
Private Sub CommandButton1_Click()
Dim Reponse
Reponse = MsgBox('Confirmez vous votre intention de réinitialiser ZoneVerte et ZoneBleu ?', vbYesNoCancel)
If Reponse = vbYes Then
Range('E4:E6').ClearContents
Range('M4:M6').ClearContents
Range('E17:G36').ClearContents
Range('M17:O36').ClearContents
End If
End Sub
pour info c est omicron qui me la ecrit et sa fonctionne impect mais quand je rajoute par exemple
Range('B4:B6').ClearContents
sa fonctionne pas car B C D sont fusionner !!
quelqu un a une reponse ? il y a la feuille excel avec l exemple si dessu nommé 'initialisation'
merci d avance