Effacer les plages

Résolu/Fermé
Signaler
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
-
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
-
Bonjour,

je voudrais créer une macro qui effectue les fonctionnalités suivantes:
lorsque je commande la macro par un bouton sur la feuille3 ,elle doit:
1- supprimer une plage des cellules de la feuille 3
2-supprimer une autre plage des cellules de la feuille 2
3-supprimer une plage des cellules de la feuille 1
j'ai essayée le code suivant, mais il ne me donne pas les résultats souhaitées:
 With Worksheets("Export")
Range("B6:F" & Rows.Count).ClearContents
Range("B6:F" & Rows.Count).Interior.Color = RGB(255, 255, 255)


Call Module2.Effacerfeuil1

Call Module1.Effacerfeuil2

End With
End Sub 


pour le module 2 et 1,j'ai utilisé le même code ,le changement était seulement au niveau des plages.


prière de m'aider s'il veut plait,

cordialement,

1 réponse

Messages postés
1413
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
4 décembre 2021
154
Bonjour Nihadlahit, bonjour le forum,

il te manque un point devant Range puisque tu utilises With :
.Range("B6:F" & Rows.Count).ClearContents
.Range("B6:F" & Rows.Count).Interior.Color = RGB(255, 255, 255)
Le End With devrait être placé avant les Call même si ça n'a pas d'incidence sur le fonctionnement du code...
Messages postés
125
Date d'inscription
lundi 9 septembre 2013
Statut
Membre
Dernière intervention
13 juin 2017
1
Merci infiniment ça marche très bien !!