Discussion :

[Guiguedu13]

Bonsoir à tous !

Je viens vous demander de l'aide car je me prends la tête avec un problème qui ne devrait pas tellement en être un. (En même temps je suis plutôt novice en VBA)

Voici donc: je cherche un code VBA qui me permette de mettre à jour un tableau automatiquement lorsque je remplis un autre tableau dans le même fichier (mais dans une feuille différente). Ci-joint un petit document pour que vous compreniez mieux (Excel 2007).

Prix Produits.xlsx

Lorsque je remplis le tableau de la Feuil1, je veux que les données s'ajoutent automatiquement dans le tableau en Feuil2 (attention, il ne faut surtout pas que l'inverse soit possible: si je modifie la Feuil2, la Feuil1 ne doit pas bouger), mais, comme vous l'avez sûrement constaté, uniquement pour les Produits 1, 3 et 7. Sachant que le nombre de ligne (c'est-à-dire, dans ce cas, de jours) est potentiellement infini.
Pour rendre les choses un peu plus amusantes, il faut également que les données de la Feuil1 soient au format Texte, et que celles de la Feuil2 soit au format Nombre (avec 2 décimales).

Voilà voilà. J'espère que vous avez compris mon problème et que quelqu'un pourra m'aider car là, je commence à saturer...

Merci beaucoup et un excellent week-end à tous !

GUILLAUME

[gFZT82]

Bonjour,

Une solution utilisant l'évènement Change de la feuille 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Integer
    If Target.Count = 1 Then
        Select Case Target.Column
            Case 2: Col = 2
            Case 4: Col = 3
            Case 8: Col = 4
            Case Else: Exit Sub
        End Select
        Worksheets("Feuil2").Cells(Target.Row, Col) = Target.Value
    End If
End Sub

[Marc-L]

Bonjour.

La même logique simplifiée :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        Select Case Target.Column
            Case 2, 4, 8
                 Feuil2.Range(Target.Address) = Target
        End Select
    End If
End Sub

_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Guiguedu13]

Bonjour gFZT82, Bonjour Marc-L,

Merci énormément pour votre aide ! vos deux codes fonctionnent très bien !
Mais est-ce possible d'intégrer le code à la Feuil2 plutôt qu'à la Feuil 1 ? Si je modifie "Feuil2" dans le code par "Feuil1" ça ne donne rien...

Merci

[gFZT82]

Si tu utilises l'évènement Change de la feuille 1, c'est pour détecter une modification dans cette feuille 1.

Rappel des conditions que tu as fixées :

Lorsque je remplis le tableau de la Feuil1, je veux que les données s'ajoutent automatiquement dans le tableau en Feuil2 (attention, il ne faut surtout pas que l'inverse soit possible: si je modifie la Feuil2, la Feuil1 ne doit pas bouger)

Alors ????

Cordialement

[Guiguedu13]

Tout à fait !

Mais n'y a-t-il pas un moyen de faire la même chose à partir de la Feuil2 ??
Si je demande ça, c'est parce que le vrai tableau sur lequel je souhaite adapter la formule est largement plus grand et est bourré de macro, et j'ai peur de qu'il y ait un conflit entre ces macros...

[Marc-L]

Automatiquement non !

Car c'est un évènement de la feuille de saisie ‼


_______________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …


________________________________________________________________
Le mec qui a convaincu les aveugles de porter des lunettes de soleil est quand même un excellent commercial !

[Guiguedu13]

Ok ok, j'ai compris !
Merci beaucoup à tous les deux !

[Vadorblanc]

Bonjour gFZT82 chapeau pour ton code

Bonjour,

Une solution utilisant l'évènement Change de la feuille 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Col As Integer
    If Target.Count = 1 Then
        Select Case Target.Column
            Case 2: Col = 2
            Case 4: Col = 3
            Case 8: Col = 4
            Case Else: Exit Sub
        End Select
        Worksheets("Feuil2").Cells(Target.Row, Col) = Target.Value
    End If
End Sub