Discussion :

[Commodore]

Bonjour,

J'ai une incompatibilité de type que je n'arrive pas à résoudre...
Certainement une erreur bête, mais je ne la vois pas

VOici mon code:

Code :

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

1
2
3
4
5
6
7
8
9
Dim c As Range
 
    For Each c In Range("A1:P84")
 
        If Right(c.Value, 2) = "-A" Or "-B" Or "-C" Or "-D" Or "-E" Or "-F" Then
            c.Value = c.Value & "E"
        End If
 
    Next c

L'erreur se situe sur la ligne If Right(c.Value,2)..... etc...

Une idée ?

[Oussbaba au rhum]

salut,

j'ai pas testé mais a mon avis, entre les "OR", il faut que tu remettes

Code :

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

Right(c.Value, 2) =

devant chaque valeur (A,B,C,D,...)

dans le genre:

Code :

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

1
2
3
4
5
6
 
If Right(c.Value, 2) ="-A" Or Right(c.Value, 2) ="-B" Or _
   Right(c.Value, 2) ="-C" Or Right(c.Value, 2) ="-D" Or _
   Right(c.Value, 2) ="-E" Or Right(c.Value, 2) ="-F" Then
        c.Value = c.Value & "E"
        End If

[Pierre Fauconnier]

Bonjour

C'est du VBA de base, là... Il faut revoir les bases!!

Code :

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

1
2
 
If Right(c.Value, 2)= "-A" Or Right(c.Value, 2)= "-B" or Right(c.Value, 2)= ...

Pour alléger, tu peux utiliser une variable

Code :

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

1
2
3
4
 
dim Valeur as string
valeur=Right(c.Value, 2)
If valeur = "-A" Or valeur = "-B" or valeur = ...

Autre technique

Code :

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

1
2
3
4
5
6
7
 
dim Valeur as string
valeur=Right(c.Value, 2)
select case valeur
    case "-A", "-B", ...
        c.Value = c.Value & "E"
end select

Autre technique encore

Code :

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

1
2
3
4
 
    If InStr(1, "-A;-B;-C;...", Right(c.Value, 2)) <> 0 Then
        c.Value = c.Value & "E"
    End If

Si tu peux toutefois être sûr que right(c.value,2) ne peut pas être "A;" par exemple...


Ok?

[Commodore]

ouf merci les gars, c'était effectivement une erreur dûe a la précipitation... je vous avoue que j'ai codé comme un porc avec l'urgence

et puis, désolé pour le temps de réponse, j'ai une connection de m**de au boulot