XL 2013 Données ne se transfèrent pas (résolu)

[Cougar]

Bonjour le forum,

Dans le fichier, le code transfert les données d'un onglet à un autre. Il va bien mais il y a des données qui ne sont pas copiées (ex. : cellule F8 de l'onglet Résumé devrait avoir la valeur 49.25 mais est vide). Comment corriger le tout.

Merci

 

[Robert]

Bonjour Cougar, bonjour le forum,

La moindre des choses, quand on demande de l'aide, c'est de fournir le mot de passe qui permettrait de visualiser le code... Même au Québec on sait cela .

 

[Cougar]

Bonjour Robert, bonjour le forum,

Oups, j'avais oublié pour le mot de passe.

Voici le fichier sans mot de passe.

Mille excuses.

Merci

 

[Robert]

Re,

L'erreur est ici :
Set Classe = Activite.Offset(1).Resize(, 3).Find(Cel.Offset(, 2), , xlValues, xlWhole)
Remplace par :
Set Classe = Activite.Offset(1).Resize(, 6).Find(Cel.Offset(, 2), , xlValues, xlWhole)

 

[Robert]

Re,

Mieux ! Remplace la même ligne par :
Set classe = activite.Offset(1).Resize(, activite.MergeArea.Cells.Count).Find(Cel.Offset(, 2), , xlValues, xlWhole)

 

[Cougar]

Re,

Merci pour ta solution.