[VBA]Condition : 13 chiffres entrés seulement

Ah, le usercontrol m'interesse...permet-il également d'imposer une séparation, par exemple de type "0000 0000 0000 0" ?

Si tu as une doc sur lequel je peux me référer, je prends avec plaisir :)

Salut,

Merci, j'ai trouvé pour le Userform,

J'ai crée ça : http://img214.imageshack.us/img214/969/userformnc7.jpg

Le problème c'est que j'aimerais incorporer quelques contraintes mais je ne sais pas du tout comment m'y prendre :

- Passer à la case suivante dès que le champ est entièrement rempli (j'ai fixé les limites de champ a 4 sauf le dernier a 1 et j'ai mis dans l'ordre les tabindex)
- Supprimer la croix, pour forcer l'utilisateur à cliquer sur le bouton annuler
- Ici, que renvoie le bouton "ok" et le bouton "annuler" sur ma feuille principale ? Une sorte de Userform1.vbOK ?
- Je pourrais par la suite faire un "SIM = Userform1.SIM1.value & Userform1.SIM2.value & Userform1.SIM3.value & Userform1.SIM4.value" ?
- Ah oui, j'aimerai aussi cacher par défaut le bouton ok (le rendre grisé), et le rendre visible et enable quand tout les champs ont été remplis...
- et enfin, un petit contrôle sur le fait que tout les champs soient bien numériques, sans quoi un retry s'impose :P

J'espère ne pas trop en demander, ça fait vraiment énoncé d'examen lol :$

Merci d'avance pour tout tes précieux conseils ! :)

Merci infiniment de t'être donné la peine ! :-))

Bon alors, j'ai compris le système, j'aurais jamais pensé au set focus :D

Par contre, s'en suit quelques petites questions subsidiaires :

Option Explicit
Private Const SC_CLOSE = &HF060&
Private Const MF_BYCOMMAND = &H0&

Private Declare Function GetSystemMenu Lib "user32" _
        (ByVal hwnd As Long, ByVal bRevert As Long) As Long
        
Private Declare Function RemoveMenu Lib "user32" _
        (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

Private Declare Function FindWindowA Lib "user32" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Qu'as-tu fais là au juste ? J'ai pas compris :S

Private Sub UserForm_Initialize()
Dim hSysMenu As Long
Dim MeHwnd As Long

    MeHwnd = FindWindowA(vbNullString, Me.Caption)
    If MeHwnd > 0 Then
        hSysMenu = GetSystemMenu(MeHwnd, False)
        RemoveMenu hSysMenu, SC_CLOSE, MF_BYCOMMAND
    Else
        MsgBox "Handle de " & Me.Caption & " Introuvable", vbCritical
    End If
    
End Sub

La non plus :$


Ce userform apparait à la suite de plusieurs inputbox dans une procédure sur mon classeur principal. Y a-t-il un moyen de faire une "pause" a la procédure, jusqu'à ce que j'ai cliqué sur OK dans le userform ?
Comment je pourrais exporter les variables assemblées de mes textbox sur mon classeur principal, sachant que je perds les variables de mes textboxs si celui ci est fermé ... ?

Rah encore désolé de toutes ces questions, je me sens nul de pas savoir ça :S

Merci encore :)

Ce userform apparait à la suite de plusieurs inputbox dans une procédure sur mon classeur principal. Y a-t-il un moyen de faire une "pause" a la procédure, jusqu'à ce que j'ai cliqué sur OK dans le userform ?

Imaginons que ma procédure ce lance suite à un raccourci clavier ou un bouton présent sur la première feuille.

nom = Inputbox("donnez un nom")
lieu = inputbox("donnez un lieu")
userform1.show
userform2.show
msgbox("nom = " & nom & chr(13) & chr(10) & "lieu = " & lieu, vbokcancel + 256, "récaptiulatif")
For i = 1 to 500
.........

En suivant cette procédure, les 2 userform s'affichent en même temps, ainsi que la message box...j'aimerai que le userform2 ne se lance pas avant que le userform1 n'ai renvoyé la valeur VbOK, et que la suite du programme ne continue pas à se lancer tant que le userform2 n'ai pas renvoyée la valeur vbOK :)

Voilà ce que je voulais dire :)

Bon appétit !

EDIT : Je vais plutôt mettre ces valeurs ans une seule case concaténé à l'appui de OK, mais n'y a t il pas un autre moyen que de simplement les mettre en dur sur la feuille ? :$ (par exemple exporter les variables pour les utiliser dans la procédure principale ?

oui, ok, mais en attendant le msgbox après le userform1 se lance en même temps que celui ci, meme si le userform2 n'est pas encore montrée :S

Mon dieu je m'exprime mal ...

ce n'est pas le userform2 qui s'affiche en même temps que le userform1, mais la suite !

C'est à dire que avec l'exemple que je t'ai filé, je rentre le nom, le lieu, et au moment où le script arrive à userform1, il me met par-dessus ce userform le msgbox récapitulatif, tout en continuant le script...

Il me faudrait quelque chose que je puisse mettre qui arrête le script pendant que j'opère sur le userform2, et dès que j'ai appuyé sur valider, le script continue...

Je sais pas si j'ai réussi à me faire comprendre, je suis désolé je suis pas du tout une lumière pour expliquer, surtout les choses simples :S

désolé :$

voilà il est disponible à cette adresse : https://www.cjoint.com/?ehpFzHIGhR

Je ne pense pas avoir oublié quelque chose...

Je te laisse voir :)

EDIT : ne t'inquiète pas pour la flèche qui pointe nulle part, j'attends de la macro soit fonctionnelle pour la coller dans un bouton :)