Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Brat'ac
Brat'ac avait soumis l'idée :
Bonjour, J'ai des cellules au format téléphone, si je récupère le contenu de la cellule dans une listbox j'ai perdu le 0 du début du numéro. Comment éviter cela ? Merci.
Textbox pas Listbox
Brat'ac avait soumis l'idée :
Bonjour,
J'ai des cellules au format téléphone, si je récupère le contenu de la
cellule
dans une listbox j'ai perdu le 0 du début du numéro.
Bonjour, J'ai des cellules au format téléphone, si je récupère le contenu de la cellule dans une listbox j'ai perdu le 0 du début du numéro. Comment éviter cela ? Merci.
Textbox pas Listbox
Jacquouille
Bonsoir Tu ne sais pas basculer tout cela en "texte"? Jacques " Le vin est au repas ce que le parfum est à la femme." . "Brat'ac" a écrit dans le message de groupe de discussion : Bonjour, J'ai des cellules au format téléphone, si je récupère le contenu de la cellule dans une listbox j'ai perdu le 0 du début du numéro. Comment éviter cela ? Merci. --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Bonsoir
Tu ne sais pas basculer tout cela en "texte"?
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"Brat'ac" a écrit dans le message de groupe de discussion :
mn.1ccb7e11109fa855.135221@yopmail.com...
Bonjour,
J'ai des cellules au format téléphone, si je récupère le contenu de la
cellule
dans une listbox j'ai perdu le 0 du début du numéro.
Comment éviter cela ?
Merci.
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Bonsoir Tu ne sais pas basculer tout cela en "texte"? Jacques " Le vin est au repas ce que le parfum est à la femme." . "Brat'ac" a écrit dans le message de groupe de discussion : Bonjour, J'ai des cellules au format téléphone, si je récupère le contenu de la cellule dans une listbox j'ai perdu le 0 du début du numéro. Comment éviter cela ? Merci. --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Brat'ac
Jacquouille a présenté l'énoncé suivant :
Bonsoir Tu ne sais pas basculer tout cela en "texte"? Jacques
Effectivement je vais regarder de ce coté
Jacquouille a présenté l'énoncé suivant :
Bonsoir
Tu ne sais pas basculer tout cela en "texte"?
Bonsoir Tu ne sais pas basculer tout cela en "texte"? Jacques
Effectivement je vais regarder de ce coté
News.aioe.org
Bonjour, Vérifie le nombre de "digit" du numéro de téléphone. Si le numéro de téléphone doit avoir 10 digits et que tu en a 9 dans une cellule... Exemple à partir du format des numéros de téléphones canadien (10 numéros) (aucun ne débute par 0) et pour les besoins de la cause, supposons que le premier digit (0) est manquant. '-------------------------------------- Sub Text() Dim X As String If Len(Range("A1").Value) < 10 Then X = "0" & Range("A1").Text Me.TextBox1.Text = X End If End Sub '-------------------------------------- MichD
Bonjour,
Vérifie le nombre de "digit" du numéro de téléphone.
Si le numéro de téléphone doit avoir 10 digits et que tu en a 9 dans une
cellule...
Exemple à partir du format des numéros de téléphones canadien (10 numéros)
(aucun ne débute par 0) et pour les besoins de la cause, supposons que le
premier
digit (0) est manquant.
'--------------------------------------
Sub Text()
Dim X As String
If Len(Range("A1").Value) < 10 Then
X = "0" & Range("A1").Text
Me.TextBox1.Text = X
End If
End Sub
'--------------------------------------
Bonjour, Vérifie le nombre de "digit" du numéro de téléphone. Si le numéro de téléphone doit avoir 10 digits et que tu en a 9 dans une cellule... Exemple à partir du format des numéros de téléphones canadien (10 numéros) (aucun ne débute par 0) et pour les besoins de la cause, supposons que le premier digit (0) est manquant. '-------------------------------------- Sub Text() Dim X As String If Len(Range("A1").Value) < 10 Then X = "0" & Range("A1").Text Me.TextBox1.Text = X End If End Sub '-------------------------------------- MichD
isabelle
bonjour Brat'ac, je ne sais pas quel est le format de tél part chez-vous, voici un exemple avec le format du québec ActiveSheet.TextBox1 = Application.Text(Range("A1"), "[<999999] 0-###-####; 0-###-###-####") isabelle Le 2017-01-03 à 14:27, Brat'ac a écrit :
Bonjour, J'ai des cellules au format téléphone, si je récupère le contenu de la cellule dans une listbox j'ai perdu le 0 du début du numéro. Comment éviter cela ? Merci.
bonjour Brat'ac,
je ne sais pas quel est le format de tél part chez-vous,
voici un exemple avec le format du québec
ActiveSheet.TextBox1 = Application.Text(Range("A1"), "[<999999] 0-###-####;
0-###-###-####")
isabelle
Le 2017-01-03 à 14:27, Brat'ac a écrit :
Bonjour,
J'ai des cellules au format téléphone, si je récupère le contenu de la cellule
dans une listbox j'ai perdu le 0 du début du numéro.
bonjour Brat'ac, je ne sais pas quel est le format de tél part chez-vous, voici un exemple avec le format du québec ActiveSheet.TextBox1 = Application.Text(Range("A1"), "[<999999] 0-###-####; 0-###-###-####") isabelle Le 2017-01-03 à 14:27, Brat'ac a écrit :
Bonjour, J'ai des cellules au format téléphone, si je récupère le contenu de la cellule dans une listbox j'ai perdu le 0 du début du numéro. Comment éviter cela ? Merci.
Brat'ac
isabelle a couché sur son écran :
bonjour Brat'ac, je ne sais pas quel est le format de tél part chez-vous, voici un exemple avec le format du québec ActiveSheet.TextBox1 = Application.Text(Range("A1"), "[<999999] 0-###-####; 0-###-###-####")
Merci j'essaye
isabelle a couché sur son écran :
bonjour Brat'ac,
je ne sais pas quel est le format de tél part chez-vous,
voici un exemple avec le format du québec
ActiveSheet.TextBox1 = Application.Text(Range("A1"), "[<999999]
0-###-####; 0-###-###-####")
bonjour Brat'ac, je ne sais pas quel est le format de tél part chez-vous, voici un exemple avec le format du québec ActiveSheet.TextBox1 = Application.Text(Range("A1"), "[<999999] 0-###-####; 0-###-###-####")
Merci j'essaye
News.aioe.org
Bonjour, Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone. '------------------------------------ Sub test() With Me.Range("A1") Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text) End With End Sub '------------------------------------ MichD
Bonjour,
Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone.
'------------------------------------
Sub test()
With Me.Range("A1")
Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text)
End With
End Sub
'------------------------------------
Bonjour, Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone. '------------------------------------ Sub test() With Me.Range("A1") Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text) End With End Sub '------------------------------------ MichD
Jacquouille
Salut Denis C'est quoi, ce ME devant textbox ? Merci et bonne soirée Jacques " Le vin est au repas ce que le parfum est à la femme." . "News.aioe.org" a écrit dans le message de groupe de discussion : o4jb1q$mcc$ Bonjour, Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone. '------------------------------------ Sub test() With Me.Range("A1") Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text) End With End Sub '------------------------------------ MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Salut Denis
C'est quoi, ce ME devant textbox ?
Merci et bonne soirée
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"News.aioe.org" a écrit dans le message de groupe de discussion :
o4jb1q$mcc$1@gioia.aioe.org...
Bonjour,
Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone.
'------------------------------------
Sub test()
With Me.Range("A1")
Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text)
End With
End Sub
'------------------------------------
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
Salut Denis C'est quoi, ce ME devant textbox ? Merci et bonne soirée Jacques " Le vin est au repas ce que le parfum est à la femme." . "News.aioe.org" a écrit dans le message de groupe de discussion : o4jb1q$mcc$ Bonjour, Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone. '------------------------------------ Sub test() With Me.Range("A1") Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text) End With End Sub '------------------------------------ MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
News.aioe.org
Bonjour Jacquouille, Quand tu écris du code dans un module de classe (dans Excel sauf les modules "standard" que tu ajoutes, ce sont tous des modules de classe - ThisWorkbook - Module Feuille - le "Me" signifie que l'objet qui suit appartient à ce module de classe. Dans mon exemple, si le "Me" remplace l'expression Worksheets("Feuil1") ou "Feuil1". C'est un terme général qui remplace l'appel au module de classe, quel que soit son nom. En plus, il te donne accès à la liste déroulante des propriétés et méthodes associées de cet objet quand tu écris le code dès que tu tapes le "POINT" après le "ME". MichD "Jacquouille" a écrit dans le message de groupe de discussion : o4jill$14er$ Salut Denis C'est quoi, ce ME devant textbox ? Merci et bonne soirée Jacques " Le vin est au repas ce que le parfum est à la femme." . "News.aioe.org" a écrit dans le message de groupe de discussion : o4jb1q$mcc$ Bonjour, Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone. '------------------------------------ Sub test() With Me.Range("A1") Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text) End With End Sub '------------------------------------ MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Bonjour Jacquouille,
Quand tu écris du code dans un module de classe (dans Excel
sauf les modules "standard" que tu ajoutes, ce sont tous des
modules de classe - ThisWorkbook - Module Feuille - le "Me"
signifie que l'objet qui suit appartient à ce module de classe.
Dans mon exemple, si le "Me" remplace l'expression
Worksheets("Feuil1") ou "Feuil1". C'est un terme général
qui remplace l'appel au module de classe, quel que soit son
nom. En plus, il te donne accès à la liste déroulante des
propriétés et méthodes associées de cet objet quand tu
écris le code dès que tu tapes le "POINT" après le "ME".
MichD
"Jacquouille" a écrit dans le message de groupe de discussion :
o4jill$14er$1@gioia.aioe.org...
Salut Denis
C'est quoi, ce ME devant textbox ?
Merci et bonne soirée
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"News.aioe.org" a écrit dans le message de groupe de discussion :
o4jb1q$mcc$1@gioia.aioe.org...
Bonjour,
Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone.
'------------------------------------
Sub test()
With Me.Range("A1")
Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text)
End With
End Sub
'------------------------------------
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
https://www.avast.com/antivirus
Bonjour Jacquouille, Quand tu écris du code dans un module de classe (dans Excel sauf les modules "standard" que tu ajoutes, ce sont tous des modules de classe - ThisWorkbook - Module Feuille - le "Me" signifie que l'objet qui suit appartient à ce module de classe. Dans mon exemple, si le "Me" remplace l'expression Worksheets("Feuil1") ou "Feuil1". C'est un terme général qui remplace l'appel au module de classe, quel que soit son nom. En plus, il te donne accès à la liste déroulante des propriétés et méthodes associées de cet objet quand tu écris le code dès que tu tapes le "POINT" après le "ME". MichD "Jacquouille" a écrit dans le message de groupe de discussion : o4jill$14er$ Salut Denis C'est quoi, ce ME devant textbox ? Merci et bonne soirée Jacques " Le vin est au repas ce que le parfum est à la femme." . "News.aioe.org" a écrit dans le message de groupe de discussion : o4jb1q$mcc$ Bonjour, Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone. '------------------------------------ Sub test() With Me.Range("A1") Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text) End With End Sub '------------------------------------ MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
Jacquouille
OK Denis Grand merci. C'est plus facile à comprendre, maintenant. très bonne soirée à roi Jacques " Le vin est au repas ce que le parfum est à la femme." . "News.aioe.org" a écrit dans le message de groupe de discussion : o4jp19$1gb2$ Bonjour Jacquouille, Quand tu écris du code dans un module de classe (dans Excel sauf les modules "standard" que tu ajoutes, ce sont tous des modules de classe - ThisWorkbook - Module Feuille - le "Me" signifie que l'objet qui suit appartient à ce module de classe. Dans mon exemple, si le "Me" remplace l'expression Worksheets("Feuil1") ou "Feuil1". C'est un terme général qui remplace l'appel au module de classe, quel que soit son nom. En plus, il te donne accès à la liste déroulante des propriétés et méthodes associées de cet objet quand tu écris le code dès que tu tapes le "POINT" après le "ME". MichD "Jacquouille" a écrit dans le message de groupe de discussion : o4jill$14er$ Salut Denis C'est quoi, ce ME devant textbox ? Merci et bonne soirée Jacques " Le vin est au repas ce que le parfum est à la femme." . "News.aioe.org" a écrit dans le message de groupe de discussion : o4jb1q$mcc$ Bonjour, Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone. '------------------------------------ Sub test() With Me.Range("A1") Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text) End With End Sub '------------------------------------ MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
OK Denis
Grand merci.
C'est plus facile à comprendre, maintenant.
très bonne soirée à roi
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"News.aioe.org" a écrit dans le message de groupe de discussion :
o4jp19$1gb2$1@gioia.aioe.org...
Bonjour Jacquouille,
Quand tu écris du code dans un module de classe (dans Excel
sauf les modules "standard" que tu ajoutes, ce sont tous des
modules de classe - ThisWorkbook - Module Feuille - le "Me"
signifie que l'objet qui suit appartient à ce module de classe.
Dans mon exemple, si le "Me" remplace l'expression
Worksheets("Feuil1") ou "Feuil1". C'est un terme général
qui remplace l'appel au module de classe, quel que soit son
nom. En plus, il te donne accès à la liste déroulante des
propriétés et méthodes associées de cet objet quand tu
écris le code dès que tu tapes le "POINT" après le "ME".
MichD
"Jacquouille" a écrit dans le message de groupe de discussion :
o4jill$14er$1@gioia.aioe.org...
Salut Denis
C'est quoi, ce ME devant textbox ?
Merci et bonne soirée
Jacques
" Le vin est au repas ce que le parfum est à la femme."
.
"News.aioe.org" a écrit dans le message de groupe de discussion :
o4jb1q$mcc$1@gioia.aioe.org...
Bonjour,
Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone.
'------------------------------------
Sub test()
With Me.Range("A1")
Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text)
End With
End Sub
'------------------------------------
MichD
---
L'absence de virus dans ce courrier électronique a été vérifiée par le
logiciel antivirus Avast.
https://www.avast.com/antivirus
---
L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast.
https://www.avast.com/antivirus
OK Denis Grand merci. C'est plus facile à comprendre, maintenant. très bonne soirée à roi Jacques " Le vin est au repas ce que le parfum est à la femme." . "News.aioe.org" a écrit dans le message de groupe de discussion : o4jp19$1gb2$ Bonjour Jacquouille, Quand tu écris du code dans un module de classe (dans Excel sauf les modules "standard" que tu ajoutes, ce sont tous des modules de classe - ThisWorkbook - Module Feuille - le "Me" signifie que l'objet qui suit appartient à ce module de classe. Dans mon exemple, si le "Me" remplace l'expression Worksheets("Feuil1") ou "Feuil1". C'est un terme général qui remplace l'appel au module de classe, quel que soit son nom. En plus, il te donne accès à la liste déroulante des propriétés et méthodes associées de cet objet quand tu écris le code dès que tu tapes le "POINT" après le "ME". MichD "Jacquouille" a écrit dans le message de groupe de discussion : o4jill$14er$ Salut Denis C'est quoi, ce ME devant textbox ? Merci et bonne soirée Jacques " Le vin est au repas ce que le parfum est à la femme." . "News.aioe.org" a écrit dans le message de groupe de discussion : o4jb1q$mcc$ Bonjour, Il y a aussi : 10 = nombre de "digit" dans votre numéro de téléphone. '------------------------------------ Sub test() With Me.Range("A1") Me.Textbox1 = IIf(Len(.Text) < 10, "0" & .Text, .Text) End With End Sub '------------------------------------ MichD --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus --- L'absence de virus dans ce courrier électronique a été vérifiée par le logiciel antivirus Avast. https://www.avast.com/antivirus
