Simplifier une macro

Bonjour

Est-il possible de simplifier cette macro(qui fonctionne )

D'avance je vous remercie

Sub effacer_les_resultatsTeT()

' effacer_les_resultats Macro

Sheets("Tour1").Select

If MsgBox("Voulez-vous vraiment effacer tous les résultats", vbYesNo, ("Demande de confirmation")) = vbYes Then Range("G3:I66,P3:R66").ClearContents

Range("G3:I66,P3:R66").ClearContents

Sheets("Tour2").Select

Range("G3:I66,P3:R66").ClearContents

Sheets("Tour3").Select

Range("G3:I66,P3:R66").ClearContents

Sheets("Tour4").Select

Range("G3:I66,P3:R66").ClearContents

Sheets("Tour5").Select

Range("G3:I66,P3:R66").ClearContents

End Sub

Salut Joco7915,

Voici une façon de faire :

Sub effacer_les_resultatsTeT()
If MsgBox("Voulez-vous vraiment effacer tous les résultats", vbYesNo, ("Demande de confirmation")) <> vbYes Then exit sub
for i = 1 to 5
    sheets("Tour" & i).Range("G3:I66,P3:R66").ClearContents
next i
End Sub

Tu sais, tu peux utiliser les balises </> du ruban d'icônes pour poster du code

Cdlt,

Bonjour 3GB,

Merci pour ton aide ça fonctionne impec

Avec mes excuses pour les balises

Crdlt

Pas de souci, t'inquiète ! Et le code n'était pas très long mais c'est toujours plus clair avec (et plus simple à copier).

Bonne journée,

Bonjour. il suffit de faire une boucle sur les feuilles dont le nom commence par "Tour"

Sub Macro1()
Dim WS As Worksheet
If MsgBox("Voulez-vous vraiment effacer tous les résultats", vbYesNo, ("Demande de confirmation")) = vbYes Then

For Each WS In Worksheets
If WS.Name Like "Tour*" Then
WS.Range("G3:I66,P3:R66").ClearContents
End If
Next WS
End If

End Sub

Oops 3GB plus rapide mais avec le mien çà continuera de fonctionner plus tard si il ajoute des Tour6 , Tour7 ...

Salut Xmenpl ,

Oui, tu as raison, j'ai justement hésité à faire comme toi car ton code est mieux s'il faut prévoir d'autres tours !

Cdlt,

Je viens de voir ta proposition Xmenpl ,

intéressante effectivement si ajout de Tour je garde sous le coude

Mais pour l'instant on va se limiter à 5 tours c'est déjà pas mal.

Cordialement