Double saisie simultanée

Tu veux une copie d'écran pour preuve ?

Cliquez pour agrandir...

je n'arrive pas à faire fonctionner ce que tu me proposes

Cliquez pour agrandir...

Non HellBoy, tout a fait typique de ma réaction face aux commentaires des demandeurs disant que cela ne marche pas alors qu'ils devrait ecrire :

Cliquez pour agrandir...

Staple1600 à dit:

Re, salut HellBoy


Non HellBoy, tout a fait typique de ma réaction face aux commentaires des demandeurs disant que cela ne marche pas alors qu'ils devrait ecrire :

Cliquez pour agrandir...

Fo_rum à dit:

Bonjour,

de façon plus B a BA...sique :

Code:

Private Sub CommandButton1_Click()
  Dim Ll As Long
  With Sheets("Base de données commande")
    Ll = .Cells(Rows.Count, 3).End(xlUp).Row + 1
    .Range("C" & Ll & ":K" & Ll + 17).Value = Range("A21:I38").Value
    .Range("A" & Ll) = [D7]
    .Range("B" & Ll) = [K7]
    Range("A21:H38,D7,K7") = ""
  End With
End Sub

Cliquez pour agrandir...

Staple1600 à dit:

Bonsoir


J'ai l'impression que tu ne fais pas l'effort de comprendre le fonctionnement de ce que je te propose...

Code:

Sub EnregistrementCINQ()
 Dim src As Range, dst As Range, nr As Long, nc
 Dim kk7, ll7
 With Sheets("Commande")
    nc = .[D15]: kk7 = .[K7]: ll7 = .[L7]
    With .Range("A20").CurrentRegion
        nr = .Rows.Count - 1: Set src = .Offset(1, 0).Resize(nr)
    End With
End With
With Sheets("Base de données commande")
    Set dst = .[A65536].End(xlUp)(2).Resize(nr, 9)
        With dst
            .Offset(, 2).Value = src.Value
            .Columns(1) = nc
            .Columns(2) = kk7
            .Columns(3) = ll7
        End With
End With
Set dst = Nothing
Set src = Nothing
End Sub

PS: Tu n'as pas fait le ménage dans ta PJ.
Les remarques concernant les modules vides etc... restent vraies avec cette nouvelle PJ. 🙄

Cliquez pour agrandir...