VBA MYSTERIEUX ????
BOnjour, le Forum
J'ai créé un nouveau UserForm et j'ai un phénomène étrange qui se produit, lors de la saisie il me zappe carrement un Textbox (j'ai pensé à un Pb de Caption ou Label, mais je vois pas ???) Bien sur comme le code fait une vérif de saisie, après coup çà me replace dedans... étrange ???
D'autre part j'ai besoin d'un coup de pouce pour ajouter des conditions dans mon Code.
On ai pas dans Aladin mais bon
1 - Dans Tel et Fax 'Code' pour obliger la saisie de Chiffres et Format quand saisie 014502 / Replace 01 45 02
2 - Pour éviter les doublons 'Code' qui vérifie si le Nom Fournisseur existe déjà.
Le Fichier en cours Et Voilà !
Merci de votre aide
Salut Callou et le forum
Regarde du côté des index (TabIndex) de tes contrôles.
Mytå
Merci iMytå,
J'ai revu les TabIndex problème de chronologie !!!
Dans Vba peut-on avoir une vue d'ensemble des propriétés ? (un peu comme dans la saisie de la macro)
Pour le reste je maîtrise pas bien la condition If Value pour empêcher les doublons j'ai trouvé des bouts de code mais çà marche pas
En plus je dois pas les placer n'importe où sinon Pb de Bloc en End If - Ouah la Vache...
Pour les numéros de Tel et Fax j'ai essayé Cdec(Val( Replace( - ou Cdel çà marche pas non plus
A+
Re le Forum
Un bout de code sur le code postal
' On teste la saisie de Code Postal
With Me.CodeP
If Not IsNumeric(.Text) Then
MsgBox "Vous devez saisir un Code Postal."
.Text = ""
.SetFocus
Exit Sub
End If
End With
Mytå
Quelle variable peut-on employer pour permettre une échapée à la saisie
En + Clair : Ok pour une reconnaissance Numérique si Saisie de Text mais autoriser
Le "blanc" en Validation.
' On teste la saisie de Code Postal
With Me.CodeP
If Not IsNumeric(.Text) Then
MsgBox "Vous devez saisir un Code Postal."
.Text = ""
.SetFocus
Exit Sub
End If
End With
Re le forum
Essaye ceci
' On teste la saisie de Code Postal
With Me.CodeP
If Not IsNumeric(.Text) And .Text <> "" Then
MsgBox "Vous devez saisir un Code Postal."
.Text = ""
.SetFocus
Exit Sub
End If
End With
Mytå