Aide sur Right

[Temjeh]

Bonjour

Je cherche à tester le dernier caractère et si 4 revien à 1(Plutot 4)

If Right(Range("A1"), 1) = 4 Then
Right(Range("A1"), 1) = 1
End If

If Right(Range("A1"), 1) = 4 Then
Right(Range("A1"), 1) = Right(Range("A1"), 1) - 3
End If

...me met erreur d'objet

Merci

Temjeh

 

[wilfried_42]

Re : Aide sur Right

Bonjour Temjeh

Right, left, mid traitent des chaines Alpha

If right(Range("A1"),1) = "3" then
ou
If rigth(cstr(Range("A1")),1) = "3" then

 

[Temjeh]

Re : Aide sur Right

Ok merci je comprend un peu plus mais je l'écris mal

Le voici au complet:

Met en A1 la date de demain et le chiffre 1 à la fin et à chaque clic ajoute +1 à la fin saurf que aulieu de tomber à 4 reviens à 1

i = Format(Now + 1, "dd/mm/yyyy")
z = Right(Range("A1"), 1) + 1
Range("A1") = WorksheetFunction.Proper(Format(i, "dddd dd mmmm yyyy")) & " " & z

C'est ici que ca bug

If Right(Range("A1"), 1) = "3" Then
Right(Range("A1"), 1) = "1"
End If

Merci

 

[Spitnolan08]

Re : Aide sur Right

Bonjour Temjeh, Wilfried,
La syntaxe du IF est bonne c'est la loigne suivante qui ne va pas. Essaie un truc du genre :

If Right(Range("A1"), 1) = 4 Then
Range("A1") = Replace(Range("A1").Value, "4", "1", 4)
End If

Cordialement

 

[Temjeh]

Re : Aide sur Right

Merci j'ai trouvé

i = Format(Now + 1, "dd/mm/yyyy")

If Range("A1") = "" Then
Range("A1") = WorksheetFunction.Proper(Format(i, "dddd dd mmmm yyyy")) & " " & 1
Else
If Right(Range("A1"), 1) = 3 Then
Range("A1") = WorksheetFunction.Proper(Format(i, "dddd dd mmmm yyyy")) & " " & 1
Else
Range("A1") = WorksheetFunction.Proper(Format(i, "dddd dd mmmm yyyy")) & " " & Right(Range("A1"), 1) + 1
End If
End If

Merci aussi Spit je test et garde cela en banque

A+

Temjeh

 

[Spitnolan08]

Re : Aide sur Right

Re,
Heu..., c'est plutôt ça qu'il faut utiliser:

If Right(Range("A1"), 1) = 4 Then
Range("A1") = Replace(Range("A1").Text, Right(Range("A1"), 1), "1")
End If

La première version remplace toute la chaine par 1...
Cordialement

 

[Temjeh]

Re : Aide sur Right

Ok merci mon trouble est réparer mais

J'examine la fonction Replace

Merci

Temjeh