Caractère " dans un Msgbox

Le
Alf
Bonjour à tous
Caractère " (double quote)
J'essaie de le faire apparaitre en utilisant Chr(22) mais ça ne marche=
pas.

Merci pour votre aide
Alf
  • Partager ce contenu :
Vos réponses
Trier par : date / pertinence
Péhemme
Le #26556819
Bonjour Alf,
Essaie :
Sub Test()
Dim MonCar
Dim k
k = 34
MonCar = Chr(k)
MsgBox MonCar
End Sub
Cela doit te donner un caractère ".
Bonne journée
Michel
"Alf" a écrit dans le message de groupe de discussion :

Bonjour à tous
Caractère " (double quote)
J'essaie de le faire apparaitre en utilisant Chr(22) mais ça ne marche pas.
Merci pour votre aide
Alf
MichD
Le #26556818
Le 03/10/20 à 03:04, Alf a écrit :
Bonjour à tous
Caractère " (double quote)
J'essaie de le faire apparaitre en utilisant Chr(22) mais ça ne marche pas.
Merci pour votre aide
Alf


Bonjour,
Il y a aussi ceci :
MsgBox """" & "Bonjour à tous" & """"
MichD
Michel__D
Le #26556817
Bonjour,
Le 03/10/2020 à 09:04, Alf a écrit :
Bonjour à tous
Caractère " (double quote)
J'essaie de le faire apparaitre en utilisant Chr(22) mais ça ne marche pas.
Merci pour votre aide
Alf

22 c'est la valeur Hexadécimale (base 16) mais comme tu as écrit Chr(22) la valeur que tu dois
fournir est la valeur décimale (base 10).
Donc 22 en Hexa est égal à 34 en décimal.
MichD
Le #26556816
Le 03/10/20 à 06:20, MichD a écrit :
MsgBox """" & "Bonjour à tous" & """"

Tu trouves qu'il y beaucoup de "".
pourquoi utilisé ceci : MsgBox """Bonjour à tous"""
OU si tu veux simplement afficher le symbole " dans un msgbox,
il y a ceci :
MsgBox """"
Le principe est simple, il s'agit de doubler le ".
Les 2 symboles " externes dans l'expression """" sont là pour entourer
n'importe quelle chaîne de caractères (texte) que l'on veut afficher.
Comme tu veux afficher comme texte le symbole ", tu dois le dédoubler "".
Un autre exemple d'une chaîne de caractère, si l'on désire que "toto"
soit entouré de guillemets on doit les dédoubler comme précédemment
puisque l'expression "toto" fait partie d'un ensemble d'une chaîne de
caractère déjà délimité par des guillemets.
MsgBox "Le nom de l'onglet de la feuille est : ""toto"""
Le principe est très utile lorsque l'on désire d'utiliser des fonctions
de la feuille de calcul en vba, il y a de quoi s'y perdre... Un exemple
: ;-))
'---------------------------------------
Sub FormuleEnVBA()
Dim Adr As String, Adr1 As String
Dim Adr2 As String, Adr3 As String
Dim Rg As Range, A As Variant
Dim Crit As String, Crit1 As String, Crit2 As String
With Worksheets("Feuil1") 'à déterminer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Crit = "MonModèle"
Crit1 = "Diamètre"
Crit2 = "Espacement"
With Rg
Adr = .Parent.Name & "!" & .Address
Adr1 = .Offset(, 1).Parent.Name & "!" & .Offset(, 1).Address
Adr2 = .Offset(, 2).Parent.Name & "!" & .Offset(, 2).Address
Adr3 = .Offset(, 3).Parent.Name & "!" & .Offset(, 3).Address
End With
MaFormule = "=SumProduct((" & Adr & "=""" & Crit & """)*" & _
"(" & Adr1 & "=""" & Crit & """)*" & _
"(" & Adr2 & "=""" & Crit2 & """)*" & _
"(" & Adr3 & "))"
A = Evaluate(" & maformule & ")
MsgBox A
'si tu n'as pas besoin de modifier les variables, tu peux utiliser ceci:
A =
[SumProduct((A1:A5="Modèle")*(B1:B5=Diamètre)*(C1:C5=Espacement)*(D1:D5))]
MsgBox A
End Sub
'---------------------------------------
MichD
Alf
Le #26556815
Le samedi 3 octobre 2020 à 14:23:11 UTC+2, MichD a écrit :
Le 03/10/20 à 06:20, MichD a écrit :
MsgBox """" & "Bonjour à tous" & """"

Tu trouves qu'il y beaucoup de "".
pourquoi utilisé ceci : MsgBox """Bonjour à tous"""
OU si tu veux simplement afficher le symbole " dans un msgbox,
il y a ceci :
MsgBox """"
Le principe est simple, il s'agit de doubler le ".
Les 2 symboles " externes dans l'expression """" sont là pour entour er
n'importe quelle chaîne de caractères (texte) que l'on veut aff icher.
Comme tu veux afficher comme texte le symbole ", tu dois le dédouble r "".
Un autre exemple d'une chaîne de caractère, si l'on désire que "toto"
soit entouré de guillemets on doit les dédoubler comme pré cédemment
puisque l'expression "toto" fait partie d'un ensemble d'une chaîne d e
caractère déjà délimité par des guillemets.
MsgBox "Le nom de l'onglet de la feuille est : ""toto"""
Le principe est très utile lorsque l'on désire d'utiliser des f onctions
de la feuille de calcul en vba, il y a de quoi s'y perdre... Un exemple
: ;-))
'---------------------------------------
Sub FormuleEnVBA()
Dim Adr As String, Adr1 As String
Dim Adr2 As String, Adr3 As String
Dim Rg As Range, A As Variant
Dim Crit As String, Crit1 As String, Crit2 As String
With Worksheets("Feuil1") 'à déterminer
Set Rg = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Crit = "MonModèle"
Crit1 = "Diamètre"
Crit2 = "Espacement"
With Rg
Adr = .Parent.Name & "!" & .Address
Adr1 = .Offset(, 1).Parent.Name & "!" & .Offset(, 1).Address
Adr2 = .Offset(, 2).Parent.Name & "!" & .Offset(, 2).Address
Adr3 = .Offset(, 3).Parent.Name & "!" & .Offset(, 3).Address
End With
MaFormule = "=SumProduct((" & Adr & "=""" & Crit & """)*" & _
"(" & Adr1 & "=""" & Crit & """)*" & _
"(" & Adr2 & "=""" & Crit2 & """)*" & _
"(" & Adr3 & "))"
A = Evaluate(" & maformule & ")
MsgBox A
'si tu n'as pas besoin de modifier les variables, tu peux utiliser ceci:
A =
[SumProduct((A1:A5="Modèle")*(B1:B5=Diamètre)*(C1:C5=Espa cement)*(D1:D5))]
MsgBox A
End Sub
'---------------------------------------
MichD

Merci à tous pour ces infos qui me sont très utiles....
Poster une réponse
Anonyme