Détection caractère dans textbox

[rudymagny]

Re Bonjour le forum,
Voilà j'ai une textbox avec un texte et je voudrais contrôler qu'il y a un caractère dans celle ci.

Exemple :
Dans ma textbox j'ai P.MT1 ou P ou P.MT2 et je voudrais faire un contrôle du type :

If Textbox.value contient P then
.....
end if

merci d'avance

 

[rudymagny]

Re : Détection caractère dans textbox

Free - Envoyez vos documents

il ne passe pas >48.8ko

 

[Pierrot93]

Re : Détection caractère dans textbox

Re

peux pas accéder à ton fichier, problème de proxy, le mieux est un tout petit fichier placé par le forum, avec uniquement le problème posé....

 

[kjin]

Re : Détection caractère dans textbox

Bonjour le fil,
Le fichier (15 ko !) en PJ à la demande de Pierrot 🙂
Je ne vois pas comment tu affiches P ou Q dans textbox3 mais bon..
A+
kjin

 

[rudymagny]

Re : Détection caractère dans textbox

voilà monsieur

 

[gilbert_RGI]

Re : Détection caractère dans textbox

comme ceci peut-être

modification dans le combobox2 pour l'effacement des items

 

[rudymagny]

Re : Détection caractère dans textbox

Re Gilbert_RGI, désolé de répondre aussi tard mais repas du dimanche oblige.
Merci pour ta réponse, ça correspond à ce que je voulais faire, j'adapte ça et je reviens vers vous car j'ai une autre question

@ tout de suite

 

[rudymagny]

Re : Détection caractère dans textbox

ça marche nickel mais je bloque sur la suite qui consiste à calculer la tolérance de cette valeur dans la textbox4

Si la combobox3 contient P ou Q
la tolérance = valeur max * 0.024

sinon
la tolérance = valeur max * 0.016

Private Sub ComboBox3_Change()
Dim valeur_max, Tol_TM As Long

    Frame3.Visible = True
    TextBox3.Value = ""
    Label6.Caption = ""
    Set f = Sheets("Feuil1")
    'Affichage de la valeur max et tolérance
    For Each c In Range(f.[C2], f.[C65536].End(xlUp))
        'Si même nom de site
        If c = Me.ComboBox1 And c.Offset(, 3) = Me.ComboBox2 And c.Offset(, -2) = "TM" And c.Offset(, 10) = Me.ComboBox3 Then
            TextBox3.Value = c.Offset(, 58)
            valeur_max = c.Offset(, 58)
            Label6.Caption = c.Offset(, 54)
        End If
    Next c
    If Me.ComboBox3.Value Like "*P*" Or Me.ComboBox3.Value Like "*P*" Then
        'Me.TextBox4.Value = "P_" & Me.TextBox3.Value
        Tol_TM = valeur_max * 0.024
    Else
    'If Me.ComboBox3.Value Like "*U*" Then
        Tol_TM = valeur_max * 0.016
    End If
    Me.TextBox4.Value = Tol_TM
End Sub

ce que je vois c'est que le :

valeur_max = c.Offset(, 58)

bloque sur le type de variable et je ne sais quel type utiliser.

retourne un texte et non une valeur
merci d'avance

 

[rudymagny]

Re : Détection caractère dans textbox

J'ai essayé un truc comme ça mais ce n'est pas mieux (utilisation fonction cdbl) :

Private Sub ComboBox3_Change()
Dim valeur_max, Tol_TM As Double

    Frame3.Visible = True
    TextBox3.Value = ""
    Label6.Caption = ""
    
    Set f = Sheets("Feuil1")
    'Affichage de la valeur max et tolérance
    For Each c In Range(f.[C2], f.[C65536].End(xlUp))
        'Si même nom de site
        If c = Me.ComboBox1 And c.Offset(, 3) = Me.ComboBox2 And c.Offset(, -2) = "TM" And c.Offset(, 10) = Me.ComboBox3 Then
            TextBox3.Value = c.Offset(, 58)
            valeur_max = c.Offset(, 58)
            Label6.Caption = c.Offset(, 54)
        End If
    Next c
    If Me.ComboBox3.Value Like "*P*" Or Me.ComboBox3.Value Like "*P*" Then
        'Me.TextBox4.Value = "P_" & Me.TextBox3.Value
        Tol_TM = CDbl(valeur_max * 0.024)
    Else
    'If Me.ComboBox3.Value Like "*U*" Then
        Tol_TM = CDbl(valeur_max * 0.016)
    End If
    Me.TextBox4.Value = Tol_TM
End Sub

 

[rudymagny]

Re : Détection caractère dans textbox

Le sujet étant différent, je lance un autre fil sur le sujet du formatage de type

 

[gilbert_RGI]

Re : Détection caractère dans textbox

simple dans votre feuil1
en colonne 58 vous avez du texte ainsi quand colonne 60
mettre , à la place du . et ça fonctionne

 

[gilbert_RGI]

Re : Détection caractère dans textbox

vous pouvez formater la valeur_max ainsi

valeur_max = Format(c.Offset(, 58).Value, "##,###0.000")