Nouvelle Ligne Base de donnée

Bonjour,

Après plusieurs recherches je n'arrive pas à trouver réponse à mon problème

Je veux simplement lors du formulaire de saisie créer une nouvelle ligne pour chaque enregistrement

Merci de me mettre sur une piste j'ai essayé plusieurs codes mais rien ne fonctionne...

Cordialement,

Bonjour,

Modifie ton code comme suivant :

Private Sub CommandButton1_Click()
    Dim derlig As Long
    If OptionButton1 = True Then
        derlig = Sheets("Reliquats").Range("A" & Rows.Count).End(xlUp).Row
        Worksheets("Reliquats").Range("B" & derlig + 1) = TextBox1
        Worksheets("Reliquats").Range("C" & derlig + 1) = TextBox2
        Worksheets("Reliquats").Range("A" & derlig + 1) = DTPicker1
        MsgBox "Commande ajoutée", vbInformation, "Saisie"
    ElseIf OptionButton2 = True Then
        derlig = Sheets("Soldee").Range("A" & Rows.Count).End(xlUp).Row
        Worksheets("Soldee").Range("B" & derlig + 1) = TextBox1
        Worksheets("Soldee").Range("C" & derlig + 1) = TextBox2
        Worksheets("Soldee").Range("A" & derlig + 1) = DTPicker1
        MsgBox "Commande ajoutée", vbInformation, "Saisie"
    ElseIf OptionButton3 = True Then
        derlig = Sheets("Preparation").Range("A" & Rows.Count).End(xlUp).Row
        Worksheets("Preparation").Range("B" & derlig + 1) = TextBox1
        Worksheets("Preparation").Range("C" & derlig + 1) = TextBox2
        Worksheets("Preparation").Range("A" & derlig + 1) = DTPicker1
        MsgBox "Commande ajoutée", vbInformation, "Saisie"
    Else
        MsgBox "Commande non ajoutée", vbInformation, "Saisie"
    End If
End Sub

Merci Beaucoup Exactement ce qu'il me fallait

Maintenant je code la consultation je reviens vers vous au cas où...

Cordialement,

Re,

Il y avait des erreurs dans mon code. Merci de reprendre ce que je viens de remettre.

Oui j'ai corrigé comme ce ci

Private Sub CommandButton1_Click()
        Dim derlig As Long
        If OptionButton1 = True Then
            derlig = Sheets("Reliquats").Range("A" & Rows.Count).End(xlUp).Row
            Worksheets("Reliquats").Range("B" & derlig + 1) = TextBox1
            Worksheets("Reliquats").Range("C" & derlig + 1) = TextBox2
            Worksheets("Reliquats").Range("A" & derlig + 1) = DTPicker1
            MsgBox "Commande ajoutée", vbInformation, "Saisie"
        ElseIf OptionButton2 = True Then
            derlig = Sheets("Reliquats").Range("A" & Rows.Count).End(xlUp).Row
            Worksheets("Soldee").Range("B" & derlig + 1) = TextBox1
            Worksheets("Soldee").Range("C" & derlig + 1) = TextBox2
            Worksheets("Soldee").Range("A" & derlig + 1) = DTPicker1
            MsgBox "Commande ajoutée", vbInformation, "Saisie"
        Else
            derlig = Sheets("Reliquats").Range("A" & Rows.Count).End(xlUp).Row
            If OptionButton3 = True Then
            Worksheets("Preparation").Range("B" & derlig + 1) = TextBox1
            Worksheets("Preparation").Range("C" & derlig + 1) = TextBox2
            Worksheets("Preparation").Range("A" & derlig + 1) = DTPicker1
            MsgBox "Commande ajoutée", vbInformation, "Saisie"
        End If
        End If
End Sub

Re,

Non. Il faut reprendre ce que j'ai proposé dans mon dernier post. Car les noms de feuilles dans le calcul de la dernière ligne ne correspondent pas à cause de copier coller qui est fatal.

Re,

Pour la consultation je suis confronté au même problème.

Je veux pouvoir consulter les données à la suite en cliquant sur valider et pouvoir modifier le statut de chaque CDV.

Par Ex la CDV en reliquat passe en prépa (la ligne est alors effacée de la feuille reliquat et se met dans la feuille prepa)

Mais à vrai dire je ne sais pas trop comment m'y prendre

Je vous joint le fichier qui à mon avis va vous faire pleurer....

Cordialement,

Re,

Quand tu consultes une feuille, Veux-tu accéder à la feuille correspondante ou à un enregistrement d'une feuille sélectionnée ? Il me faut des précisions.

Re,

En faite par le pricipe du Userform3 je veux faire défiler dans cette fenêtre les CDV une par une et pouvoir changer le statut en fonction de l'évolution de la commande.

Cordialement,