Copie d'un tableau d'une feuille à une autre : une cellule ne se recopie pas

Bonjour à tous,

J'écris un code qui doit copier un tableau de valeur d'une feuille à une autre, tout en créant un lien entre les deux (si il y a modification sur la deuxième feuille, cela doit impacter la première). Le problème est qu'il y a une (et une seule) cellule qui ne se recopie pas, ce qui entraine des erreurs dans les calculs des lignes suivantes.

Voici la partie du code qui recopie les deux tableaux :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

For K = Etage(I) To Etage(I + 1) - 1 Step 1 'On recopie tout le texte du tableau (unité, noms, Opt) Range("Optimisation!V4").Offset(K + C, 0).Value = "TrainEpi" & " " & Range("U8").Offset(K, 0).Value Range("Optimisation!W4").Offset(K + C, 0).Value = "TrainEpi" & "_" & Range("V8").Offset(K, 0).Value Range("Optimisation!Y4").Offset(K + C, 0).Value = Range("X8").Offset(K, 0).Value Range("Optimisation!AB4").Offset(K + C, 0).Value = Range("AA8").Offset(K, 0).Value Range("Optimisation!Z4").Offset(K + C, 0).Value = "=" & "TrainEpi" & "!Y" & 8 + K Range("Optimisation!AA4").Offset(K + C, 0).Value = "=" & "TrainEpi" & "!Z" & 8 + K   If Range("AA8").Offset(K + C, 0).Value <> 2 Then Dim Sauvegarde 'Permet de garder la valeur de la variable précédente pour ne pas repartir à zéro à chaque fois Sauvergarde = Range("W8").Offset(K, 0).Value Range("W8").Offset(K, 0).Value = "=Optimisation!X" & 4 + K + C Range("Optimisation!X4").Offset(K + C, 0).Value = Sauvegarde Else Range("Optimisation!X4").Offset(K + C, 0).Value = "=" & "TrainEpi" & "!W" & 8 + K End If

---

C ici vaut 0 et K va de 20 à 37.

Pour K =20 et 21 ça fonctionne mais à la ligne suivante, la cellule qui se trouve dans la colonne W de la feuille TrainEpi ne se recopie pas vers la cellule de la colonne X dans le feuille Optimisation.

Ah et je précise que j'ai vérifié les formats de cellules, celui de la cellule qui pose pb est le même que pour les autres.

J'espère que je suis compréhensible,

Merci d'avance.

Bonjour,

Ca peut venir de tes données. Quelle est la valeur de :

Code:

---

Range("AA8").Offset(22).Value

---

Poste un classeur exemple.

Je ne peux pas fournir le classeur, il y a des feuilles confidentielles dessus.

En fait le programme que je fais dois ensuite optimiser les variables que j'ai recopié sur la deuxième feuille. Dans la colonne AA8 il y a des indices entrés manuellement au préalable : si l'indice est 2, le programme doit juste recopier la formule mais l'optimisation ne touchera pas ensuite la valeur associée. Si l'indice est 1, on va optimiser dessus.

La cellule qui ne se recopie pas a pour indice 2. En gros le nom de la variable, l'unité et les bornes se recopient mais pas la valeur elle même (colonne W de la feuille TrainEpi, vers colonne X de la feuille optimisation).

Est-ce que c'est clair ?

Qu'est-ce que tu veux qu'on te dise ? C'est quoi "Sauvegarde" et quelle est sa valeur quand la copie ne se fait pas ?

Bonjours,

Non ce n'est pas très clairs.. Avec si peu d'information c'est assez compliqué de t'aider

Encore une fois je ne peux pas vous envoyer le classeur sur lequel je travaille. En PJ les entêtes des tableaux avec les cellules sur lesquelles ils sont placés dans chaque feuille, peut être que ce sera plus visuel.

Justement la sauvegarde ne paraît pas fonctionner pour cette cellule en particulier, sa valeur est nulle. C'est pour cela que je pensais au format de cellules mais je ne trouve pas de différence avec celles qui se sont recopié correctement.

Cordialement,

Il y a plusieurs choses de surprenantes dans ton code.

A plusieurs reprises, tu utilises "Value" pour placer dans la cellule quelque chose qui ressemble fortement à une formule (les deux lignes avant le IF).
Normalement, pour introduire une formule dans une cellule, on utilise plutôt la propriété Formula (ou FormulaLocal)

Ensuite, dans les premier Range, tu sembles introduire le nom de feuille dans la référence de Range. Je n'ai jamais utilisé ce type de syntaxe, je ne peux donc pas dire que ça ne marche pas, mais, habituellement, la feuille de calcul est plutôt déclarée avec l'objet Worksheet.
Par exemple, la première ligne après le For, perso, je l'écrirai plutôt :

Code:

---

Worksheet("Optimisation").Cells(4 + K + C,"V").Value = "TrainEpi " & Cells(8 + K,"U")

---

Je ne comprends pas l'intérêt de ta variable Sauvegarde vu que :
> Si le If est Vrai, elle est réinitialisée (on utilise pas sa valeur précédente)
> Si le If est faux, elle n'est pas utilisée.
Il suffirait d'inverser les deux lignes qui suivent le "Sauvegarde =" pour pouvoir supprimer cette ligne.

Bon, écoute; je ne suis pas devin. Le nom des feuilles ne correspond pas à la macro. Moi, je laisse tomber.

Bonjour,
Je n'ai pas examiné ton code dans son ensemble, toutefois il me semble qu'il y a une erreur de syntaxe dans la référence aux cellules dans certaines lignes.
Lorsque dans une cellule on fait référence à une feuille et à une cellule, la syntaxe est NomDeLaFeuille!RefCellule (Le point d'exclamation vient après le nom de la feuille.
Or dans cette ligne, tu l'appliques

Code:

---

Range("Optimisation!Z4").Offset(K + C, 0).Value = "=" & "TrainEpi" & "!Y" & 8 + K

---

et ici non

Code:

---

Range("Optimisation!V4").Offset(K + C, 0).Value = "TrainEpi" & " " & Range("U8").Offset(K, 0).Value

---

Encore une fois, je n'ai pas examiné l'ensemble de tes lignes de ta procédure et n'ai fait aucun test.

salut,
je relève à la première du code posté une instruction sans effet.

Code:

---

For K = Etage(I) To Etage(I + 1) - 1 Step 1

---

Je n'irais pas plus loin.
Qu'est ce que tu veux faire ?
Peux tu donner une explication détaillée que quelqu'un pourrait comprendre ici ?