Double saisie simultanée

Hellboy

XLDnaute Accro
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

XLDnaute Junior
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

XLDnaute Junior
Re : Double saisie simultanée

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

XLDnaute Junior
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
 

Fichiers joints

Staple1600

XLDnaute Barbatruc
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... :rolleyes::rolleyes:
 

Staple1600

XLDnaute Barbatruc
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...
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. :rolleyes:
 

JimGTI

XLDnaute Junior
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...
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. :rolleyes:
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

XLDnaute Junior
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:
 

Fichiers joints

Dernière édition:

Fo_rum

XLDnaute Accro
Re : Double saisie simultanée

Bonjour,

...
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
...
Tu aurais dû commencer par là !

Que tu ne puisses pas adapter le code de Staple ;), j'en conviens (pas à la portée d'un novice que je suis).

Par contre, je t'en ai proposé un des plus classiques*.
Pour faciliter la compréhension, je suis allé jusqu'à utiliser Range("A" & Ll) plutôt que Cells(Ll,1) (plus court donc plus commode à écrire) en séparant bien chaque cas !

En essayant de redistribuer par colonne tu dois arriver à
Code:
Private Sub CommandButton1_Click()
    Dim Ll As Long
    With Sheets("Base de données commande")
      Ll = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      .Range("A" & Ll & ":A" & Ll + 17).Value = Range("A21:A38").Value
      .Range("B" & Ll & ":C" & Ll).Value = Range("K7:L7").Value
      .Range("D" & Ll & ":K" & Ll + 17).Value = Range("A21:I38").Value
      Range("A21:H38,K7:L7") = ""
    End With
 End Sub
* raisonnement :
on détermine la première ligne d'écriture Ll qui est celle qui suit la dernière ligne déjà complétée
on écrit la plage de la colonne A dans la plage correspondante
on écrit en B et C les 2 cellules K7 et L7
on écrit la plage qu'il reste où il faut
on efface les cellules qui ont été transférées.
 

JimGTI

XLDnaute Junior
Re : Double saisie simultanée

Bonjour,

oui voila c'est exactement ca!

mise à part le fait que j'aimerais que les infos en K7 et L7 apparaissent sur toute les lignes a la recopie ;)

je te remercie beaucoup pour ton explication
 

Staple1600

XLDnaute Barbatruc
Re : Double saisie simultanée

Bonsoir JMGTI, Bonsoir Fo_rum


EDITION: sur la feuille Base de Donnée Commandes
resmacro.jpg


JMGTI: Dans Excel, Faire ALT+F11 puis regardes à gauche de ton écran (c'est là qu'ils sont)

go2pb.jpg

(Pour éviter le torticolis, un petit coup de rotate dans Paint)
 
Dernière édition:

JimGTI

XLDnaute Junior
Re : Double saisie simultanée

Ok, merci de cette indication

Je vais réessayer ton dernier code mais il me semblait qu'il n'affectait pas les infos de K7 et L7 en B et C

je vais voir maintenant
 

JimGTI

XLDnaute Junior
Re : Double saisie simultanée

Bonjour a tous,

je reviens vers vous pour vous poser une question complémentaire:
Le contenue des cellules se trouvant dans la colonne "Total" affiche un résultat issu d'une formule.

Je voudrais savoir comment modifié mon code actuel de recopie (qui ne recopie rien justement :/)

NumTotal = ActiveCell.Offset(0, 6).Value
Puis: ActiveCell.Offset(0, 10).Value = NumTotal

Pour qu'il puisse recopié les résultats.

Merci d'avance pour votre aide ;)
 

JimGTI

XLDnaute Junior
Re : Double saisie simultanée

Voici le dis fichier en PJ/

J'ai un problème avec ces deux macros.

En effet, lorsque je les ai enregistrées la première fois, tout été parfaitement fonctionnel.

Cependant, après l'enregistrement, un problème s'est crée a la recopie.

Vous pourrez voir que dans la base de données, les infos sont recopiés correctement mais que les infos numéro de commande, d'offre, nom client et numéro OF sont recopiés plusieurs fois inutilement.

J'ai essayé de supprimé les modules vides, pensant que le problème venait de la, mais rien n'y fait.

D'ou est-ce que peut venir le problèmes svp?

Merci de vos réponses et de vos éclaircissement.
 

Fichiers joints

Fo_rum

XLDnaute Accro
Re : Double saisie simultanée

Bonsoir,

un exemple avec une seule macro pour plusieurs feuilles mais qui n'a aucun rapport avec le titre de départ :confused:.
 

Fichiers joints

Discussions similaires


Haut Bas