Discussion :

[DenisHen]

Bonjour à la communauté.
Voilà, j'interagis depuis ma feuille ActiveSheet avec d'autres feuilles.
J'aimerai "copier" le contenu d'une ou plusieurs cellules depuis ma feuille active (codé dans un Worksheet_Change) dans une autre feuille et à la même plage (même une plage d'une seule cellule, et même après effacement), mais quel code utiliser pour gérer un .Range ?
Exemple, je sélectionne plusieurs cellules dans mon ActiveSheet (ou une seule) et je les efface (ou les rempli), j'aimerais que ces mêmes cellules (mêmes adresses mais autre feuille) soient effacées (ou remplies) dans la feuille "Pouette" (par exemple).
Je suis obligé d'utiliser du VBA, car je ne peux pas utiliser les formules dans Excel (il y a des lectures/écritures entre ces feuilles).
J'avoue ne pas savoir comment m'y prendre...
J'avais commencé par ça, mais ça ne fonctionne pas (ce n'est qu'un brouillon pour l'instant), car ici, je ne gère qu'une cellule, j'aimerais gérer un .Range.
Voici ce qu'il y a dans mon Worksheet_Change :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Pouette").Cells(ActiveCell.Row, ActiveCell.Column).Value = ActiveSheet.Cells(ActiveCell.Row, ActiveCell.Column).Value

En gros, j'aimerais copier le contenu de mon ActiveSheet dans la feuille "Pouette" dès que je change une donnée (ou que je l'efface), mais uniquement en VBA, je ne peux pas utiliser de formules.
Je pense donc qu'il faut utiliser un .Range, mais je connais très mal cet "Objet".
Si quelqu'un a une astuce, une idée... Je suis preneur...
Denis...

[Pierre Fauconnier]

Salut.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
  On Error GoTo Catch
 
  Application.EnableEvents = False
  Worksheets("Poet").Range(Target.Address).Value = Target.Value
 
Catch:
  Application.EnableEvents = True
  If Err <> 0 Then MsgBox Err.Description
End Sub

Par contre, je n'en vois pas l'intérêt, puisque toute modification de l'une se retrouve sur l'autre. A quoi ça sert? Mystère...

[DenisHen]

Bonjour Pierre, et un grand merci pour ton aide.
En fait, mon Worksheet_Change est dans ma feuille active (qui se nomme "Gestion") et non dans ThisWorkbook.
Donc, elle n'est lancée que lors d'un changement depuis elle-même et non "depuis" d'autres feuilles.
Donc, dès qu'une cellule de l'ActiveSheet change, elle se modifie dans la feuille correspondant au deux premier caractère du client qui se trouve dans ActiveSheet.Cells(3, 1).Value (ex : client="03-Denis", la feuille "03" est mise à jour) et à la même adresse (ligne et colonne).
Si ça peut t'aider à comprendre, voici mon code :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlManual
    '2 premier caractère du code client = Nom de la feuille correspondante au client
    NomFeuil = Left(ActiveSheet.Cells(3, 1).Value, 2) 
    'Vérification si la cellule changée est celle du client
    If ActiveCell.Row = 3 And ActiveCell.Column = 1 Then 
	'Si le choix du client a changé
        If ActiveSheet.Cells(3, 1).Value <> ActiveSheet.Cells(4, 1).Value Then 
	    'Mise à jour de la donnée dans la feuille du client
            Worksheets(NomFeuil).Range(Target.Address).Value = Target.Value 
	    'Actualiser la cellule 'controle' du client s'il a changé
            ActiveSheet.Cells(4, 1).Value = ActiveSheet.Cells(3, 1).Value 
        End If
    Else
	'Sauvegarde des données dans la feuille du client
        If ActiveCell.Column = 7 Or ActiveCell.Column = 11 Or ActiveCell.Column = 12 Or ActiveCell.Column = 14 Then SauveLot 
    End If
    Application.ScreenUpdating = True
    Application.Calculation = xlAutomatic
    Application.EnableEvents = True
End Sub

Mais lorsque je change ActiveSheet.Cells(3, 1).Value (qui est "Validation de données"), je vais chercher dans la bonne feuille toutes les données précédemment "copiées" et les mets à jour dans l'ActiveSheet.
C'est là que j'ai le plus gros problème, car à chaque écriture dans une cellule (dons la ligne est supérieur à 3) de l'ActiveSheet, leWorksheet_Change se lance, et tourne, tourne, tourne...
Et là, je suis dans l'impasse...
Encore merci à toi pour ton aide.
Denis...

[Pierre Fauconnier]

Je t'ai donné la réponse dans l'autre discussion que tu as lancée pour désactiver les évènements, et j'ai d'ailleurs repris ce code ici. Donc, tu ne devrais normalement pas avoir le problème du change en cascade.

Au niveau de la conception de ton classeur, je me pose beaucoup de questions. Pour moi, tu travailles "à l'envers". Tu devrais saisir les données dans une feuille "formulaire" et les pousser dans une table en y mettant l'indice du client, plutôt que splitter les données sur autant de feuilles que de clients. Ta conception impose de créer une nouvelle feuille à chaque nouveau client et elle impose aussi que toutes tes feuilles (saisie ET clients) soient rigoureusement identiques... Ca me semble être une usine à gaz.

[DenisHen]

Effectivement, je viens de voir ton autre réponse.
Pour mon classeur, toutes les feuilles ont exactement le même format et mes clients ne changent jamais.
Ce n'est pas autant une usine à gaz que ça, c'est vrai que j'aurais aimé faire autrement, mais je n'ai pas eu tellement le choix.
Encore un grand merci à toi...
Denis...