Userform validation des données
Bonjour a tous et a toutes
J'ai crée un userform qui intègre les données dans la feuille Excel.
Seulement dans cette feuille il y a une colonne et des lignes qui comportent des formules, et lorsque je valide mes données qui ce mettent en place automatiquement dans les colonnes "a, b, c, d, e, g, h, i" sur la feuille cela me supprime mes formules qui ce trouvent dans la colonne "F". et lignes
Comment faire pour sauter la colonne "F" et les lignes "47, 92,136, 180.
avez vous une solution?
Merci pour votre aide
Private Sub Calendar1_Click()
End Sub
Private Sub ComboBox1_Change()
End Sub
Private Sub Frame1_Click()
End Sub
Private Sub CommandButton2_Click()
Unload Insertion
Range("A407").End(xlUp).Offset(1, 0).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Private Sub Label10_Click()
End Sub
Private Sub Label12_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub Label5_Click()
End Sub
Private Sub OptionButton1_Click()
End Sub
Private Sub OptionButton2_Click()
End Sub
Private Sub OptionButton3_Click()
End Sub
Private Sub OptionButton4_Click()
End Sub
Private Sub TextBox1_Change()
Dim Valeur As Byte
TextBox1.MaxLength = 10 'nb caractères maxi autorisé dans le textbox
Valeur = Len(TextBox1)
If Valeur = 2 Or Valeur = 5 Then TextBox1 = TextBox1 & "/"
End Sub
Private Sub TextBox6_Change()
End Sub
Private Sub Valider_Click()
Sheets("comptabiliter").Select
ActiveSheet.Unprotect
If Not IsDate(TextBox1) Then
MsgBox "Format de date Incorrect"
TextBox1 = ""
Exit Sub
End If
Range("A2") = Format(TextBox1.Value, "jj-mmm-aa")
Range("A2") = CDate(TextBox1.Text)
Range("B2") = TextBox7.Value
Range("C2") = ComboBox1.Value
Range("D2") = TextBox6.Value
Range("E2") = TextBox2.Value
Range("H2") = TextBox3.Value
Range("G2") = TextBox4.Value
Dim i As Byte
For i = 1 To 4
If Controls("OptionButton" & i) = True Then
ActiveSheet.Range("I2").Value = Controls("OptionButton" & i).Caption
End If
Next i
Range("a2:l2").Select
Selection.Copy
Range("A212").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A212").End(xlUp).Offset(1, 0).Select
Application.CutCopyMode = False
TextBox7.Value = ""
TextBox6.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
ComboBox1.RowSource = ""
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Unload Insertion
Range("A407").End(xlUp).Offset(1, 0).Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub
Private Sub Label1_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub TextBox3_Change()
End Sub
Private Sub TextBox4_Change()
End Sub
Private Sub TextBox7_Change()
End Sub
Private Sub UserForm_Click()
End Sub
Salut le forum
Phuteau, ton code n'aidera pas une solution à ton problème
Tu n'as qu'à cliquer sur ce lien : Joindre un fichier pour que l'on puisse t'aider, et recopier l'adresse sur ta ficelle.
Bonjours et
Merci pour votre aide
il faut cliquer sur la barre rouge avant la colonne "Credit" pour ouvrir l'userform
Bonjour
N'y a t'il pas de solution ?
Cordialement