Effacer les plages
Résolu
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:
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,
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
-
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...
