Discussion :

[dvdhag123]

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 :

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

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

[parmi]

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

[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 :

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

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

[EngueEngue]

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

[Invité]

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 :

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

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

Code :

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

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

[dvdhag123]

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

[batseb]

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.