Discussion :

[sims92.66]

Bonjour à tous,

Je viens de terminer le code ci-dessous, cependant il y a une erreur dans l'execution "imcompatibilité de type" sur la ligne "If Cells(X, 18) = "REMBOURSEMENT" Then"
Est il possible de faire une boucle et de renvoyer les références de cette même boucle dans une autre cellule dans la même ligne? Le code sera plus explicatif.

Merci pour votre aide précieuse.

Ci-joint mon code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
X = 2
    While IsEmpty(Cells(X, 1)) = False
 
    If Cells(X, 18) = "CHANGEMENT" Then
    Cells(X, 13) = Cells(X, 9)
    End If
    If Cells(X, 18) = "REMBOURSEMENT" Then
    Cells(X, 14) = Cells(X, 9)
    End If
 
 
X = X + 1
 
Wend
 
End Sub

[niclalex]

Bonjour ,
Pourquoi ne pas utiliser ELSEIF:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
 
X = 2
    While IsEmpty(Cells(X, 1)) = False
 
    If Cells(X, 18) = "CHANGEMENT" Then
    Cells(X, 13) = Cells(X, 9)
 
    ElseIf Cells(X, 18) = "REMBOURSEMENT" Then
    Cells(X, 14) = Cells(X, 9)
    End If
 
 
X = X + 1
 
Wend
 
End Sub

[HopPopPop]

Bonjour à tous.

Quelle est la valeur de X quand le message d'erreur apparait ?

Cordialement.

[sims92.66]

Merci pour vos conseils.

En faite dans ma boucle il y avait des valeurs #N/A du coup le code planté

Merci encore et bonne journée