Enregistrer des données sur Excel

Résolu
tahamed Messages postés 27 Statut Membre -  
tahamed Messages postés 27 Statut Membre -
Bonjour,

Je vous remercie par avance pour votre aide, j'ai un petit souci au niveau de mon boulot, là j'ai fais un petit tableau sur Excel pour entrer des données que je vais recevoir chaque semaines, et j'ai ajouté un petit bouton en bas "enregistrer", mais j'ai dans une autre feuille dans le même classeur une petite base de donnée que je veux alimenter derrière (par semaine, produit, client).
Clairement je veux entrer les données dans la première feuille, cliquer sur Enregistrer et ca s'enregistre directement sur la deuxième feuille.

J'espère que je suis claire et je vous remercie encore.

pour info, je ne peux pas enregistrer directement dans la deuxième feuille, car cet outils est pour le long terme et ce n'est pas très pratique (juste pour ceux qui vont me le proposer).

CDLT

5 réponses

  1.
    pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,
    Dans les données que tu souhaites enregistrer, y a t'il des formules? Si oui, qu'est ce qui t'intéresse, garder les formules ou le résultat?
    0
    1. tahamed Messages postés 27 Statut Membre
       
      ce qui m'intéresse, c'est garder les chiffres enregistrer sur la 2éme feuille.
      0
  2. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,
    Un exemple
    Le code : 
    Private Sub CommandButton1_Click()
Dim Lign As Long

Application.ScreenUpdating = False
Range("C4:C18").Copy
With Sheets("Feuil2")
    Lign = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Range("A" & Lign).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End With
Range("C4:C18").ClearContents
Application.ScreenUpdating = True
End Sub
    0
    1. tahamed Messages postés 27 Statut Membre
       
      Merci bcp,

      mais qu'est ce que je dois changer ? quelle ligne ? pour l'adapter a ma situation !!

      dsl je suis nul.
      0
  3. tahamed Messages postés 27 Statut Membre
     
    Merci Bcp,

    en faite dans le 1er tableau, je vais faire seulement la saisie des chiffres dans le tableau, et derrière je veux un enregistrement directe dans la deuxième feuille, en faite actuellement je n'ai pas de formule, que des entiers.
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      donc le code donné plus haut est bon.
      0
    2. tahamed Messages postés 27 Statut Membre
       
      je viens de l'essayer, ca me sort une erreur, mais c'est normale je crois, car j'ai rien changer dessus pour qu'il marche avec mon tableau
      0
    3. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      adapte la plage à copier :
      Range("C4:C18").Copy
      Range("C4:C18").ClearContents

      et le nom de la feuille :
      With Sheets("Feuil2")
      0
    4. tahamed Messages postés 27 Statut Membre
       
      je vais l'essayer tt de suite, merci bcp pijaku.
      0
    5. tahamed Messages postés 27 Statut Membre
       
      ca me sort: erreur de compilation : seuls les commentaires peuvent apparaitre après end sub, end function, u end property !!!
      0
  4. tahamed Messages postés 27 Statut Membre
     
    UP !! Merci
    0
    1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
       
      MP.
      0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. tahamed Messages postés 27 Statut Membre
     
    Un Grand Merci a notre Membre PIJAKU qui ma vraiment aider.

    Prob Résolut, je continue la discution en MP avec Pijaku.
    Pour les intéréssés, envoyer moi un msg privée pour vous transmettre le fichier Test.
    0