Discussion :

[will-1981]

Bonjour,

Je veux modifier la semaine vis à vis du code article mais lorsque que la boucle avec "select case" commence j'ai une incompatibilité de type,erreur 13. Pouvez vous m'aider ci-joint la macro.

Merci,
will

[drakkar_agfa]

Bonjour,

sans plus de détails il est difficil de trouver le problème. Est-ce possible de donner un fichier pour la mise à jour?

Vite sans rien essayer du code, le fichier mise à jour est sous quel format (Cells(i, 10))? la cellule utilisé? est-ce que l'erreur se fait sur tous les cases? Est-ce un nombre dans Cells(i, 2). Si c'est un nombre stoké en texte?

Ho! je viens de voir quelque chose d'intéressant!

Code :

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

Dim actusem As String

et ensuite

Code :

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

1
2
            actusem = Cells(i, 2)
            Cells(i, 2) = actusem - 1

Impossible de soustraire 1 à un texte!

Regarde ça.

[laetitia]

bonjour will-1981 drakkar_agfa le forum peut etre declarer les variables en variant pour voir si meme probleme!!

[will-1981]

Merci pour votre aide

donc j'ai changé les types en "Variant" mais ça ne change rien.

En fait, l'erreur a lieu sur le 1er CASE soit le code 45191.

Pour obtenir ce code je suis passé par une recherchev puis j'ai copié et collé les valeurs.

Ce qui m'étonne c'est que si je fais un test de la boucle toute seule avec des données en écrite à la main, ça fonctionne.

Si j'utilise Select Case qu'elle doit être le format de ma cellule de recherche ?

Merci,
bien.

[will-1981]

Je viens de me rendre compte que ma recherchev me ramené des #N/A. Or j'ai declaré que si il y avait #N/A tu affiche rien et depuis j'ai plus l'incompatibilité.

Merci quand même pour aide, mais j'aiemrais savoir où puis je avoir un bon nettoyeur de Macro ?

Car vous avez certainement vu que ma macro comporte des choses inutile qui l'alonge l'éxécution.

A bientôt Will