Textbox

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention -
amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention - 21 mars 2017 à 22:48

bonjour j’ai un soucie avec se codage quelqu'un pourrait il m'aider?

Private Sub CommandButton1_Click()

Sheets("Feuil1").Activate
Dim Insuv As Integer

Insuv = [A10000].End(xlUp).Row + 1

Dim i As Integer
For i = l To Insuv
If Cells(i, 1).Text = TextBox1.Text Then MsgBox "Ce code est déja attribué à " & Cells(i, 3).Value: TextBox1.Text = "Textbox1.SetFocus:Exit Sub"
Next

Cells(Insuv, 1) = TextBox1.Text
Cells(Insuv, 3) = TextBox2.Text
Cells(Insuv, 4) = DateValue(TextBox3.Value & "/" & TextBox4.Value & "/" & TextBox5.Value)
Cells(Insuv, 5) = TextBox6.Text
Cells(Insuv, 6) = TextBox7.Text
Cells(Insuv, 7) = TextBox8.Text
Cells(Insuv, 8) = TextBox9.Text
Cells(Insuv, 10) = TextBox10.Text
Cells(Insuv, 11) = DateValue(TextBox11.Value & "/" & TextBox12.Value & "/" & TextBox13.Value)
Cells(Insuv, 12) = TextBox14.Text
Cells(Insuv, 13) = TextBox15.Text
Cells(Insuv, 14) = DateValue(TextBox16.Value & "/" & TextBox17.Value & "/" & TextBox18.Value)
Cells(Insuv, 15) = TextBox19.Text
Cells(Insuv, 16) = TextBox20.Text
Cells(Insuv, 18) = DateValue(TextBox21.Value & "/" & TextBox22.Value & "/" & TextBox23.Value)
Cells(Insuv, 19) = TextBox24.Text
Cells(Insuv, 20) = TextBox25.Text
Cells(Insuv, 21) = TextBox26.Text
Cells(Insuv, 22) = TextBox27.Text
Cells(Insuv, 23) = TextBox28.Text
Cells(Insuv, 24) = TextBox29.Text
Cells(Insuv, 25) = TextBox30.Text
Cells(Insuv, 2) = ComboBox1.Text
If OptionButton1.Value = True Then Cells(Insuv, 9) = "Marié(e)" Else Cells(Insuv, 9) = "Célibataire"
If OptionButton3.Value = True Then Cells(Insuv, 17) = "Oui" Else Cells(Insuv, 17) = "Non"
TextBox1.Text = ""
TextBox28.Text = ""
TextBox29.Text = ""
TextBox1.SetFocus

End Sub

A voir également:

Textbox
Comment concatener plusieurs textbox ✓ - Forum Excel
Colorer textbox sélectionné ✓ - Forum VB / VBA
Focus TextBox WPF ✓ - Forum C#
Erreur sur isdate textbox ✓ - Forum VB / VBA
Vba textbox date format dd/mm/yyyy ✓ - Forum Excel

6 réponses

Réponse 1 / 6

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 724

Bonjour,

Quel est ton souci ?
Doit-on le deviner ?

Réponse 2 / 6

eric2027 Messages postés 289 Date d'inscription Statut Membre Dernière intervention 6

Bonjour,

Je viens de tomber sur ce post, pour moi tout fonctionne sauf que les images ne reste pas figées sur mon userform, je suis obliger de faire une prise écran, la mettre sur word et imprimer et j'en ai pas mal à faire.

Ma question, est ce qu'il est possible que, quand je mets une photo sur l'userform elle reste incorporé quand je la rappelle

Merci par avance pour vos solutions

Bien cordialement

eric2027

cs_Le Pivert Messages postés 7904 Date d'inscription Statut Contributeur Dernière intervention 729

Bonjour,

eric2027 met ta demande sur un nouveau post, car cela n'a rien a voir avec ce post!

eric2027 Messages postés 289 Date d'inscription Statut Membre Dernière intervention 6

Voilà c'est fait

Réponse 3 / 6

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention

Merci gbinforme

en faite, mon soucie est que je veux empêché les duplication dans la cellules 1 ou A

gbinforme Messages postés 14946 Date d'inscription Statut Contributeur Dernière intervention 4 724

Bonsoir,

Tu veux empêcher les doublons en colonne A, ok
Ton code ne fonctionne pas ?

Réponse 4 / 6

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention

OUI OUI
VOICI

Private Sub CommandButton1_Click()

Sheets("ENREGISTREMENT").Activate
Dim Insuv As Integer

Insuv = [A10000].End(xlUp).Row + 1

Dim i As Integer
For i = l To Insuv
If Cells(i, 1).Text = TextBox1.Text Then MsgBox "Ce code est déja attribué à " & Cells(i, 3).Value: TextBox1.Text = "Textbox1.SetFocus:Exit Sub"
Next

Cells(Insuv, 1) = TextBox1.Text
Cells(Insuv, 3) = TextBox2.Text
Cells(Insuv, 4) = DateValue(TextBox3.Value & "/" & TextBox4.Value & "/" & TextBox5.Value)
Cells(Insuv, 5) = TextBox6.Text
Cells(Insuv, 6) = TextBox7.Text
Cells(Insuv, 7) = TextBox8.Text
Cells(Insuv, 8) = TextBox9.Text
Cells(Insuv, 10) = TextBox10.Text
Cells(Insuv, 11) = DateValue(TextBox11.Value & "/" & TextBox12.Value & "/" & TextBox13.Value)
Cells(Insuv, 12) = TextBox14.Text
Cells(Insuv, 13) = TextBox15.Text
Cells(Insuv, 14) = DateValue(TextBox16.Value & "/" & TextBox17.Value & "/" & TextBox18.Value)
Cells(Insuv, 15) = TextBox19.Text
Cells(Insuv, 16) = TextBox20.Text
Cells(Insuv, 18) = DateValue(TextBox21.Value & "/" & TextBox22.Value & "/" & TextBox23.Value)
Cells(Insuv, 19) = TextBox24.Text
Cells(Insuv, 20) = TextBox25.Text
Cells(Insuv, 21) = TextBox26.Text
Cells(Insuv, 22) = TextBox27.Text
Cells(Insuv, 23) = TextBox28.Text
Cells(Insuv, 24) = TextBox29.Text
Cells(Insuv, 25) = TextBox30.Text
Cells(Insuv, 2) = ComboBox1.Text
If OptionButton1.Value = True Then Cells(Insuv, 9) = "Marié(e)" Else Cells(Insuv, 9) = "Célibataire"
If OptionButton3.Value = True Then Cells(Insuv, 17) = "Oui" Else Cells(Insuv, 17) = "Non"
TextBox1.Text = ""
TextBox28.Text = ""
TextBox29.Text = ""
TextBox1.SetFocus

End Sub

Private Sub UserForm_Initialize()

ComboBox1.AddItem "A"
ComboBox1.AddItem "B"
ComboBox1.AddItem "C"
ComboBox1.AddItem "D"
ComboBox1.AddItem "E"
ComboBox1.AddItem "F"
ComboBox1.AddItem "G"
ComboBox1.AddItem "H"
ComboBox1.AddItem "I"
ComboBox1.AddItem "J"
ComboBox1.AddItem "K"
ComboBox1.AddItem "L"
ComboBox1.AddItem "M"
ComboBox1.AddItem "N"
ComboBox1.AddItem "O"
ComboBox1.AddItem "P"
ComboBox1.AddItem "Q"
ComboBox1.AddItem "R"
ComboBox1.AddItem "S"
ComboBox1.AddItem "T"
ComboBox1.AddItem "U"
ComboBox1.AddItem "V"
ComboBox1.AddItem "W"
ComboBox1.AddItem "X"
ComboBox1.AddItem "Y"
ComboBox1.AddItem "Z"

End Sub

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 6

momo

bonjour
voila la recherche textbox1

Insuv = Range("A" & Rows.Count).End(xlUp).Row
   For I = 1 To Insuv
      If UCase(Cells(I, 1).Value) = UCase(Textbox1.Value) Then
         MsgBox "Ce code est déja attribué à " & Cells(I, 3).Value
         Textbox1.Value = ""
         Textbox1.SetFocus
         Exit Sub
      End If
   Next
Insuv = Insuv + 1

A+
Maurice

Réponse 6 / 6

amram.a Messages postés 56 Date d'inscription Statut Membre Dernière intervention

je te comprend pas

Discussions similaires

[VBA] format de date dans textbox

[Excel-VBA] format date

Textbox date

Backcolor TextBox

TextBox au format date

Votre réponse

Discussions similaires