Autres Macro, sous ThisWorkbook , qui ne fonctionne pas avec un "collé"...

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 12 Juillet 2020

• #2

Bonsoir Christian,
Un Workbook_SheetChange se met dans la sheet concernée et non dans Thisworkbook, ce qui d'ailleurs simplifie le code puisqu'il ne peut être activée que par la feuille concernée.
On met généralement dans les feuilles mes macro SheetChange et dans thisWorkbook les macros dont le périmètre est la classeur : Workbook_BeforeSave ou Workbook_Open par exemple.
Un ex en PJ. Le code se trouve dan la feuille BD. J'ai opté pour un Worksheet_Change.

 

Pièces jointes

• EspionCelluleModifiees (1).xlsm

  27.6 KB · Affichages: 4

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 13 Juillet 2020

• #3

Re, le forum, sylvanu,
Merci pour ton aide, ton travail et tes conseils.

Dis-moi, si je fais un copié/collé de la qté en F6, ça fonctionne, mais je je fais un copié/collé des qtés de F6 à F13 ça ne fonctionne pas...?

Peux-tu me dire.
Bien à toi.
Christian

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2020

• #4

Bonjour Christian,
Dans les deux cas la macro est correctement exécutée.
Cependant, lorsqu'on copie colle une plage, la ligne Sheets("HistoStock").Cells(temp, 4) = valsaisie ne copie évidemment que la première cellule.
Ce qui m'échappe, ce sont ces deux lignes :

VB:

Sheets("HistoStock").Cells(temp, 3) = Target    'ancienne valeur de la cellule
Sheets("HistoStock").Cells(temp, 4) = valsaisie    'nouvelle valeur

Puisqu'avant vous avez fait valsaisie = Target donc Valsaisie et Target ont la même valeur.

Quel était le but ?

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 13 Juillet 2020

• #5

Re, le forum, sylvanu

Est-ce que ce n'est pas "valsaisie" qui pose problème ???
Le but est justement d'historier les changements dans les cellules colonne B, les *changements dans cette colonne sont effectués par macro dans le cas d'une remise en stock (donc *collés) ou par saisies directes dans les cellules si c'est un réapprovisionnement...

Merci pour ton aide.
Christian

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 13 Juillet 2020

• #6

Re,
J'ai fait un truc en PJ. A voir.
Dans le cas présent le seul moyen de traiter tout un tableau est de faire une boucle.
( sinon on ne prends que la première valeur du tableau )
Donc au début si col2 ou col3 alors je mets tout le tableau A619 dans un array, puis je récupère les anciennes dans un autre.
Puis je boucle sur chaque ligne non vide pour faire les opérations.
Idem boucle pour la col3 si concernée.
Donc tout se passe à travers les deux arrays, plus d'accès en lecture aux cellules après le transfert dans les tableaux.
Bien vérifié les affectations de valeurs pour voir s'il n'y a pas de bugs.

 

Pièces jointes

• EspionCelluleModifiees (1) (3).xlsm

  30.3 KB · Affichages: 2

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 13 Juillet 2020

• #7

Re, le forum, sylvanu

Merci infiniment, sylvanu, pour tout le boulot.
Après plusieurs essais ça semble fonctionner parfaitement bien, c'est parfait.

Bien à toi,
Christian

 

Vote positif 0 Vote négatif