Effacer le contenu de certaines cellules non contiguës
SAM_25
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Bonjour
Je suis un peu novice dans vba et je travaille sur un projet. J'ai dans ma feuille plusieurs cellules non contiguës qui contiennent des textes dont je souhaite effacer le contenu. J'ai utiliser le code que voici mais ça marche pas trop.
Sheets("Test").Range("C33,C35,C38,C91,C93,C95,C129,C131,C134,C158,C160,C163").ClearContents
Quelqu'un peut-il m'aider svp?
D'avance merci
Je suis un peu novice dans vba et je travaille sur un projet. J'ai dans ma feuille plusieurs cellules non contiguës qui contiennent des textes dont je souhaite effacer le contenu. J'ai utiliser le code que voici mais ça marche pas trop.
Sheets("Test").Range("C33,C35,C38,C91,C93,C95,C129,C131,C134,C158,C160,C163").ClearContents
Quelqu'un peut-il m'aider svp?
D'avance merci
1 réponse
Bonjour,
Ça veux dire quoi : « ça marche pas trop » ????
Ce code fonctionne normalement, bien que la bonne syntaxe soit plutôt :
En effet, l'objet Sheet ne possède pas de propriété Range, c'est l'objet Worksheet qui possède la propriété Range.
Lorsque la Sheet est une Worksheet, elle hérite de la propriété Range et ça fonctionne mais il est plus sûr d’utiliser directement la Worksheet.
Ça veux dire quoi : « ça marche pas trop » ????
Ce code fonctionne normalement, bien que la bonne syntaxe soit plutôt :
Worksheets("Test").Range("C33,C35,C38,C91,C93,C95,C129,C131,C134,C158,C160,C163").ClearContents
En effet, l'objet Sheet ne possède pas de propriété Range, c'est l'objet Worksheet qui possède la propriété Range.
Lorsque la Sheet est une Worksheet, elle hérite de la propriété Range et ça fonctionne mais il est plus sûr d’utiliser directement la Worksheet.
Quand je dis ça marche pas trop, c'est pour dire que le code ne fonctionne pas. J'ai utilisé aussi la solution proposée mais le code ne s'exécute pas.
Excusez-moi je viens de me rendre compte que toutes ces cellules en question sont des cellules fusionnées. Y-a--il une solution?
Merci d'avance.