Double saisie simultanée

[JimGTI]

Bonjour a tous,

J'aimerais savoir si sous excel 2003, il est possible d'effectuer une double saisie dans deux tableaux distinct?

Je voudrais aussi savoir si il est possible de laisser dans le tableau B (dans lequel les données se sont saisies automatiquement, a partir du tableau A) une fois les données du tableau A effacées.

Merci de votre aide.

 

[JimGTI]

Re : Double saisie simultanée

Cela ne marche pas, les infos sont recopiées sans prendre en compte les données des cellules K7 et L7 😉

 

[Staple1600]

Re : Double saisie simultanée

Re


Si, si, cela marche... (j'ai testé avant de poster, figures-toi 🙄)

Tu veux une copie d'écran pour preuve ?


(Cliques sur l'image pour la voir en taille réelle)

 

[Hellboy]

Re : Double saisie simultanée

Tu veux une copie d'écran pour preuve ?

Tout à fait typique d'une personne techno qui veut montrer son écran dernier cri.... pffff ! ;-)

 

[Staple1600]

Re : Double saisie simultanée

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 :

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

 

[Fo_rum]

Re : Double saisie simultanée

Bonjour,

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

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

 

[Hellboy]

Re : Double saisie simultanée

Re Staple1600.

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 :

Je sais.... et j'avais compris... Pour avoir vu plusieures de tes interventions je sais que tu valide ton info. avant de poster....

 

[JimGTI]

Re : Double saisie simultanée

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 :

Autant pour moi, je n'avais pas vu que cela était transposé plus loin sur la feuille 😉

 

[JimGTI]

Re : Double saisie simultanée

Bonjour,

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

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

Bonjour, je te remercie de ta participation.

Cependant les infos que je souhaite reporté dans 2 colonnes supplémentaires dans la feuille "base de données commande" (idéalement en colonne B et C, en décalant sur la droite les autres) se trouve en K7 et L7 de la feuille "commande"

 

[JimGTI]

Re : Double saisie simultanée

Vous trouverez en PJ le fichier avec des couleurs, qui permettront d'identifier clairement ou doivent être transposé les données d'un fichier à l'autre.

En admettant toujours que le nombre de produit de commande peut varier et que les ces données ne doivent pas s'écrasé avec des enregistrement successifs 😉

Merci de votre aide

 

[Staple1600]

Re : Double saisie simultanée

Bonsoir

Ton fichier a eu un coup de chauffe, 😉 ?
(Tous tes modules sont vides, tes userforms ne contiennent aucun code, et tu as trois modules de classe vides)

Je reviendrai voir ton fil, quand je verrai au moins une trace des codes que nous t'avons proposés dans ce fil, dans ta PJ... 🙄🙄

 

[JimGTI]

Re : Double saisie simultanée

Bonjour,

voici, comme tu me l'as demandé, le fichier avec ta macro, qui effectivement est fonctionnelle, mais tu pourras remarqué que les données "client" et "of" ne sont pas transposé ou je le souhaite 🙄

 

[Staple1600]

Re : Double saisie simultanée

Bonsoir


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

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. 🙄

 

[JimGTI]

Re : Double saisie simultanée

Bonsoir


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

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. 🙄

Si je fait l'effort mais je commence tout juste a faire du VBA et cela reste encore très compliqué pour moi de déchiffrer tout ces codes

Et je n'arrive pas a faire fonctionner le code que tu me proposes 🙂

Effectivement, quand j’exécute le code, il y a un décalage. les informations transposés devraient être encore décalé d'une colonne

De plus les informations en K7 et L7 ne sont pas transposé en B et C

Lorsque tu parles de modules vides a supprimés, ou est-ce qu'ils se trouvent?

 

[JimGTI]

Re : Double saisie simultanée

De plus, il ne recopie pas les informations indiquées dans la colonne "ref"

Je met un imprim écran de ce que cela donne dans ce fichier:

 

[JimGTI]

Re : Double saisie simultanée

Bonjour,

je tiens a vous remercié tous pour votre participation

a bientôt