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

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Juillet 2019

• #2

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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 31 Juillet 2019

• #3

Bonjour Robert, bonjour le forum,

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

Voici le fichier sans mot de passe.

Mille excuses.

Merci

 

Pièces jointes

• Compétences 3 mois test.xlsm

  309.2 KB · Affichages: 3

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Juillet 2019

• #4

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)

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 31 Juillet 2019

• #5

Re,

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

 

Vote positif 0 Vote négatif

C

Cougar

XLDnaute Impliqué

• 31 Juillet 2019

• #6

Re,

Merci pour ta solution.

 

Vote positif 0 Vote négatif