Bonjour tout le monde,
J'ai un formulaire de saisie qui ce présente en 7 lignes identiques, lorsqu'une ligne est vide je ne souhaite pas que lors de la validation le textbox22 soit copié en colonne "D", mais toutes mes données ne ce copie pas voilà mon code où ai-je fais une erreur?
Merci pour votre temps.
J'ai un formulaire de saisie qui ce présente en 7 lignes identiques, lorsqu'une ligne est vide je ne souhaite pas que lors de la validation le textbox22 soit copié en colonne "D", mais toutes mes données ne ce copie pas voilà mon code où ai-je fais une erreur?
Code:
Private Sub suivant2_Click()
Dim NLig As Long
With Sheets("DONNEES")
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & NLig) = ComboBox6.Value
.Range("B" & NLig) = ComboBox12.Value
.Range("C" & NLig) = TextBox3.Value
If ComboBox6.Value = "" Then
Else: .Range("d" & NLig) = TextBox22.Value
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & NLig) = ComboBox13.Value
.Range("B" & NLig) = ComboBox14.Value
.Range("C" & NLig) = TextBox21.Value
If ComboBox13.Value = "" Then
Else: .Range("d" & NLig) = TextBox22.Value
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & NLig) = ComboBox1.Value
.Range("B" & NLig) = ComboBox7.Value
.Range("C" & NLig) = TextBox18.Value
If ComboBox1.Value = "" Then
Else: .Range("d" & NLig) = TextBox22.Value
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & NLig) = ComboBox2.Value
.Range("B" & NLig) = ComboBox8.Value
.Range("C" & NLig) = TextBox15.Value
If ComboBox2.Value = "" Then
Else: .Range("d" & NLig) = TextBox22.Value
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & NLig) = ComboBox3.Value
.Range("B" & NLig) = ComboBox9.Value
.Range("C" & NLig) = TextBox12.Value
If ComboBox3.Value = "" Then
Else: .Range("d" & NLig) = TextBox22.Value
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & NLig) = ComboBox4.Value
.Range("B" & NLig) = ComboBox10.Value
.Range("C" & NLig) = TextBox9.Value
If ComboBox4.Value = "" Then
Else: .Range("d" & NLig) = TextBox22.Value
NLig = .Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Row
.Range("A" & NLig) = ComboBox5.Value
.Range("B" & NLig) = ComboBox11.Value
.Range("C" & NLig) = TextBox6.Value
If ComboBox5.Value = "" Then
Else: .Range("d" & NLig) = TextBox22.Value
End If
End If
End If
End If
End If
End If
End If
End With
ComboBox1.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox4.Text = ""
ComboBox5.Text = ""
ComboBox6.Text = ""
ComboBox7.Text = ""
ComboBox8.Text = ""
ComboBox9.Text = ""
ComboBox10.Text = ""
ComboBox11.Text = ""
ComboBox12.Text = ""
ComboBox13.Text = ""
ComboBox14.Text = ""
TextBox18.Text = ""
TextBox15.Text = ""
TextBox12.Text = ""
TextBox9.Text = ""
TextBox6.Text = ""
TextBox3.Text = ""
TextBox21.Text = ""
End Sub
Merci pour votre temps.