IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

[Macro] Effacer cellule / Effacer le formattage direct [LibreOffice][Tableur]


Sujet :

OpenOffice & LibreOffice

  1. #1
    Membre régulier
    Avatar de madvic
    Homme Profil pro
    Inscrit en
    Mai 2003
    Messages
    101
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Deux Sèvres (Poitou Charente)

    Informations forums :
    Inscription : Mai 2003
    Messages : 101
    Points : 92
    Points
    92
    Par défaut [Macro] Effacer cellule / Effacer le formattage direct
    Bonjour,
    J'ai utilisé pour effacer une zone le module d'enregistrement de macro.
    Ce qui me donne pour une zone à effacer :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    dim args(0) as new com.sun.star.beans.PropertyValue
    args(0).Name = "ToPoint"
    args(0).Value = "$B$10:$J$35"
    dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args())
    dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array())
    dispatcher.executeDispatch(document, ".uno:ResetAttributes", "", 0, Array())
    Seulement le dispatcher fonctionne sur la feuille active.
    J'ai donc décider de faire cette routine proprement :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    zone = ThisComponent.Sheets.getByName("saisie").getCellRangeByName("$B$10:$J$35")
    zone.clearContents(1)
    zone.ResetAttributes()
    Seulement la méthodeclearContents(1), ne fonctionne pas !
    Et impossible de trouver la méthode ResetAttributes(), savez dans quel objet elle se trouve ?

    merci

  2. #2
    Membre régulier
    Avatar de madvic
    Homme Profil pro
    Inscrit en
    Mai 2003
    Messages
    101
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Deux Sèvres (Poitou Charente)

    Informations forums :
    Inscription : Mai 2003
    Messages : 101
    Points : 92
    Points
    92
    Par défaut
    Trouvé, il faut utiliser les bons paramètres :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    	document.clearContents( _
    	    com.sun.star.sheet.CellFlags.VALUE + _
    	    com.sun.star.sheet.CellFlags.DATETIME + _
    	    com.sun.star.sheet.CellFlags.STRING + _
    	    com.sun.star.sheet.CellFlags.ANNOTATION + _
    	    com.sun.star.sheet.CellFlags.FORMULA + _
    	    com.sun.star.sheet.CellFlags.HARDATTR + _
    	    com.sun.star.sheet.CellFlags.STYLES + _
    	    com.sun.star.sheet.CellFlags.OBJECTS + _
    	    com.sun.star.sheet.CellFlags.EDITATTR)

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. [Débutant] Effacer cellule vide dans excel depuis vb.net
    Par tarrex dans le forum VB.NET
    Réponses: 1
    Dernier message: 12/03/2012, 18h39
  2. [Toutes versions] Effacement cellule à partir d'une liste
    Par crissud dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 14/03/2011, 21h02
  3. Excel 2003 - macro qui n'efface pas les infos rentrées manuellement
    Par Laura-c dans le forum Macros et VBA Excel
    Réponses: 20
    Dernier message: 18/03/2009, 12h06
  4. stocker la valeur d'une cellule effacée au cours de la procédure
    Par NATOU2 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 17/10/2008, 18h10
  5. Macro de tri & effacement des lignes inutiles
    Par malabarbe dans le forum Macros et VBA Excel
    Réponses: 12
    Dernier message: 14/09/2008, 22h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo