> Tous les forums > Forum Bureautique
 Écrire sur un classeur ferméSujet résolu
Ajouter un message à la discussion
Pages : 1 [2] ... Fin
Page 2 sur 2 [Fin]
ronibo
 Posté le 01/08/2013 à 19:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour à tous et à toutes,

Vieuxmonsieur : Mer ci pour la proposition :), je réfléchi à tout ça et je te redis tout ça :)

corinthien : Merci pour les macro :)

Pour le texbox adresse c'est bon j'ai compris le principe :)

Le code postal, c'est ok aussi ;)

Par contre, le téléphone, il me met plus les espaces entre les numéro :)

A bientot

corinthien
 Posté le 01/08/2013 à 20:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Je jette un oeil de suite…

ferrand
 Posté le 01/08/2013 à 20:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

corinthien a écrit :

For r = 0 To UBound(c)
a = Replace(a, c(r), LCase(c(r)), , , vbTextCompare)

Sans m'immiscer aucunement dans le sujet, juste un remerciement à corinthien pour ce bout de code astucieux que je vais peut-être utiliser (pour alléger une procédure qui me paraissait un peu lourde). [J'ai souligné le point sur lequel repose à mon sens la subtilité...]

Bon courage

corinthien
 Posté le 01/08/2013 à 20:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bizarre, aucun blème à la maison, tu n'aurais pas bidouiller la dedans :

Private Sub TNuméroTéléphone_Change()

Select Case Len(Me.TNuméroTéléphone)
Case 2, 5, 8, 11
Me.TNuméroTéléphone.Value = Me.TNuméroTéléphone.Value & " "
End Select

End Sub

corinthien
 Posté le 01/08/2013 à 20:51 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

@ferrand, immisce-toi sans problème, il y a plus d'idée dans plusieurs têtes…

ronibo
 Posté le 02/08/2013 à 11:45 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
corinthien a écrit :

Bizarre, aucun blème à la maison, tu n'aurais pas bidouiller la dedans :

Private Sub TNuméroTéléphone_Change()

Select Case Len(Me.TNuméroTéléphone)
Case 2, 5, 8, 11
Me.TNuméroTéléphone.Value = Me.TNuméroTéléphone.Value & " "
End Select

End Sub


Bonjour le forum,

Oui ça marche mais je voulais bloqué la saisie des lettres. :)

a+



Modifié par ronibo le 02/08/2013 11:51
ronibo
 Posté le 02/08/2013 à 11:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Puis regarde s'que ça fait lorsque j'essaye de supprimer les numéro ( il m'efface que le dernier numéro)

ferrand
 Posté le 02/08/2013 à 13:25 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

corinthien a écrit :

@ferrand, immisce-toi sans problème, il y a plus d'idée dans plusieurs têtes…

Merci ! Sans façon (au cas particulier) , le forum ne manque pas de sujets favorisant des échanges fructueux...

Mais une petite remarque d'ordre général sur le point en cours de débat toutefois : le contenu du TextBox est destiné à être affectée à une cellule ; s'agissant d'un numéro de téléphone deux options principales s'offrent pour le saisir dans une cellule (si on veut l'afficher en groupes de 2 chiffres séparés par des espaces : - soit sous forme de chaîne et alors on saisit les espaces (et cellule au format Standard), - soit sous forme numérique (on ne saisit pas les espaces) et on met la cellule au format Téléphone [ou autre format personnalisé si on préfère] de façon à obtenir l'affichage souhaité.

Mais mettre la cellule au format Téléphone (ce qui est le cas ici) pour y affecter ensuite une chaîne (ce qui est le cas si on y affecte la valeur du TextBox constituée par une chaîne incluant des espaces) constitue deux choix contradictoires .

J'admets que l'on puisse souhaiter afficher un numéro de téléphone formaté dans le TextBox au moment de la saisie. Il reste que le choix du format de cellule impliquerait l'affectation d'une valeur numérique (que l'on peut obtenir en appliquant la fonction Val à la valeur du TextBox pour l'affecter). Mais à l'intéressé de comprendre en premier lieu les implications de ses choix...

Publicité
corinthien
 Posté le 02/08/2013 à 18:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

@ferrand, c'est exactement ce que je pense mais, je ne suis pas l'auteur de la chose donc…

@ronibo, supprime toutes les procédures de TNuméroTéléphone et remplace les par celle-ci :

Private Sub TNuméroTéléphone_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Then Exit Sub
If Not (KeyCode >= 96 And KeyCode If Not (KeyCode >= 48 And KeyCode Exit Sub
End If
End If
Select Case Len(Me.TNuméroTéléphone)
Case 2, 5, 8, 11
Me.TNuméroTéléphone.Value = Me.TNuméroTéléphone.Value & " "
End Select
End Sub

J'espère que ça te conviendra…



Modifié par corinthien le 02/08/2013 18:19
ronibo
 Posté le 02/08/2013 à 19:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir le fil,

@corinthien

Merci pour le code, mais j'ai ça en rouge

If Not (KeyCode >= 96 And KeyCode If Not (KeyCode >= 48 And KeyCode Exit Sub

@ferrand : je repasse tout à l'heure pour t'expliquer pourquoi j'inciste sur ce format :)

Je suis sur un pc d'un ami

a+

corinthien
 Posté le 02/08/2013 à 20:22 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien


Private Sub TNuméroTéléphone_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 16 Then Exit Sub
If Not (KeyCode >= 96 And KeyCode <= 105) Then
KeyCode = 0: Exit Sub
End If
Select Case Len(Me.TNuméroTéléphone)
Case 2, 5, 8, 11
Me.TNuméroTéléphone.Value = Me.TNuméroTéléphone.Value & " "
End Select
End Sub

Désolé…

ronibo
 Posté le 02/08/2013 à 20:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Y'a pas de problème :)

Il à l'air de bien fonctionner,

manque plus qu'à bloquer la saisie au bout de 10 caractère (14 avec les espaces)

a+

corinthien
 Posté le 02/08/2013 à 20:40 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

corinthien a écrit :

Pour le numéro de téléphone :


Private Sub UserForm_Initialize()
Me.TNuméroTéléphone.MaxLength = 10
End Sub

Juste mettre 14 au lieu de 10

ronibo
 Posté le 02/08/2013 à 21:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Parfait merci beaucoup,

On peut activer la touche TAB?

corinthien
 Posté le 02/08/2013 à 22:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Private Sub TNuméroTéléphone_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 8 Or KeyCode = 9 Or KeyCode = 16 Then Exit Sub
If Not (KeyCode >= 96 And KeyCode <= 105) Then
KeyCode = 0: Exit Sub
End If
Select Case Len(Me.TNuméroTéléphone)
Case 2, 5, 8, 11
Me.TNuméroTéléphone.Value = Me.TNuméroTéléphone.Value & " "
End Select
End Sub

ronibo
 Posté le 02/08/2013 à 22:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

C'est nickel, c'est exactement s'que je voulais :)

Merci beaucoup corinthien

Publicité
corinthien
 Posté le 02/08/2013 à 22:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

De rien…

ronibo
 Posté le 02/08/2013 à 22:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

:)

Pages : 1 [2] ... Fin
Page 2 sur 2 [Fin]

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
179,99 €Ecran PC incurvé 27 pouces Dell S2721HGF (FHD, 144 Hz) à 179,99 €
Valable jusqu'au 28 Juillet

Amazon fait une promotion sur l'écran PC incurvé 27 pouces Dell S2721HGF qui passe à 179,99 € au lieu de plus de 250 € ailleurs. L'écran à cadre fin dispose d'une dalle VA Full HD (1920x1080) à 144 Hz avec un rayon de courbure de 1500R. Il est compatible Freesync et Gsync et dispose de 2 prises HDMI et 1 prise DP. Son pied est réglable en hauteur.


> Voir l'offre
99,00 €Casque Sennheiser HD 599 à 99 €
Valable jusqu'au 30 Juillet

Amazon fait une belle vente flash sur le très bon casque Sennheiser HD 999 qui passe à 99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 160 €. Ce casque fermé réduit le bruit ambiant. Il est idéal pour vos déplacements à l'extérieur. Il est compatible avec pratiquement toutes les sources audio y compris les téléphones portables, les amplis, les tablettes et les ordinateurs grâce à ses deux câbles détachables fournis : un câble de 3 mètres avec une fiche jack de 6,35 mm & un câble de 1,2m avec télécommande à un bouton et fiche jack de 3,5 mm.


> Voir l'offre
57,99 €Clé USB 3.1 SanDisk Extreme Go 256 Go (400 Mo/s en lecture, 240 Mo/s en écriture) à 57,99 €
Valable jusqu'au 28 Juillet

Amazon fait une promotion sur la clé USB 3.2 Sandisk Extreme Go 256 Go qui passe à 57,99  livrée gratuitement. On la trouve ailleurs à partir de 90 €. Cette clé USB 3.2 (compatible usb 3.0) est rapide puisqu'elle offre des débits jusqu'à 400 Mo/s en lecture et 240 Mo/s en écriture


> Voir l'offre

Sujets relatifs
Tester si classeur est ouvert ou fermé
Excel 2007 Copier/Coller d’une feuille à l’autre Dans un même classeur.
Recopie cellule dans un autre classeur
Excel mémoire insuffisante pour ouvrir un nouveau classeur
Classeur repetitions de colonne en colonne
ccleaner ne se ferme pas
Classeur Calc de Libre Office
écrire "à" en majuscule
ecrire dans un fichier PDF
Avec quoi écrire sur android
Plus de sujets relatifs à Écrire sur un classeur fermé
 > Tous les forums > Forum Bureautique