Fonction replace avec une variable like

Version imprimable

14/03/2024, 13h36
alea83

Fonction replace avec une variable like
Bonjour à tous,

J'ai un code de remplacement qui doit trouver le mot "Positif" et changer la couleur, le code fonctionne bien il me change bien la couleur dés qu'il rencontre le mot "positif", mon souci vient du fait que le mot "positif" est dans une chaine du genre N° Ech x Positif xxx Mg/Kg, et j'aimerai que la ligne entière soit en rouge..
J'ai tenté avec une variable vart LIKE "*Positif*Mg/Kg" et utiliser vart à la place de "positif, mais sans succès j'ai aussi essayé avec Mid.. mais Idem..
Avez vous déjà eu ce cas ?
Merci d'avance.
Code:

1 2 3 strTexte = Me.HAPQLConc strTexte = Replace(strTexte, "Positif", "Positif") 'mot en rouge Me.HAPQLConc = strTexte
14/03/2024, 17h38
marot_r
Bonjour.

Si tes données sont uniquement constituées d'une ligne tu peux faire quelque chose comme :
Code:

1 2 3 if strTexte like "*Positif*" then strTexte ="" & strTexte & "" end if
Si tu as besoin de plus compliqué alors il falloir découper ton texte en morceaux, gérer ces morceaux et reconstituer la chaîne après.

Pour le découpage tu peux utiliser Split() et pour la reconstruction Join(), pratique mais pas toujours utilisables.
Comme tu l'as dit tu peux voir Mid(), Left(), Right(), inStr(), inStrRv() qui sont des fonctions pour manipuler des morceaux de chaînes ou trouver des choses dans une chaîne.

A+
14/03/2024, 19h11
Robert1957
Bonjour alea83, marot_r,

Si j'ai bien compris la question, une autre façon d'aborder le problème est d'utiliser la fonction "InStr" qui renvoie la position de la chaine recherchée dans une chaine de caractères. Si pas trouvé renvoie 0.
Code:

1 2 3 4 strTexte = Me.HAPQLConc If InStr(1, strTexte , "Positif", 1) > 0 then strTexte = "" & strTexte & "" End if
Bonne journée
15/03/2024, 09h52
alea83

Merci de m'aider

Bonjour,

Merci pour votre aide.

Ci-dessous ce que contient mon champ qui vient de la lecture d'un recordset : en fait dés qu'il y a le mot positif il faudrait que les chaines concernées soient en rouge : Ech N° 2 Positif 29,89 Mg/Kg, c'est à dire 9 caractères avant et 12 aprés pour cette exemple, ca peut aussi être aprés le "-" et avant le prochain "-" mais je ne sais pas comment le faire.

Les résultats HAP Quantitatif :
-Ech N° 1 Non demandé, taux estimé <250 ppm-Ech N° 2 Positif 29,89 Mg/Kg-Ech N° 3 Négatif <0,5 Mg/Kg-Ech N° 4 Positif 24,82 Mg/Kg
15/03/2024, 14h55
alea83

Avec le code au-dessus est ce possible ?
Re Bonjour,

Je ne trouve pas.. peut être est ce possible avant cette étape ou je récupère les résultats de la boucle :
Avec un If est ce possible ?
Code:

1 2 3 4 While Not rst.EOF StrResult = StrResult & "-" & "Ech N° " & rst.Fields![Ech] & " " & rst.Fields![HAPQuantitatifFin] rst.MoveNext Wend
15/03/2024, 15h32
alea83

Essai avec le code du dessus mais html dans la formule ???

Re Bonjour,

Je ne trouve pas.. peut être est ce possible avant cette étape ou je récupère les résultats de la boucle :
du genre :

Code:

StrResult = IIf([HAPQuantitatifFin] Like "*Positif*", "StrResult & "- Ech N° " & rst.Fields![Ech] & " " &rst.Fields![HAPQuantitatifFin]",StrResult & "- Ech N° " & rst.Fields![Ech] & " " &rst.Fields![HAPQuantitatifFin])

Mais là le souci ce sont les quotes.. je ne sais plus quoi essayer

Bonjour alea83,

Si la structure de vos données est toujours comme indiqué dans le post #4 voici une routine qui va diviser la chaine de caractères en se servant du caractère "-". Ensuite on va analyser chaque partie de la chaine pour trouver la ou les parties qui contiennent "Positif" et finalement on recrée la chaine en incluant le html pour mettre en rouge l'échantillon #2 et #4.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Private Sub testPosifif() Dim sTexte As String Dim sResult As String Dim vaTexte As Variant Dim i As Integer sTexte = "-Ech N° 1 Non demandé, taux estimé <250 ppm-Ech N° 2 Positif 29,89 Mg/Kg-Ech N° 3 Négatif <0,5 Mg/Kg-Ech N° 4 Positif 24,82 Mg/Kg" vaTexte = Split(sTexte, "-") For i = 1 To UBound(vaTexte) 'Les tableaux commencent à 0 mais dans votre cas il n'y a pas de données avant le premier "-" If InStr(1, vaTexte(i), "Positif", 1) > 0 Then 'On vérifie si "Positif" vaTexte(i) = "-" & vaTexte(i) & "" 'Oui on met la couleur sResult = sResult & vaTexte(i) 'on inscrit dans la chaine de caractères Else sResult = sResult & "-" & vaTexte(i) 'Non on inscrit dans la chaine de caractères End If Next i Debug.Print sResult End Sub
Le résultat:

Code:

sResult = "-Ech N° 1 Non demandé, taux estimé <250 ppm-Ech N° 2 Positif 29,89 Mg/Kg-Ech N° 3 Négatif <0,5 Mg/Kg-Ech N° 4 Positif 24,82 Mg/Kg"

Vous pourriez modifier la sub pour en faire une fonction et passer en argument votre champ ou enregistrement et en sortie le résultat du traitement.

Bonne journée

Merci..

Bonjour,

Merci beaucoup je vais tester cela calmement car la migraine est déjà là.;
J'en étais sur cela du coup, mais je vais d'abord essayer votre solution.
Merci encore je vous tiens au courant..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
'crée une boucle sur les enregistrements de la colonne 6 (HAPQuantitatifFin)
StrResult = ""
While Not rst.EOF
If [HAPQuantitatifFin] Like "Positif*" Then
StrResult = StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]"
    StrResult = "<font color=""#ED1C24"">" & StrResult & "</font>"
    rst.MoveNext
 ElseIf [HAPQuantitatifFin] Like "Négatif*" Then
StrResult = StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]"
    StrResult = "<font color=""#22B14C"">" & StrResult & "</font>"
    rst.MoveNext
    Else
StrResult = StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]"
    StrResult = "<font color=""#000000"">" & StrResult & "</font>"
    rst.MoveNext
 
Wend

15/03/2024, 16h36
alea83

Re,

Re,

J'ai quand même testé ce que j'avais tapé, il me donne un message Wend sans While alors que j'ai bien un while au départ...
Je vais tester votre code..
15/03/2024, 17h55
tee_grandbois

bonsoir,
en réalité c'est un End If qui manque avant le Wend

Bonjour et merci

Bonjour,
Merci pour votre réponse, j'ai bien mis le End If et pareil ca me plante le pc obligé fin de tache sur gestionnaire..
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 'crée une boucle sur les enregistrements de la colonne 6 (HAPQuantitatifFin) StrResult = "" While Not rst.EOF StrResult = StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]" If rst.Fields![HAPQuantitatifFin] Like "Positif*" Then StrResult = "" & StrResult & "" ElseIf rst.Fields![HAPQuantitatifFin] Like "Négatif*" Then StrResult = "" & StrResult & "" Else StrResult = "" & StrResult & "" rst.MoveNext End If Wend
J'ai essayé votre code en modifiant stext = [HAPQuantitatifFin] et en le mettant à la place de ma boucle et il bug en message 2465 ne trouve pas le champ..

avec votre code

Re Bonjour,

Avec votre code, j'ai laissé le texte en dur pour tester sans mettre le nom du champ à la place, et du coup il bug sur la dernière partie : Me.resultat.ControlSource = "=" & """ Les résultats HAP Quantitatif :" & vbCrLf & StrResult & """"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'crée une boucle sur les enregistrements de la colonne 6 (HAPQuantitatifFin)
Dim sTexte                    As String
Dim vaTexte                   As Variant
Dim i                         As Integer
 
sTexte = "-Ech N° 1 Non demandé, taux estimé <250 ppm-Ech N° 2 Positif 29,89 Mg/Kg-Ech N° 3 Négatif <0,5 Mg/Kg-Ech N° 4 Positif 24,82 Mg/Kg"
vaTexte = Split(sTexte, "-")
 
For i = 1 To UBound(vaTexte)  'Les tableaux commencent à 0 mais dans votre cas il n'y a pas de données avant le premier "-"
    If InStr(1, vaTexte(i), "Positif", 1) > 0 Then  'On vérifie si "Positif"
        vaTexte(i) = "<font color=""#ED1C24"">-" & vaTexte(i) & "</font>" 'Oui on met la couleur
        StrResult = StrResult & vaTexte(i) 'on inscrit dans la chaine de caractères
    Else
        StrResult = StrResult & "-" & vaTexte(i) 'Non on inscrit dans la chaine de caractères
    End If
Next i
Debug.Print StrResult
 
  'affiche les résultats
   Me.resultat.ControlSource = "=" & """ Les résultats HAP Quantitatif :" & vbCrLf & StrResult & """"

18/03/2024, 14h24
tee_grandbois

bonjour,

Citation:

Merci pour votre réponse, j'ai bien mis le End If et pareil ca me plante le pc obligé fin de tache sur gestionnaire..

J'ai essayé votre code en modifiant stext = [HAPQuantitatifFin] et en le mettant à la place de ma boucle et il bug en message 2465 ne trouve pas le champ..

moi, (tee_grandbois) je t'ai répondu pour l'erreur du "message Wend sans While": tu as bien ajouté un End If mais en même temps, tu as déplacé rst.MoveNext dans le Else ... End If d'où l'impossibilité de ton code de se terminer.
l'instruction Movenext doit toujours rester dans la boucle du While ... Wend en dehors de tout If ... End If
Pour ne pas se tromper, il faut toujours la placer juste avant le Wend et pas ailleurs...
18/03/2024, 14h36
Robert1957
Bonjour alea83,

Je vous répond pour la deuxième partie...
Cette ligne:

Code:

Me.resultat.ControlSource = "=" & """ Les résultats HAP Quantitatif :" & vbCrLf & StrResult & """"

si votre champ "resultat" est au format "Texte enrichi" est a remplacé par ceci:

Code:

Me.resultat = "Les résultats HAP Quantitatif : " & sResult

Si vous tenez à passer par le "ControlSource" de l'objet il faut faire comme suit après la ligne 16 du post #12:
Code:

1 2 sResult = "Les résultats HAP Quantitatif : " & sResult Me.resultat.ControlSource = "=" & Chr(34) & sResult & Chr(34)
et ça va fonctionné. Vous remarquerez que tant qu'a utilisé du html on l'utilise partout, c'est pour cette raison le " " et tant qu'a être dans les remarques, il n'est pas nécessaire d'avoir des guillemets ici (ligne 11 du post #12:

Code:



vous pouvez l'écrire simplement comme suit:

Code:



Bonne journée

re essai

Bonjour,

Merci pour votre aide car c'est un code compliqué pour mon niveau.

J'ai refait en modifiant la position de Next, et il bloque message erreur dans l'expression sur la dernière ligne : Me.resultat.ControlSource = "=" & """ Les résultats HAP Quantitatif :" & vbCrLf & StrResult & """" (avec mon ancien code simple, je n'avais pas d'erreur sur cette ligne..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'crée une boucle sur les enregistrements de la colonne 6 (HAPQuantitatifFin)
StrResult = ""
While Not rst.EOF
StrResult = StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]"
If rst.Fields![HAPQuantitatifFin] Like "Positif*" Then
StrResult = "<font color=""#ED1C24"">" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]" & "</font>"
ElseIf rst.Fields![HAPQuantitatifFin] Like "Négatif*" Then
StrResult = "<font color=""#22B14C"">" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]" & "</font>"
Else
StrResult = "<font color=""#000000"">" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]" & "</font>"
    End If
    rst.MoveNext
Wend
  'affiche les résultats
   Me.resultat.ControlSource = "=" & """ Les résultats HAP Quantitatif :" & vbCrLf & StrResult & """"

18/03/2024, 14h46
alea83

je n'avais pas vu

Bonjour,
Désolée je n'avais pas vu la réponse suivante.. je reteste..

je dois confondre les codes

Re Bonjour à vous deux,

je dois confondre les lignes de code, maintenant j'ai ce résultat :
-Ech N° 1 rst.Fields![HAPQuantitatifFin]-Ech N° 2 rst.Fields![HAPQuantitatifFin]-Ech N° 3 rst.Fields![HAPQuantitatifFin]-Ech N° 4 rst.Fields![HAPQuantitatifFin]-Ech N° 1 rst.Fields![HAPQuantitatifFin]-Ech N° 2 rst.Fields![HAPQuantitatifFin]-Ech N° 3 rst.Fields![HAPQuantitatifFin]-Ech N° 4 rst.Fields![HAPQuantitatifFin]

J'ai du faire de multiples erreurs.. car je n'ai plus les valeurs et pas de couleur automatiquement..

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
Private Sub MAJConclusion3()
'Mise à jour des champ AmianteFin etc...
DoCmd.OpenQuery "AdPrestationMAJ", , acReadOnly
DoCmd.SetWarnings False
 
'Mise à jour de la conclusion du rapport
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim StrResult As String
Dim var As Integer
var = Me.NUME
 
Set db = Application.CurrentDb
Set rst = db.OpenRecordset("SELECT AdPrestation.N0Info, AdPrestation.Ech, AdPrestation.PrestationAd, AdPrestation.AmianteFin, AdPrestation.HAPQualitatifFin, AdPrestation.HAPQuantitatifFin FROM AdPrestation WHERE AdPrestation.N0Info =" & var & ";")
 
'crée une boucle sur les enregistrements de la colonne 6 (HAPQuantitatifFin)
StrResult = ""
While Not rst.EOF
StrResult = StrResult & "-Ech N° " & rst.Fields![Ech] & " " & rst.Fields![HAPQuantitatifFin]
'If rst.Fields![HAPQuantitatifFin] Like "Positif*" Then
'StrResult = "<font color=""#ED1C24"">" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]" & "</font>"
'ElseIf rst.Fields![HAPQuantitatifFin] Like "Négatif*" Then
'StrResult = "<font color=""#22B14C"">" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]" & "</font>"
'Else
'StrResult = "<font color=""#000000"">" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & " rst.Fields![HAPQuantitatifFin]" & "</font>"
'    End If
    rst.MoveNext
Wend
  'affiche les résultats
 
   Me.resultat.ControlSource = "=" & """ Les résultats HAP Quantitatif :" & vbCrLf & StrResult & """"
 
    DoCmd.GoToControl "[resultat]"
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToControl "[HAPQTConc]"
    DoCmd.RunCommand acCmdPaste
'strTexte = Me.HAPQTConc
'strTexte = Replace(strTexte, "Positif", "<font color=""#ED1C24"">Positif</font>") 'mot en rouge
'Me.HAPQTConc = strTexte
Dim sTexte                    As String
Dim vaTexte                   As Variant
Dim i                         As Integer
Dim sresult as string 
sTexte = Me.HAPQTConc
vaTexte = Split(sTexte, "-")
 
For i = 1 To UBound(vaTexte)  'Les tableaux commencent à 0 mais dans votre cas il n'y a pas de données avant le premier "-"
    If InStr(1, vaTexte(i), "Positif", 1) > 0 Then  'On vérifie si "Positif"
        vaTexte(i) = "<font color=""#ED1C24"">-" & vaTexte(i) & "</font>" 'Oui on met la couleur
        sresult = sresult & vaTexte(i) 'on inscrit dans la chaine de caractères
    Else
        sresult = sresult & "-" & vaTexte(i) 'Non on inscrit dans la chaine de caractères
    End If
Next i
Debug.Print StrResult
Me.HAPQTConc = StrResult
StrResult = "Les résultats HAP Quantitatif :<br>" & sresult
Me.resultat.ControlSource = "=" & Chr(34) & sresult & Chr(34)
 
rst.Close
Set rst = Nothing
Set db = Nothing
MsgBox "les résultats sont prêts"
End Sub

18/03/2024, 16h09
Robert1957
Bonjour alea83,

Il y a en effet beaucoup de code assez incompréhensible.
- Ligne 3, pourquoi ouvrir cette requête.
- Ligne 4, pourquoi supprimer les avertissements.
- Ligne 30, insérer un Debug.Print StrResult pour voir le résultat de votre concaténation. Est-ce bien le résultat attendu?
- Ligne 31, pourquoi utiliser le "ControlSource" ? Cette ligne est inutile puisque vous aller affecter autres données plus loin dans votre code. De plus cette ligne (je n'ai pas testé) doit faire planter le code.
- Ligne 33 à 36, pourquoi faire un copier coller puisque vous avez déjà les données dans la variable StrResult et surtout pourquoi affecter des données puisque vous allez modifier plus loin dans le code.
- Ligne 44, inutile de passer par le contrôle Me.HAPQTConc puisqu'on a la même valeur dans la variable StrResult.
- Ligne 46, il faudrait remettre la variable StrResult = "" (vide) sinon on traine les anciennes données.
- Ligne 55, devrait vous donner un résultat du genre:
 
 Code:
 
 "-Ech N° 1 Non demandé, taux estimé <250 ppm-Ech N° 2 Positif 29,89 Mg/Kg-Ech N° 3 Négatif <0,5 Mg/Kg-Ech N° 4 Positif 24,82 Mg/Kg"
- Ligne 56 et 58, vous inscrivez dans un premier champ la valeur de la variable StrResult et ensuit ajoutez la ligne 57 et inscrivez la valeur dans un deuxième champ, est-ce bien ce que vous désirez?
Bonne corrections

Ouf ca marche enfin.. Merci à vous

Bonjour,

Super ca marche enfin..
Merci encore pur votre aide car j'ai passé beaucoup de temps sur cette conclusion.;
Je vous souhaite une trés bonne journée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
'crée une boucle sur les enregistrements de la colonne 6 (HAPQuantitatifFin)
StrResult = ""
While Not rst.EOF
'StrResult = StrResult & "-Ech N° " & rst.Fields![Ech] & " " & rst.Fields![HAPQuantitatifFin]
If rst.Fields![HAPQuantitatifFin] Like "Positif*" Then
StrResult = "<font color=#ED1C24>" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & rst.Fields![HAPQuantitatifFin] & "</font>"
ElseIf rst.Fields![HAPQuantitatifFin] Like "Négatif*" Then
StrResult = "<font color=#22B14C>" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & rst.Fields![HAPQuantitatifFin] & "</font>"
Else
StrResult = "<font color=#000000>" & StrResult & "-Ech N° " & rst.Fields![Ech] & " " & rst.Fields![HAPQuantitatifFin] & "</font>"
    End If
    rst.MoveNext
Wend
  'affiche les résultats
 
   Me.resultat.ControlSource = "=" & """ Les résultats HAP Quantitatif :" & vbCrLf & StrResult & """"
 
    DoCmd.GoToControl "[resultat]"
    DoCmd.RunCommand acCmdCopy
    DoCmd.GoToControl "[HAPQTConc]"
    DoCmd.RunCommand acCmdPaste
rst.Close
Set rst = Nothing
Set db = Nothing
MsgBox "les résultats sont prêts"
End Sub

18/03/2024, 16h26
alea83

Les rpéonses à vos questions

Re Bonjour,

Oui en effet vous avez raison j'ai mélangé les deux codes.. en fait je me sers du champ indépendant "resultat" pour copier les valeurs chacune leur tour dans les champs de la table, je ne peux pas de ce que j'ai vu copier directement dans les champs définitifs (en fait j'ai trois champs de conclusion, donc j'ai 3 fois ce code avec une différence unique c'est la valeur de la colonne la 4, ensuite la 5 et à la fin la 6.
J'aurai préféré ne faire qu'un code en effet..

Merci encore pour votre aide qui est précieuse..