Formulaire Client

Bonjour le forum,

Je ne vais pas tourner autour du pot,

Je souhaiterai améliorer mon formulaire :

• - relier les comboBoxs 1 & 2 du Formulaire Userform1
  relier avec la comboBox 1 avec la listBox1 dans Userform1
  • Résoudre la comboBox 3 de Userform2

En 4

Voir si on peut insérer un format hypertexte dans la textBox comme :

Private Sub TextBox5_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If TextBox5 <> "" Then ActiveWorkbook.FollowHyperlink TextBox5.Value

End Sub

et en dernier résoudre les formats textes dans numériques dans les colonnes : C, H, K, L

J'ai essayé plusieurs formats comme :

' Mettre sous format TVA
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    TextBox6 = Format(TextBox6, "#### #### #### #### #### #### #0")

End Sub
Private Sub TextBox6_AfterUpdate()        'TxtB_N_TVA
    TextBox6.Text = Format((Val(TextBox6, " ")), "#### #### #### #### #### #### #0")
End Sub

Merci d'avance

Cordialement

Laurent

Bonjour le forum

J'aurai 2 Questions :

1 - Je voudrais comprendre comment synchroniser la listbox avec les combobox dans Userform1

2 - Comment mettre @ dans la textbox et appliquer un format Hyperlien ?

Merci

Cordialement

Laurent

Salut,

En passant par là je te propose

' ########################################### LISTBOX #############################################
'***** Correspondent au programme de la ListBox1 *****
Private Sub LstB_Clients_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

 ComboBox1 = LstB_Clients

End Sub

Leakim

Bonjour le forum, bonjour le fil

Tout simplement merci pour l'info

cordialement

Laurent

Bonjour le forum

Je ne comprends pas pourquoi je ne puisse pas insérer @ dans les deux formulaires

Pouvez vous m'indiquer comment faire?

Cordialement

Laurent

Re,

En passant à nouveau

'***** Correspond au programme de la TextBox5  *****
Private Sub Textbox5_Change()   ' mail
Dim S As String
    S = Me.TextBox5.Value
    If InStr(1, S, "@") > 0 And InStr(1, S, ".") Then
        Me.TextBox5.ForeColor = RGB(0, 0, 255)
        Me.TextBox5.Font.Underline = True
    Else
        Me.TextBox5.ForeColor = &H80000008
        Me.TextBox5.Font.Underline = False
    End If
End Sub

Private Sub TextBox5_DblClick(ByVal Cancel As MSForms.ReturnBoolean)   ' mail
Dim S As String
    S = Me.TextBox5.Value
    If InStr(1, S, "@") > 0 And InStr(1, S, ".") > 0 Then
        ThisWorkbook.FollowHyperlink "mailto: " & Me.TextBox5.Value
    End If
End Sub

Cordialement,

Leakim

Bonjour le forum bonjour le fil

Je te remercie pour ton code source . Je l'ai intégrer au passage dans l'userform1 entièrement et la première partie dans l'userform2.

Mais j'ai toujours le même souci , il m'est impossible de frapper la lettre "@" dans la textbox4 de l'userform2 et la textbox5 userform1.

Je ne comprends pas pourquoi? Je ne trouve pas l'erreur. Sinon le fichier en lui-même est terminé.

Amicalement

Laurent

Re,

Avant d'aller

Ton bug viens de ton message qui défile dans ton userform.

J'ai apostrophé dans ton code initialise

'ParametresHtml

Et le Alt Gr @ fonctionne à nouveau... Désolé, c'était joli et efficace.

Je te laisse contrôler.

Leakim

Bonsoir le forum bonsoir le fil

Je te remercie, je viens d'essayer d'apostropher le code HTML et effectivement "@" peut s’insérer dans la textbox.

J'aurai jamais cru cela possible.

Je vais enlever ce contrôle et organiser ceci différemment.

Merci

Amicalement

Laurent