bonjour,
j'ai creer un bouton qui me permet d''effacer sur une feuille des données automatiquement. Le probleme c'est qu'il efface bien les données mais sur la l'onglet ou je suis dans ma feuille. J'aimerai qu'il efface juste sur mon onglet "toto", meme si je suis sur l'onglet "titi"
merci de votre aide
"Private Sub btremisezero_Click()
Dim Msg, Style, Title, Response
Msg = " Avez vous sauvegarder!! CLIQUEZ OUI SINON CLIQUEZ NON !! "
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = " quitter "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Unload Me
FrmCaisse.Show
Range("A2:I20").Select
Selection.ClearContents
Range("A2").Select
End If
End Sub"
cordialement
j'ai creer un bouton qui me permet d''effacer sur une feuille des données automatiquement. Le probleme c'est qu'il efface bien les données mais sur la l'onglet ou je suis dans ma feuille. J'aimerai qu'il efface juste sur mon onglet "toto", meme si je suis sur l'onglet "titi"
merci de votre aide
"Private Sub btremisezero_Click()
Dim Msg, Style, Title, Response
Msg = " Avez vous sauvegarder!! CLIQUEZ OUI SINON CLIQUEZ NON !! "
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = " quitter "
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
Unload Me
FrmCaisse.Show
Range("A2:I20").Select
Selection.ClearContents
Range("A2").Select
End If
End Sub"
cordialement