Effacer les plages
Résolu
NLAH
Messages postés
125
Date d'inscription
Statut
Membre
Dernière intervention
-
NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention -
NLAH Messages postés 125 Date d'inscription Statut Membre Dernière intervention -
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,
A voir également:
- Vba effacer une plage de cellules
- Formule excel pour additionner plusieurs cellules - Guide
- Comment effacer une page sur word - Guide
- Effacer les données de navigation sur android - Guide
- Verrouiller cellules excel - Guide
- Excel compter cellule couleur sans vba - Guide
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...
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...
NLAH
Messages postés
125
Date d'inscription
Statut
Membre
Dernière intervention
2
Merci infiniment ça marche très bien !!