Discussion :

[mchouv]

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 :

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

[Daniel.C]

Bonjour,

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

Code :

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

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

Poste un classeur exemple.

[mchouv]

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 ?

[Daniel.C]

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 ?

[kuchiky]

Bonjours,

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

[mchouv]

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,

[Menhir]

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 :

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

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.

[Daniel.C]

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

[Philippe Tulliez]

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 :

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

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

et ici non

Code :

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

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.

[NVCfrm]

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

Code :

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

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 ?