Aide sur code

Le 29/05/2012 à 14:44

Bonjour.

J'ai besoin encore un peu d'aide.

Voilà j'ai un formulaire contenant les TextBox NOM, PRENOM, ETABLISSEMENTS, ADRESSE, CODE POSTAL, VILLE, et CEDEX.

Je voudrais.

1) Que lorsque je tape les mots maison, établissement, centre, en majuscule dans le TextBox "ETABLISSEMENTS" que les TextBox NOM et PRENOM soient désactivés ainsi que le message "Veuillez renseigner tous les champs"

2) Que grace à au tableau INSEE quand je tape le code postal que le TextBox "VILLE" se remplisse automatiquement

Merci d'avance.

Private Sub CARNET_ADRESS_ANNULER_Click()

Unload (CARNET_ADRESS)

End Sub

Private Sub CARNET_ADRESS_FIN_Click()

Unload CARNET_ADRESS

End Sub

Private Sub CARNET_ADRESS_NOM_Change()

CARNET_ADRESS_NOM.Text = UCase(CARNET_ADRESS_NOM.Text)

End Sub

Private Sub CARNET_ADRESS_PRENOM_Change()

CARNET_ADRESS_PRENOM.Text = UCase(CARNET_ADRESS_PRENOM.Text)

End Sub

Private Sub CARNET_ADRESS_ETABLISSEMENT_Change()

CARNET_ADRESS_TGI_ETABLISSEMENT.Text = UCase(CARNET_ADRESS_TGI_ETABLISSEMENT.Text)

Private Sub CARNET_ADRESS_ADRESSE_Change()

'Pour les majuscules

CARNET_ADRESS_ADRESSE.Value = Application.Proper(CARNET_ADRESS_ADRESSE.Value)

End Sub

Private Sub CARNET_ADRESS_CODE_POSTAL_Change()

'Pour limiter à 5 le nombre de caractère dans une TextBox

CARNET_ADRESS_CODE_POSTAL.Value = Left(CARNET_ADRESS_CODE_POSTAL.Value, 5)

End Sub

Private Sub CARNET_ADRESS_CEDEX_Change()

'Pour limiter à 5 le nombre de caractère dans une TextBox

CARNET_ADRESS_CEDEX.Value = Left(CARNET_ADRESS_CEDEX.Value, 3)

End Sub

Private Sub CARNET_ADRESS_ETABLISSEMENTS_Change()

With CARNET_ADRESS_ETABLISSEMENTS

.Text = UCase(.Text)

If CARNET_ADRESS_ETABLISSEMENTS = "MAISON" Then

CARNET_ADRESS_NOM.Visible = False

CARNET_ADRESS_PRENOM.Visible = False

Else

CARNET_ADRESS_NOM.Visible = True

CARNET_ADRESS_PRENOM.Visible = True

End If

End With

End Sub

Private Sub CARNET_ADRESS_SUIVANT_Click()

CARNET_ADRESS_NOM = ""

CARNET_ADRESS_PRENOM = ""

CARNET_ADRESS_ETABLISSEMENTS = ""

CARNET_ADRESS_ADRESSE = ""

CARNET_ADRESS_CODE_POSTAL = ""

CARNET_ADRESS_VILLE = ""

CARNET_ADRESS_CEDEX = ""

CARNET_ADRESS_NOM.SetFocus

CARNET_ADRESS_NOM.BackColor = &HC0C0FF

CARNET_ADRESS_PRENOM.BackColor = &HC0C0FF

CARNET_ADRESS_ETABLISSEMENTS.BackColor = &HC0C0FF

CARNET_ADRESS_ADRESSE.BackColor = &HC0C0FF

CARNET_ADRESS_CODE_POSTAL.BackColor = &HC0C0FF

CARNET_ADRESS_VILLE.BackColor = &HC0C0FF

CARNET_ADRESS_CEDEX.BackColor = &HC0C0FF

End Sub

Private Sub CARNET_ADRESS_VALIDER_Click()

Dim Ligne As Integer

Ligne = 1

If CARNET_ADRESS_NOM.Text = "" Or CARNET_ADRESS_PRENOM.Text = "" Or CARNET_ADRESS_VILLE.Text = "" Or CARNET_ADRESS_ETABLISSEMENTS.Text = "" Or CARNET_ADRESS_ADRESSE.Text = "" Or CARNET_ADRESS_CODE_POSTAL.Text = "" Then

MsgBox "Veuillez renseigner tous les champs."

Else

With Worksheets("CARNET_ADRESS")

While Not IsEmpty(.Cells(Ligne, 1))

If .Cells(Ligne, 1).Value = CARNET_ADRESS_NOM.Text And .Cells(Ligne, 2).Value = CARNET_ADRESS_PRENOM.Text And .Cells(Ligne, 6).Value = CARNET_ADRESS_VILLE.Text Then

MsgBox " déjà présent dans la base de données." & "La procédure va s'arrêter.", vbCritical, "DPY"

Unload CARNET_ADRESS

Exit Sub

Else

End If

Ligne = Ligne + 1

Wend

.Cells(Ligne, 1).Value = CARNET_ADRESS_NOM.Text

.Cells(Ligne, 2).Value = CARNET_ADRESS_PRENOM.Text

.Cells(Ligne, 3).Value = CARNET_ADRESS_ETABLISSEMENTS.Text

.Cells(Ligne, 4).Value = CARNET_ADRESS_ADRESSE.Text

.Cells(Ligne, 5).Value = CARNET_ADRESS_CODE_POSTAL.Text

.Cells(Ligne, 6).Value = CARNET_ADRESS_VILLE.Text

.Cells(Ligne, 7).Value = CARNET_ADRESS_CEDEX.Text

End With

End If

End Sub

Private Sub CARNET_ADRESS_VILLE_Change()

With CARNET_ADRESS_VILLE

.Text = UCase(.Text)

If .Text = "PARIS" Then

.BackColor = &HC0C0FF

CARNET_ADRESS_NOM.BackColor = &HC0C0FF

CARNET_ADRESS_PRENOM.BackColor = &HC0C0FF

CARNET_ADRESS_ETABLISSEMENTS.BackColor = &HC0C0FF

CARNET_ADRESS_ADRESSE.BackColor = &HC0C0FF

CARNET_ADRESS_ETABLISSEMENTS.BackColor = &HC0C0FF

CARNET_ADRESS_CODE_POSTAL.BackColor = &HC0C0FF

CARNET_ADRESS_VILLE.BackColor = &HC0C0FF

CARNET_ADRESS_CEDEX.BackColor = &HC0C0FF

Else

.BackColor = &H80FF80

CARNET_ADRESS_NOM.BackColor = &H80FF80

CARNET_ADRESS_PRENOM.BackColor = &H80FF80

CARNET_ADRESS_ETABLISSEMENTS.BackColor = &H80FF80

CARNET_ADRESS_ADRESSE.BackColor = &H80FF80

CARNET_ADRESS_CODE_POSTAL.BackColor = &H80FF80

CARNET_ADRESS_VILLE.BackColor = &H80FF80

CARNET_ADRESS_CEDEX.BackColor = &H80FF80

End If

End With

End Sub

' ici le champs code postal ne prend que des chiffre mais je souhaite que 5 chiffres et que selon le code postal l'auto complétion fonctionne. Pour cela on utilise la worksheet insee(Feuil26)

Private Sub CARNET_ADRESS_CODE_POSTAL_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep

End Sub

Private Sub CARNET_ADRESS_CEDEX_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If InStr("1234567890,-", Chr(KeyAscii)) = 0 Then KeyAscii = 0: Beep

End Sub

Private Sub UserForm_Click()

End Sub

Le 29/05/2012 à 14:50

Bonjour

MASK a écrit :

Je voudrais.

Moi je voudrais

  • La paix dans le monde
  • Une meilleure vie
  • Une femme plus jeune
  • Ton fichier anonymisé pour éviter de le refaire
  • Que tu utilises les balises Code lorsque tu mets du ... code

A suivre

Rechercher des sujets similaires à "aide code"