Discussion :

[med_mugen]

Bonjour Menhir (et à tous les autres sur le forum),

je voulais savoir si vous pouviez m'expliquer l'erreur 438 que j'ai sur ma macro( voir ci-dessous)

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
Private Sub Worksheet_Activate()
 
'copier coller valeur feuille Masterfile
 
With Sheets("Masterfile")
.Range("Bdonnees").Copy
 
Sheets("Masterfile-valeurs").Range ("Tableau5[n°Store]")
 
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
 
End With
 
End Sub

c'est un simple copier coller de valeur d'un tableau d'une feuille A ver un tableau identique dans une feuille B.

Cette macro s'enclenche par activation de la feuille B mais bloque à la ligne Sheets("Masterfile-valeurs").

Merci pour votre aide

[med_mugen]

Re bonjour à tous,

En réutilisant à ma sauce ce que j'ai pu lire sur ce forum voilà une réponse que j'ai trouvé à mon problème :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub Worksheet_Activate()
 
'copier coller valeur feuille Masterfile
 
Dim MonTableau As Variant
 
MonTableau = Worksheets("Masterfile").Range("Bdonnees")
Worksheets("Masterfile-valeurs").Range("Tableau5[n°Store]") = MonTableau
 
 
End Sub

Si cela peut être utile à certains d'entre vous.

See you soon

[med_mugen]

J'ai tenté de vérifier ma formule en modifiant les données mais ça n'a pas fonctionné....

[med_mugen]

J'ai tenté de vérifier ma formule en modifiant les données mais ça n'a pas fonctionné....

il fallait juste retirer [store] dans tableaun°5[store]

si vous connaissez la raison ca m'intéresse, j'ai une petite idée (une histoire de grande plage vers une cellule ...) mais pas sûr