Imcompatibilité de type if-and

Bonjour,
J'ai un probleme avec mon IF dont voici le code, le problème ce situe sur la ligne du IF si quelqu'un à une suggestion.
Ce If me permet:
Si en "AE" il y a "CONTRACTUEL" et que en "A"I il y a "Indemnités" alors je remplace le "Indemnités" en "AE" par "Vacations"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub VII() Dim i As Long With Worksheets(1) For i = 2 To .Range("AE" & .Rows.Count).End(xlUp).Row If .Range("AE" & i) = "CONTRACTUEL" And .Range("AI" & i) = "Indemnités" Then .Range("AI" & i) = "Vacations" End If Next i End With End Sub

---

Merci

Bonjour,

Quel est le problème exactement ?
Tout me semble correct outre le fait que les mots pourraient ne pas être exactement écrit comme dans la condition. La casse est importante, donc tu pourrais utiliser UCase ou LCase pour forcer la comparaison sur un ou l'autre. Peut-être aussi qu'il y a un ou des espaces dans les valeurs de cellules auquel cas, il serait bien d'utiliser Trim...

Le problème est que:
Quand j’exécute il me note
Erreur d’exécution 13:
Incompatibilité de type

Et il me montre cette ligne en jaune

Code:

---

If .Range("AE" & i) = "CONTRACTUEL ETUDIANT" And .Range("AI" & i) = "Indemnités non indexées" Then

---

Ton code est bon.
Il doit y avoir un problème sur tes données.

Citation:

---

Envoyé par dvdhag123

Le problème est que:
Quand j’exécute il me note
Erreur d’exécution 13:
Incompatibilité de type

Et il me montre cette ligne en jaune

Code:

---

If .Range("AE" & i) = "CONTRACTUEL ETUDIANT" And .Range("AI" & i) = "Indemnités non indexées" Then

---

---

Code:

---

If trim("" & .Range("AE" & i)) = "CONTRACTUEL ETUDIANT" And trim("" & .Range("AI" & i) )= "Indemnités non indexées" Then

---

Merci
En copie collant ta ligne de code j'ai toujours le même problème.
Dans ma base de donnée il est bien écris
CONTRACTUEL ETUDIANT
Indemnités non indexées

Bonjour dvdhag123,

Quand tu as l'erreur 13, clique sur le bouton débogage. Il y a certainement une données en AE ou AI qui est incompatible. (As tu un #N/A par exemple dans ces cellules?)

Regarde la valeur de i : c est sur cette ligne qu'il y a un problème.

C 'est sur la ligne suivante qu'il y a un problème..

Code:

---

1 2	If Trim("" & .Range("AE" & i)) = "CONTRACTUEL ETUDIANT" And Trim("" & .Range("AI" & i)) = "Indemnités non indexées" Then

---

Et aucun #N/A n'est dans ces cellules.

Lors du plantage,

quelle est la valeur exacte de i?
quelle est la valeur exacte de .Range("AE" & i)?
quelle est la valeur exacte de .Range("AI" & i))

Comment je peu le savoir?

Mets un point d'arret sur la ligne qui plante

Lors du debogage, passe ta souris sur la valeur I
Ajoute 2 espions pour worksheets(1).range("AE" & i) et worksheets(1).range("AI" & i)

i vaut 0

Il faut mettre le point d'arret sur la ligne qui plante et pas sur la ligne For,

ou alors ca veut dire que tu ne nous as pas mis tout le code de ta boucle

donc ça vient de là :

Code:

---

1 2	With Worksheets(1) For i = 2 To .Range("AE" & .Rows.Count).End(xlUp).Row

---

surtout ça :

Code:

---

Worksheets(1)

---

Voila mon code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub VII() Dim i As Long i = 2 With Worksheets(1) For i = 2 To .Range("AE" & .Rows.Count).End(xlUp).Row If .Range("AE" & i) = "CONTRACTUEL ETUDIANT" And .Range("AI" & i) = "Indemnités non indexées" Then .Range("AI" & i) = "Vacations" End If Next i End With End Sub

---

j’envoie un imprim écran

essaye d'integrer msgbox comme çi-dessous et vois le résultat

Code:

---

1 2 3 4 5

Sub VII() Dim i As Long i = 2 Msgbox Worksheets(1).Name ....

---

Pour test, au lieu de worksheets(1), essaie de mettre worksheets("nom de ton onglet") et vois si ca plante

http://nsa33.casimages.com/img/2013/...0522124264.jpg

avant de montrer ton image, essayes ce que je t'ai dit ou fais comme batseb le préconise

Donc y a bien #N/A dans la cellule qui provoque l'erreur 13