Lier deux tableaux Excel avec VBA

Version imprimable

26/04/2013, 23h20
Guiguedu13

1 pièce(s) jointe(s)

Lier deux tableaux Excel avec VBA

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).

Pièce jointe 117116

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

1 pièce(s) jointe(s)

Bonjour,

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

Code:

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

Bonjour.

La même logique simplifiée :
Code:

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 :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

27/04/2013, 13h10
Guiguedu13

Bonjour gFZT82, Bonjour Marc-L,

Merci énormément pour votre aide ! :ccool: 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 :mrgreen:
27/04/2013, 13h43
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 :

Citation:

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
27/04/2013, 13h59
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... :?
27/04/2013, 14h21
Marc-L

Automatiquement non !

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

_______________________________________________________________________________

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

________________________________________________________________
Le mec qui a convaincu les aveugles de porter des lunettes de soleil est quand même un excellent commercial !
27/04/2013, 15h17
Guiguedu13

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

Bonjour gFZT82 chapeau pour ton code

Citation:

Envoyé par gFZT82

Bonjour,

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

Code:

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