RESOLU Renvoyer valeur en fonction du dernier caractère d'une chaîne

[chris6999]

Bonjour

Je souhaiterais balayer mon tableau afin de renvoyer dans ma colonne T une valeur définie dans le code à partir de la valeur du dernier caractère de ma colonne B à condition que B soit non vide et T soit vide

ex si B dans B (non vide) dernier caractère de B = 1 alors renvoie la valeur "A" sans la colonne T (si T vide)

J'ai essayé de faire un mix de plusieurs macros trouvées dans les fils mais cela ne semble pas fonctionner :



Sub portefeuille()

Dim cel As Range

For Each cel In Range("B7:B" & Range("B65535").End(xlUp).Row)



If cel <> "" And Cells(cel.Row, 20).Value = "" And Len(Cells(cel.Row, 2)) = 1 Then
Cells(cel.Row, 20) = "a"
End If

If cel <> "" And Cells(cel.Row, 20).Value = "" And Len(Cells(cel.Row, 2)) = 2 Then
Cells(cel.Row, 20) = "B"
End If

If cel <> "" And Cells(cel.Row, 20).Value = "" And Len(Cells(cel.Row, 2)) = 3 Then
Cells(cel.Row, 20) = "C"
End If

If cel <> "" And Cells(cel.Row, 20).Value = "" And Len(Cells(cel.Row, 2)) = 4 Then
Cells(cel.Row, 20) = "D"
End If


If cel <> "" And Cells(cel.Row, 20).Value = "" And Len(Cells(cel.Row, 2)) = 5 Then
Cells(cel.Row, 20) = "E"
End If



'Etc .......

Next
End Sub



Quelqu'un verrait-il où le bas blesse?

Merci d'avance
Cordialement

 

[JCGL]

Re : Renvoyer valeur en fonction du dernier caractère d'une chaîne

Bonjour à tous,

Quid si le dernier caractère vaut 0 ?

Peux-tu essayer :

Sub portefeuille()
Dim Cel As Range, X&
For Each Cel In Range("B7:B" & Range("B65535").End(xlUp).Row)
For X = 1 To 9
Cel.Select
If Cel <> "" And Cells(Cel.Row, 20).Value = "" And Right(Cells(Cel.Row, 2), 1) = X Then
Cells(Cel.Row, 20) = Chr(64 + X)
End If
Next X
Next
End Sub

A+ à tous

 

[xhudi69]

Re : Renvoyer valeur en fonction du dernier caractère d'une chaîne

Bonjour chris6999, le Forum,

Comme ceci peut-être:

Sub portefeuille()
Dim DerChar As String
Dim cel As Range

For Each cel In Range("B7:B9" & Range("B65535").End(xlUp).Row)
    If cel <> "" And Cells(cel.Row, 20).Value = "" Then
            DerChar = Right(Cells(cel.Row, 2), 1)
        If DerChar = 1 Then
            Cells(cel.Row, 20) = "a"
        End If
        If DerChar = 2 Then
            Cells(cel.Row, 20) = "b"
        End If
        If DerChar = 3 Then
            Cells(cel.Row, 20) = "c"
        End If
        If DerChar = 4 Then
            Cells(cel.Row, 20) = "d"
        End If
        ' etc....etc....etc....
    End If
Next cel
End Sub

EDIT: ReBonjour JCGL 🙂 (téléscopage en règle, mais comme dans le code tu venait de droite 😉 )

@+ 😎

 

[chris6999]

Re : Renvoyer valeur en fonction du dernier caractère d'une chaîne

Bonjour JCGL

Je n'ai pas mis le cas 0 car il s'agit d'un exemple.

Merci pour ta proposition que je vais tester de ce pas.
Cordialement

Bonjour à tous,

Quid si le dernier caractère vaut 0 ?

Peux-tu essayer :



A+ à tous

 

[chris6999]

Re : Renvoyer valeur en fonction du dernier caractère d'une chaîne

Après quelques tests je comprends que ton code renvoie vers le rang des lettres dans l'alphabet.
En fait lec hoix des valeurs A, B, C ... était donné à titre d'exemple.

Merci quand même
Je me rends compte que j'aurais du être plus explicite dans la formulation de ma demande

Bon après midi

Bonjour à tous,



A+ à tous

 

[chris6999]

Re : Renvoyer valeur en fonction du dernier caractère d'une chaîne

Bonjour chris6999, le Forum,

Comme ceci peut-être:

Bonjour et merci xhudi69
Cela fonctionne très bien
Bon après midi
Cordialement

 

[JCGL]

Re : Renvoyer valeur en fonction du dernier caractère d'une chaîne

Bonjour à tous,

Je ne comprends pas....

Le code de XHudi et le mien renvoient tous les deux des lettres (majuscules pour moi et minuscules pour notre ami)

Et tu écris que mon code ne convient pas...

A+ à tous

 

[xhudi69]

Re : Renvoyer valeur en fonction du dernier caractère d'une chaîne

ReBonjour,

@ JCGL: ton code fonctionne super bien, mais chris6999 veut certainement dire que c'est pas forcément des lettres qui seront appliquées, encore aurait-il fallut l'indiquer dans le premier post isn't it 😉

@+ 😎

 

[chris6999]

Re : Renvoyer valeur en fonction du dernier caractère d'une chaîne

J'ai du mal m'exprimer. Le code fonctionne très bien:
1 renvoie vers A
2 renvoie vers B etc

Sauf que dans mon fichier réel je dois pouvoir définir à l'intérieur du code des valeurs qui ne correspondent pas forcemment à A,B, C etc
Comme le dit xhudi6, j'aurais du être plus précise dans mon post.
Encore toutes mes excuses

Cordialement

Bonjour à tous,

Je ne comprends pas....

Le code de XHudi et le mien renvoient tous les deux des lettres (majuscules pour moi et minuscules pour notre ami)

Et tu écris que mon code ne convient pas...

A+ à tous