VBA. Si cellule contient "."...

Résolu

webtomm -

Bonjour,

J'ai créé un userform et je voudrais bloquer le fait que les utilisateurs qui entreront un montant puisse le faire avec un point pour séparer les décimales.

Je voudrais créer un MsgBox pour leur dire d'utiliser une virgule si jamais ils entrent un point;

Savez vous le code qui me permettrait de savoir si il y a un point "." dans le montant qu'ils entrent?

Je sais pas si j'ai été clair....

Merci de votre aide !!!

Afficher la suite

2 réponses

Réponse 1 / 2
Vaucluse Contributeur
Bonjour
n'étant pas un spécialiste en macro tout ce que je peux vous proposer et dans ce modèle;
voyez s'il vous convient et vérifier le fonctionnement de la validation.
http://www.cijoint.fr/cjlink.php?file=cj201109/cijod6vwC9.xls
crdlmnt

0
1. fflintt
  
  1000 x merci pour votre effort. Avez-vous remarqué qu'Excel ne donne le message d'avertissement seulement lorsqu'on entre le point(.) directement et non lorsqu'il se retrouve dans un nombre? Je vais créer un nouveau topo pour spédifier ma demande.
  
  0
Réponse 2 / 2
pijaku Modérateur
Salut,
Pas très clair...
que les utilisateurs qui entreront un montant Je suppose donc que l'utilisateur entre un montant dans une textbox.
Pour cela, tu peux même te passer d'avertir l'utilisateur par une msgbox, en remplaçant, dans la textbox le point par une virgule :
```
TextBox1.Value = Replace(TextBox1.Value,".",",")
```
Si tu tiens à avertir et bloquer l'utilisateur il convient d'utiliser l'évènement TextBox_change comme ceci :
```
Private Sub TextBox1_Change()
If Right(TextBox1.Value, 1) = "." Then
MsgBox "merci de saisir une virgule au lieu du point"
TextBox1.Value = ""
End If
End Sub
```
0
1. webtomm
  
  ok super ca marche merci!!
  
  et une autre petite question stp...
  le montant qui est tapé ds ma textbox va directement ds un tableau Excel prédéfini.
  
  Je voudrais que ce montant soit au format que je veux, cad av le séparateur de millier. la cellule qui est censé acceuillir mon montant est bien parametré mais pourtant qd on tape le montant ds la textbox elle ne se met pas au bon format ds la cellule...
  
  Merci de ton aide!!
  
  0
2. pijaku Modérateur
  
  Une TextBox est, par défaut, au format String (chaine de caractère format texte).
  On peux donc forcer le format lors de l'insertion de la donnée contenue dans le textebox dans la cellule. Exemple:
  Sheets("Feuil1").Range("A1").Value = Format(TextBox1.Value, "#,##.00")
  
  0
3. webtomm
  
  sheets("Echéancier Capital Constant").Range("D9").Value = Format(montantinitialcc.Value, "# ##,00")
  
  j'ai écrit ca comme ca mais ca ne fonctionne pas... mon montant reste toujours d'un bloc.
  Il n'y aurait pas un paramètre de ma Textbox a modifier par hasard?
  
  0
4. pijaku Modérateur
  
  Plusieurs solutions :
  1- n'aurais tu pas oublié la virgule ici : "#,##,00"
  2- Si tu saisit avec un point il faut ajouter ce que je t'ai indiqué auparavant :
  Sheets("Feuil1").Range("A1").Value = Format(Replace(montantinitialcc.Value, ".", ","), "#,##.00")
  
  0
5. webtomm
  
  super ca fonctionne merci bcp!!
  
  0

VBA. Si cellule contient "."...

2 réponses

Discussions similaires

Newsletters