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

Macros et VBA Excel Discussion :

Copie de données vba et clipping


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Juin 2004
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2004
    Messages : 11
    Par défaut Copie de données vba et clipping
    Bonjour,

    A partir d'une userform je fais un certain nombre de traitement qui m'amène à copier des dans le feuille courante et d'en recopier une autre partie dans une autre pour des raisons de consolidations avec le code suivant très simple:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
     
        Dim therow As Integer
        therow = Tools.FindFirstEmptyCell(ActiveSheet.name, ACT_START_ROW, 1)
     
        ActiveSheet.Unprotect Password:=SH_PWD
        ActiveSheet.Cells(therow, COL_USR_PROJET).value = projet
        ActiveSheet.Cells(therow, COL_USR_CATEGORIE).value = categorie
        ActiveSheet.Cells(therow, COL_USR_ACTIVITE).value = activite
        ActiveSheet.Cells(therow, COL_USR_DATE).value = thedate
        ActiveSheet.Cells(therow, COL_USR_NUMWEEK).value = numWeek
        ActiveSheet.Cells(therow, COL_USR_QUANTITE).value = qte
        ActiveSheet.Cells(therow, COL_USR_COUNTER).value = num
        ActiveSheet.Protect Password:=SH_PWD
     
        ' Copie dans la feuille de consolidation
        Dim consoSheet As Worksheet
     
        Set consoSheet = ActiveWorkbook.Sheets(SH_CONSOMENS)
     
        therow = Tools.FindFirstEmptyCell(SH_CONSOMENS, CONSO_START_ROW, 1)
     
        consoSheet.Unprotect Password:=SH_PWD
        consoSheet.Cells(therow, COL_CONSO_PROJET).value = projet
        consoSheet.Cells(therow, COL_CONSO_CATEGORIE).value = categorie
        consoSheet.Cells(therow, COL_CONSO_ACTIVITE).value = activite
        consoSheet.Cells(therow, COL_CONSO_RESSOURCE).value = currentUser
        consoSheet.Cells(therow, COL_CONSO_NUMWEEK).value = numWeek
        consoSheet.Cells(therow, COL_CONSO_MONTH).value = Month(currentDate)
        consoSheet.Cells(therow, COL_CONSO_QUANTITE).value = qte
        consoSheet.Cells(therow, COL_CONSO_COUNTER).value = num
        consoSheet.Protect Password:=SH_PWD
    Mon problème est que cette cipie génère un effet indésirable de clipping. Je pense qu'excel ouvre la deuxième feuille effectue l'enregistrement des données et rebsacule sur la feuille courante.

    Y aurait il un moyen d'eviter cela ?

    Je vous remercie d'avance pour votre aide.

  2. #2
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Bonjour.

    Je crois que l'utilisation de la méthode Protect ou UnProtect passe le focus à la feuille cible.
    Pour éviter cela, je pense que tu n'as pas besoin d'utiliser cs méthodes à chaque écriture, si tu as pris soin de protéger les feuilles avec UserInterfaceOnly = True.

    Regarde cette discussion

    Cordialement,

    PGZ

  3. #3
    Membre averti
    Profil pro
    Inscrit en
    Juin 2004
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2004
    Messages : 11
    Par défaut
    Tes dires se vérifient.

    Après avoir essayé l'option UserInterfaceOnly = True j'ai effectivement plus le problème de clipping mais ceci en perdant la protection par mot de passe !
    Malheureusement il est nécessaire que je protège bien les feuilles du fait d'utilisateurs un peu trop bidouilleurs () !

    Dans ce cas je dois bien explicitement utiliser le paramètre Password qui passe le focus avec l'appel de Unprotect/Protect !

    Si je ne trouve pas d'autre solution je garderai ce clipping désabréable mais protégeant l'applicatif

    Merci pour votre aide.

  4. #4
    Membre chevronné
    Inscrit en
    Octobre 2008
    Messages
    273
    Détails du profil
    Informations personnelles :
    Âge : 46

    Informations forums :
    Inscription : Octobre 2008
    Messages : 273
    Par défaut
    Bonjour,

    Tu peux essayer avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.ScreenUpdating = false / true
    L'explication est dans l'aide vba.

    @+

  5. #5
    Membre averti
    Profil pro
    Inscrit en
    Juin 2004
    Messages
    11
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2004
    Messages : 11
    Par défaut
    Citation Envoyé par oOVaveOo Voir le message
    Bonjour,

    Tu peux essayer avec
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.ScreenUpdating = false / true
    L'explication est dans l'aide vba.

    @+
    Merci à tous.

    La solution est effectivement d'utiliser
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.ScreenUpdating = False
    Le système ne change plus de fenêtre active car ne mets plus à jour l'IHM
    Pour info pour ceux qui liraient ce post à la fin de la méthode Application.ScreenUpdating repasse automatiquement à True donc pas besoin de refaire une affectation explicite et les mises à jours se font correctement.

  6. #6
    pgz
    pgz est déconnecté
    Expert confirmé Avatar de pgz
    Homme Profil pro
    Développeur Office VBA
    Inscrit en
    Août 2005
    Messages
    3 692
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 72
    Localisation : France

    Informations professionnelles :
    Activité : Développeur Office VBA
    Secteur : Conseil

    Informations forums :
    Inscription : Août 2005
    Messages : 3 692
    Par défaut
    Citation Envoyé par Otomoby Voir le message
    Après avoir essayé l'option UserInterfaceOnly = True j'ai effectivement plus le problème de clipping mais ceci en perdant la protection par mot de passe !
    Malheureusement il est nécessaire que je protège bien les feuilles du fait d'utilisateurs un peu trop bidouilleurs () !
    Si tu protèges tes feuilles, par exemple à l'ouverture avec la méthode Protect, UserInterfaceOnly et un mot de passe, les feuilles seront bien protégées des modifications des utilisateurs et, en même temps, tu pourras les modifier par code, sans avoir à les déprotéger.
    Et donc : feuilles protégées et plus de clipping.

    PGZ

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

Discussions similaires

  1. [XL-2007] VBA - Copie de données entre deux feuilles et restructuration
    Par Allure dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 16/09/2013, 00h53
  2. copie + effacer données vba
    Par warrio67 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 24/03/2010, 14h44
  3. [VBA] copie de données
    Par Ted37 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 22/01/2009, 21h29
  4. Vba copie de données dans un autre tableau
    Par wade-doak dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 22/07/2008, 07h53
  5. [VBA-E] Problème de copie de données
    Par JM_stp dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 25/02/2006, 00h33

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