Dennnisss
XLDnaute Occasionnel
Bonjour a tous J'ai creer un usf avec bien sur des textbox et aussi des checkbox soit 30 au total
dans la commande du commandbuttom1_click
il transfert ces donnees dans la feuille 3
jusque la ca va
ce que je cherche a faire dasn le usf , dans la command
Private Sub UserForm_Initialize() il rapporte les donnees inscrit dans la feuille je voudrais que si j'ouvre a nouveau cette usf est-ce qu'il peut mettre le crochet du checkbox si la ligne par exemple h1 est egale a 1 alors il doit y avoir un crochet dans l checkbox 1
si au besoin du petit dossier test je vous le prepare le plus vite possible
car celui que je travaille dessus est trop lourd pour etre envoyer
merci de votre reponse et attend vos correction
merci dennnisss
Private Sub CommandButton1_Click()
With Feuil3
.Range("B10").Value = TextBox1
.Range("C10").Value = Val(TextBox2)
.Range("D10").Value = Val(TextBox3)
.Range("F10").Value = Val(TextBox4)
.Range("G10").Value = Val(TextBox5)
.Range("H10").Value = Val(TextBox6)
.Range("I10").Value = Val(TextBox7)
.Range("K10").Value = Val(TextBox8)
.Range("L10").Value = Val(TextBox9)
.Range("M10").Value = Val(TextBox10)
.Range("N10").Value = Val(TextBox11)
If CheckBox1 = True Then
Range("h1") = 1
End If
If CheckBox2 = True Then
Range("h2") = 1
End If
If CheckBox3 = True Then
Range("h9") = 1
End If
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Feuil3
TextBox1 = .Range("B10")
TextBox2 = .Range("C10")
TextBox3 = .Range("D10")
TextBox4 = .Range("F10")
TextBox5 = .Range("G10")
TextBox6 = .Range("H10")
TextBox7 = .Range("I10")
TextBox8 = .Range("K10")
TextBox9 = .Range("L10")
TextBox10 = .Range("M10")
TextBox11 = .Range("N10")
End With
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
End Sub
dans la commande du commandbuttom1_click
il transfert ces donnees dans la feuille 3
jusque la ca va
ce que je cherche a faire dasn le usf , dans la command
Private Sub UserForm_Initialize() il rapporte les donnees inscrit dans la feuille je voudrais que si j'ouvre a nouveau cette usf est-ce qu'il peut mettre le crochet du checkbox si la ligne par exemple h1 est egale a 1 alors il doit y avoir un crochet dans l checkbox 1
si au besoin du petit dossier test je vous le prepare le plus vite possible
car celui que je travaille dessus est trop lourd pour etre envoyer
merci de votre reponse et attend vos correction
merci dennnisss
Private Sub CommandButton1_Click()
With Feuil3
.Range("B10").Value = TextBox1
.Range("C10").Value = Val(TextBox2)
.Range("D10").Value = Val(TextBox3)
.Range("F10").Value = Val(TextBox4)
.Range("G10").Value = Val(TextBox5)
.Range("H10").Value = Val(TextBox6)
.Range("I10").Value = Val(TextBox7)
.Range("K10").Value = Val(TextBox8)
.Range("L10").Value = Val(TextBox9)
.Range("M10").Value = Val(TextBox10)
.Range("N10").Value = Val(TextBox11)
If CheckBox1 = True Then
Range("h1") = 1
End If
If CheckBox2 = True Then
Range("h2") = 1
End If
If CheckBox3 = True Then
Range("h9") = 1
End If
End With
Unload Me
End Sub
Private Sub UserForm_Initialize()
With Feuil3
TextBox1 = .Range("B10")
TextBox2 = .Range("C10")
TextBox3 = .Range("D10")
TextBox4 = .Range("F10")
TextBox5 = .Range("G10")
TextBox6 = .Range("H10")
TextBox7 = .Range("I10")
TextBox8 = .Range("K10")
TextBox9 = .Range("L10")
TextBox10 = .Range("M10")
TextBox11 = .Range("N10")
End With
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1.Value)
End Sub