Copie de données vba et clipping

Version imprimable

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:

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.

15/12/2008, 11h55
pgz

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
15/12/2008, 13h00
Otomoby

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 (:bug:) !

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.
15/12/2008, 13h44
oOVaveOo

Bonjour,

Tu peux essayer avec

Code:

Application.ScreenUpdating = false / true

L'explication est dans l'aide vba.

@+
15/12/2008, 13h56
pgz

Citation:

Envoyé par Otomoby

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 (:bug:) !

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
16/12/2008, 11h33
Otomoby

Citation:

Envoyé par oOVaveOo

Bonjour,

Tu peux essayer avec

Code:

Application.ScreenUpdating = false / true

L'explication est dans l'aide vba.

@+

Merci à tous. :yaisse2:

La solution est effectivement d'utiliser

Code:

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.