Formule STXT EN VBA

Version imprimable

Formule STXT EN VBA

Bonjour à tous,

Je souhaiterais mettre un commentaire en colonne M "ANNULATION TECHNIQUE" si et seulement si en colonne F, il y a la présence "S020A" sachant que la colonne F peut contenir "S020R HANDI EXPERT (JAM.GIRIN) 1 031" ou "S020A HANDI EXPERT (JM.G) 1 031" et différents autres types de libellé. Moi il faut juste la présence du début de "S020A" et je mets mon commentaire en colonne M.

Moi je l'ai traduis par une fonction excel que je voudrais mettre en VBA mais je suis pas sur c'est c'est utile de faire un STXT

Code:

SI(STXT(F3;5;1)="A";"ANNULATION TECHNIQUE";"")

Voici mon code VBA que j'ai essayer de faire mais qui fonctionne pas
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Sub Test() With Sheets("SUIVTRANS EN COURS") derligne = .Range("A" & Rows.Count).End(xlUp).Row For j = 2 To derligne 'ANNULATION TECHNIQUE (5) If .Cells(j, "F").Value = Mid("S020A", 5, 1) Then .Cells(j, "M") = "ANNULATION TECHNIQUE" End If Next j End With End Sub
En fait je dis que si le 5eme caractère correspond à un "A" alors je mets "ANNULATION TECHNIQUE" sinon je mets rien.

Merci de vos avis et de vos solutions.

Cordialement,

Code:

1
2
3
4
5
With Sheets("SUIVTRANS EN COURS")
    For j = 2 To .Range("A" & Rows.Count).End(xlUp).Row
        If Mid(.Cells(j, "F").Text, 5, 1) = "A" Then .Cells(j, "M").Value = "ANNULATION TECHNIQUE" Else .Cells(j, "M").Value = ""
    Next j
End With

26/12/2018, 17h01
OBADJ

Merci ça fonctionne sauf qu'il ma sorti "KRL AR SUISSE VIRT DU 18 10 2018"

En revanche, il me donne bien les bon mais il faut pas qu'il me donne ceux du dessus. Je pense il faudrait rajouter : faut que les 2 PREMIERS CARACTÈRES COMMENCENT PAR "S0" et que le 5eme caractère soit "A"
26/12/2018, 17h04
Menhir

Code:

=SI(ESTERR(TROUVE(F3;"S020A"));"";"ANNULATION TECHNIQUE")
26/12/2018, 17h05
OBADJ

Citation:

Envoyé par Menhir

Code:

=SI(ESTERR(TROUVE(F3;"S020A"));"";"ANNULATION TECHNIQUE")

Il me le faut en VBA svp
26/12/2018, 17h08
patricktoulon

re

re
ben pourquoi tu teste pas directement "S020A" au lieu du mid("...",5,1) !!!??????
26/12/2018, 17h10
Menhir

Citation:

Envoyé par OBADJ

Il me le faut en VBA svp

Applique cette formule avec un FormulaLocal appliqué à la cellule concernée.
https://msdn.microsoft.com/fr-fr/lib...1(v=office.15)
Ou utilise la méthode Evaluate de Application.
https://docs.microsoft.com/fr-FR/off...ation.evaluate
Ou l'une des multiples autres méthodes permettant d'utiliser les formules Excel en VBA.

Même si je n'en vois vraiment pas l'intérêt...
26/12/2018, 17h14
OBADJ

Citation:

Envoyé par patricktoulon

re
ben pourquoi tu teste pas directement "S020A" au lieu du mid("...",5,1) !!!??????

Ca ne fonctionne pas car ce n'est pas une valeur exacte, il faut qu'il le retrouve parmis tous les autre carretères meme si il se trouve au début

Code:

S020A

...
26/12/2018, 17h29
patricktoulon

re

re
re
suite a ma proposition tu dis

Citation:

Merci ca fonctionne sauf qu'il ma sorti "KRL AR SUISSE VIRT DU 18 10 2018"

En revanche, il me donne bien les bon mais il faut pas qu'il me donne ceux du dessus. Je pense il faudrait rajouter : faut que les 2 PREMIERS CARRECTERES COMMENCE PAR "S0" et que le 5eme caractère soit "A"

apres tu dis

Citation:

Ca ne fonctionne pas car ce n'est pas une valeur exacte, il faut qu'il le retrouve parmis tous les autre carretères meme si il se trouve au début

alors moi je te dis si"s020A" ne peut pas etre pris comme reference et que ma proposition te donne certains qui ne doive pas etre pris en compte comment veux tu que vba devine tes intentions ?????
d'ailleurs la 2d sitation en dis long meme si il se trouve au début

autrement dit c'est pas forcement le debut ca peut etre donc au milieu du texte et donc le mid(5,1) ne ressort pas
conclusion soit tu t'explique tres mal soit tu n'as pas bien compris ton environnement vba
26/12/2018, 17h35
OBADJ

effectivement ça peut être confus sauf que malheureusement, si je prend en compte le 5 eme caractère ="A" il me sort 1 autre critère que je ne veux pas

Donc on peut resté avec ton code qui et bien mais peut-on juste rajouter que les 2 premiers caractères soit = "S0" et le 5eme caractère toujours = "A".
26/12/2018, 17h44
OBADJ

C'est bon j'ai trouver et compris le fonctionnement !

Merci a tous et merci a toi Patrick :D