Conditions SI avec valeurs #N/A

Bonjour,

J'ai un problème avec mon code VBA, je voudrais afficher des commentaires sur la colonne X en fonction des valeurs sur une colonne en W mais lorsque j'exécute, la macro ne fonctionne pas ... (La méthode Range de l'objet à échoué...)

Pour résumé :

Si ligne #N/A en colonne W alors écrire en colonne X : Autres catégories

SI ligne = 1 en colonne W écrire en colonne X : 2J

SI ligne = 2 en colonne W écrire en colonne X : 7J

Si ligne = 3 en colonne W écrire en colonne X : 15J

En vous remerciant pour votre aide,

Voici le code :

'Variables

Dim ESC As Range, CDD As String, I As Integer

ESC = Range("W" & I)
For I = 2 To 5000

If Range("W" & I) = "#N/A" Then
Range("W" & I) = ""

End If

'Commentaires en fonction de l'ESC

If ESC = "" Then
CDD = "Autres catégories"
ElseIf ESC = 1 Then
CDD = "2J"
ElseIf ESC = 2 Then
CDD = "7J"
ElseIf ESC = 3 Then
CDD = "15J"

Else
CDD = "No CDD"

End If

Range("X" & I) = CDD

Next I

End sub

Cordialement,

Skydream

Bonjour,

Je crois qu'il faut écrire Set ESC = Range("W" & I)

Aussi > je m'inquiète du nom de la variable ESC > je me demande s'il n'y aurait pas confusion avec un mot clé de VBA > car l'on peut écrire

SendKeys "{ESC}" ...

ric

Merci ric,

ça a l'air de fonctionner.

Maintenant ça me met une autre erreur (2042) sur cette ligne --> SendKeys "{ESC}" = Range("W" & I)

Bonjour,

Je me suis mal exprimé SendKeys "{ESC}" est un exemple de l'utilisation de ESC > il ne faut pas que tu utilises SendKeys "{ESC}" dans ton code ...

J'ai mentionné cette expression > car je m'inquiète du nom de ta variable ESC qui pourrait être mal interprétée par VBA ...

Je suggère de changer ta variable ESC pour autre chose ...

ric

J'ai corrigé et ça fonctionne.

Merci Beaucoup.