aide sur saisie dans tableau

[nrdz83]

Bonjour à tous je n'arrive pas à trouver l'erreur du code .

Je cherche à saisir les données via u useform et ranger ces données dans un tableau de la feuille "Article".

Voici mon code

Private Sub CommandButton4_Click() 'bouton "Valider"
Dim Ctrl As Control 'déclare la variable crtl

'interdit un champ non édité
For Each Ctrl In Me.Controls
    If Ctrl.Tag = "val" Then
        If Ctrl.Value = "" Then
            Ctrl.SetFocus
            MsgBox "Il faut renseigner toute les cases   "
            Exit Sub
        End If
    End If
Next Ctrl


With Sheets("Article")
    .Range("A" & li) = Me.TextNno.Value
    .Range("B" & li) = Me.TextArt.Value
    .Range("C" & li) = Me.ComboBox4.Value
    .Range("D" & li) = Me.TextRma.Value
    .Range("E" & li) = Me.ComboBox1.Value
    .Range("F" & li) = Me.ComboBox2.Value
    .Range("G" & li) = Me.ComboBox3.Value
    .Range("H" & li) = Me.TextObservations.Value
End With

D'avance merci à tous 😎

 

[mromain]

Re : aide sur saisie dans tableau

bonjour,

il te manque une petite ligne pour initialiser "li" je pense

        End If
    End If
Next Ctrl

With Sheets("Article")
   [B] li = .Cells(.Rows.Count, 1).End(xlUp).Row +1[/B]
    .Range("A" & li) = Me.TextNno.Value
    .Range("B" & li) = Me.TextArt.Value
    .Range("C" & li) = Me.ComboBox4.Value
    .Range("D" & li) = Me.TextRma.Value

a+

 

[nrdz83]

Re : aide sur saisie dans tableau

Bonjour à tous et merci mromain effectivement ça marche impec avec la ligne mes amitiés bye 😎