XL 2016 besoin d'aide sur comment créer un bouton pour effacer des données dans des cellules sur plusieurs feuilles

chef-gael

XLDnaute Nouveau
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 ?
 

Staple1600

XLDnaute Barbatruc
Re

On n'envoie jamais le fichier original
Mais un fichier exemple créé pour illustrer la question.

De toute façon que ce soit la méthode de Roblochon, ou celle de mon exemple les deux fonctionnent.

Relis-le nos explications et fais des essais sur un classeur avec peu de feuilles (4 par exemple) et quelques plages de cellules à effacer.

En comparant avec ton fichier original, tu devrais à trouver où se situe l'erreur.
 

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 838
dernier inscrit
Christelle.B86