code vba plpusieurs condition If

gilbert_RGI

XLDnaute Barbatruc

• 2 Mars 2012

• #2

Re : code vba plpusieurs condition If

Bonjour

l'userform se nomme bien userform1

Code:

If Len(userform1.textbox1.text) < 10 Or Len (userform1.textbox2.text) < 10  Then

puis il y a Stextbox2 c'est quoi ?

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 2 Mars 2012

• #3

Re : code vba plpusieurs condition If

Re, Merci d'avoir porter réponse

Il s'agit bien d'un usrform et le code que tu m'as donné je l'ai bien mis mais c'est pr la suite je ne sais pas comment faire appliquer les instructions pr l'une ou l'autre instruction

Et ds mon uerform j'ai textbox1 et textbox2 et je veu que les valeurs mise ds les texbox soit reporter ds les cellules du classeur

Merci de votre aide

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 2 Mars 2012

• #4

Re : code vba plpusieurs condition If

GysEcxelVBA à dit:

Re, Merci d'avoir porter réponse

Il s'agit bien d'un usrform et le code que tu m'as donné je l'ai bien mis mais c'est pr la suite je ne sais pas comment faire appliquer les instructions pr l'une ou l'autre instruction

Et ds mon uerform j'ai textbox1 et textbox2 et je veu que les valeurs mise ds les texbox soit reporter ds les cellules du classeur

Merci de votre aide

Cliquez pour agrandir...

pourtant ça fonctionne

 

Pièces jointes

• test_user_textbox.xls

  56 KB · Affichages: 49

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 2 Mars 2012

• #5

Re : code vba plpusieurs condition If

Ah oui ça fonctionne bien parfait merci bcp d'avoir pris le temps de répondre.


au fait je veux que quand je remplie le textbox1 l'instruction ne me bloque pas si textbox2 n'est pas remplie

voilà ce que je veux :

si textbox1 < 10
msgbox "format date..."
exit sub
else
ThisWorkbook.Sheets("Feuil1").Range("A4").Value = Format(Textbox1.Value, "dd/mm/yyyy")

et si textbox2 < 10
msgbox "format date..."
exit sub
else
ThisWorkbook.Sheets("Feuil1").Range("A4").Value = Format(Textbox2.Value, "dd/mm/yyyy")

end if

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 2 Mars 2012

• #6

Re : code vba plpusieurs condition If

simplement comme ceci

Code:

Private Sub CommandButton1_Click()
If Len(UserForm1.TextBox1.Text) < 10 And Len(UserForm1.TextBox2.Text) < 10 Then MsgBox "format date pas valide"
If Len(UserForm1.TextBox1.Text) = 10 Then ThisWorkbook.Sheets("Feuil1").Range("A4").Value = Format(TextBox1.Value, "dd/mm/yyyy")
If Len(UserForm1.TextBox2.Text) = 10 Then ThisWorkbook.Sheets("Feuil1").Range("C4").Value = Format(TextBox2.Value, "dd/mm/yyyy")
 
 Unload UserForm1
End Sub

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 2 Mars 2012

• #7

Re : code vba plpusieurs condition If

Merci à et encore merci à toi d'avoir encore pris ton temps de me répondre car vraiment là je partais ds des complications

Je vais l'essayé et te tient au courrant

Merci encore a toi et le forum

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 5 Mars 2012

• #8

Re : code vba plpusieurs condition If

Bonjour,

le code que tu m'as filé fonctionne Merci bcp

je réponds c'est au cas où si qqu'un rencontrerai le mme souci

 

Vote positif 0 Vote négatif