Copie des données formulaire dans les cellules

[roybaf]

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?

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.

 

[mephis]

Re : Copie des données formulaire dans les cellules

Bonjour,
Ce n'est pas que je ne veux pas t'aider mais sans fichier joint c'est assez compliqué