erreur d'execution: 'incompatibilité de type'

[popeye54]

Bonjour à tous.

J'ai un souci dans un code sur cette ligne.
nocoul = (Application.Match(c.Value, mondico.keys, 0)) Mod UBound(couleurs)
Pouvez vous me renseigner sur la manière de la corriger.
je suis quasi débutant en VBA et j'essaie d'adapter des morceaux de codes trouvés sur le forum afin de faire progresser mon appli.

Merci à vous

 

[frangy]

Re : erreur d'execution: 'incompatibilité de type'

Bonjour,

La plage n'est pas correctement définie

For Each c In Range("B5", [B65536].End(xlUp))

Cordialement.

 

[popeye54]

Re : erreur d'execution: 'incompatibilité de type'

Merci à Frangy pour sa réponse rapide.

J'ai changé le code comme préconisé et ça marche.

Encore une fois merci