voila mon soucis je cherche depuis plusieurs jours comment faire mais vu que je suis novice c'est pas gagner....
sur une feuille dans excel je voudrais créer un bouton de remise a zéro sur d'autres feuilles excel mais que certaines cellule qui ne sont pas toute identique d'une feuille a l'autre ,j'ai tenté de créer un code vba mais je préfère faire une mayonnaise a choisir.
voici le code que j'ai essayer de rentré dans visual basic.
Private Sub ToggleButton1_Click()
Dim Rep
Rep = MsgBox("Vous allez supprimer toutes les données !" & Chr(10) & "Poursuivre ?", vbYesNo)
If Rep = vbNo Then
Sub Reset()
With fourniseur.Range("D6:O12")("D16:O22")("D26:O32")("D36:O42")("D46:O48").ClearContents
End With
With MAD1.Range("D6:BK12")("D16:BK22")("D26:BK32")("D36:BK42")("D46:BK48").ClearContents
End With
With BALANCE.Range("D5:L56")("D59:L62")("D66:L72")("D74:L78")("D81:L87").ClearContents
End With
With FACTURES.Range("E22:F64")("E88:F130")("E154:F196")("E219:F261")("E284:F326")("E349:F391")("E414:F456")("E479:F521")("E544:F586")("E609:F651").ClearContents
End With
With BOF.Range("G7:G68").ClearContents
End With
With EPICERIE.Range("G7:G421").ClearContents
End With
With VOLAILLE_POISSON.Range("E7:E70").ClearContents
End With
With SURGELE.Range("E7:E71").ClearContents
End With
With LEGUMES.Range("E7:E71").ClearContents
End With
With JETABLE_ET_LESSIVIEL.Range("E7:E58").ClearContents
End With
With boisson.Range("E7:E58").ClearContents
End With
End Sub
je si nul ou il y a des trucs cohérent ?
sur une feuille dans excel je voudrais créer un bouton de remise a zéro sur d'autres feuilles excel mais que certaines cellule qui ne sont pas toute identique d'une feuille a l'autre ,j'ai tenté de créer un code vba mais je préfère faire une mayonnaise a choisir.
voici le code que j'ai essayer de rentré dans visual basic.
Private Sub ToggleButton1_Click()
Dim Rep
Rep = MsgBox("Vous allez supprimer toutes les données !" & Chr(10) & "Poursuivre ?", vbYesNo)
If Rep = vbNo Then
Sub Reset()
With fourniseur.Range("D6:O12")("D16:O22")("D26:O32")("D36:O42")("D46:O48").ClearContents
End With
With MAD1.Range("D6:BK12")("D16:BK22")("D26:BK32")("D36:BK42")("D46:BK48").ClearContents
End With
With BALANCE.Range("D5:L56")("D59:L62")("D66:L72")("D74:L78")("D81:L87").ClearContents
End With
With FACTURES.Range("E22:F64")("E88:F130")("E154:F196")("E219:F261")("E284:F326")("E349:F391")("E414:F456")("E479:F521")("E544:F586")("E609:F651").ClearContents
End With
With BOF.Range("G7:G68").ClearContents
End With
With EPICERIE.Range("G7:G421").ClearContents
End With
With VOLAILLE_POISSON.Range("E7:E70").ClearContents
End With
With SURGELE.Range("E7:E71").ClearContents
End With
With LEGUMES.Range("E7:E71").ClearContents
End With
With JETABLE_ET_LESSIVIEL.Range("E7:E58").ClearContents
End With
With boisson.Range("E7:E58").ClearContents
End With
End Sub
je si nul ou il y a des trucs cohérent ?