Discussion :

[Quunes]

Bonjour à tous,
Pour un projet professionnel, je cherche à automatiser un remplissage de cellules entre deux feuilles.
Un exemple simple serait qu'en remplissant ma case A2 de ma feuille 1 en rouge, cela remplisse automatiquement la case B4 de ma feuille 2, en rouge également.
J'ai tenté quelque chose en m'aidant de ChatGPT car mes connaissances sont bien faibles, mais je n'ai pu aboutir au résultat recherché.

Si quelqu'un peut m'orienter sur la marche à suivre ce serait super.
En vous remerciant.

Quentin.

[Jean-Philippe André]

Bonjour,

bienvenue sur DVP

quel bout de code t'avait pondu ChatGPT, que l'on rigole puisse s'en inspirer et te donner une piste de solution ?

[Nain porte koi]

Hello,

je ne suis pas sûr que du VBA (surtout issu de ChatGPT) soit utile, un "groupe" de feuilles devrait suffire, non ?
je cite "Si vous regroupez un ensemble de feuilles de calcul, toutes les modifications que vous apportez sur une feuille de calcul sont effectuées dans toutes les autres feuilles de calcul du groupe au même emplacement sur les feuilles de calcul."
https://support.microsoft.com/fr-fr/...6-838b05adc0f0

[Quunes]

Voici le code en question:

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
32
33
34
35
36
37
38
39
40
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim cell1 As Range
    Dim cell2 As Range
 
    ' Définir vos feuilles
    Set ws1 = ThisWorkbook.Sheets("Feuille1") ' Remplacez par le nom de votre première feuille
    Set ws2 = ThisWorkbook.Sheets("Feuille2") ' Remplacez par le nom de votre deuxième feuille
 
    ' Définir vos correspondances de cellules
    Dim correspondances As Object
    Set correspondances = CreateObject("Scripting.Dictionary")
    ' Correspondances spécifiques (Cellule Feuille1 -> Cellule Feuille2)
    correspondances.Add "A2", "B5"
    correspondances.Add "C3", "D6"
    ' Ajoutez d'autres correspondances si nécessaire
 
    ' Vérifier les modifications sur la première feuille
    For Each cell1 In Target
        If ws1.Name = cell1.Worksheet.Name And correspondances.exists(cell1.Address) Then
            Set cell2 = ws2.Range(correspondances(cell1.Address))
            ' Appliquer la même couleur
            cell2.Interior.Color = cell1.Interior.Color
        End If
    Next cell1
 
    ' Vérifier les modifications sur la deuxième feuille
    For Each cell2 In Target
        If ws2.Name = cell2.Worksheet.Name Then
            For Each key In correspondances.keys
                If correspondances(key) = cell2.Address Then
                    Set cell1 = ws1.Range(key)
                    ' Appliquer la même couleur
                    cell1.Interior.Color = cell2.Interior.Color
                End If
            Next key
        End If
    Next cell2
End Sub

Hello,

je ne suis pas sûr que du VBA (surtout issu de ChatGPT) soit utile, un "groupe" de feuilles devrait suffire, non ?
je cite "Si vous regroupez un ensemble de feuilles de calcul, toutes les modifications que vous apportez sur une feuille de calcul sont effectuées dans toutes les autres feuilles de calcul du groupe au même emplacement sur les feuilles de calcul."
https://support.microsoft.com/fr-fr/...6-838b05adc0f0

Si je comprends bien, les modifications se feront sur les mêmes cellules; j'ai besoin de pouvoir choisir moi-même quelle cellule correspond avec une autre sur deux feuilles distinctes.

[Nain porte koi]

Hello,

le code fait ce que vous avez demandé, il change la couleur de fond d'une cellule de la 2ème feuille quand il y a une saisie dans certaines cellules de la première.
Vous parlez de "remplissage" mais je pense que vous voudriez qu'il réagisse au changement de couleur de fond d'un cellule, et (à ma connaissance) le changement de couleur ne déclenche aucun évènement donc ça ne peut pas fonctionner.