Enregistrer des données sur Excel

Résolu/Fermé
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011 - 9 nov. 2011 à 11:17
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011 - 10 nov. 2011 à 09:16
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



A voir également:

5 réponses

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
9 nov. 2011 à 12:38
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
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011
9 nov. 2011 à 13:13
ce qui m'intéresse, c'est garder les chiffres enregistrer sur la 2éme feuille.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
9 nov. 2011 à 12:44
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
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011
9 nov. 2011 à 13:14
Merci bcp,

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

dsl je suis nul.
0
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011
9 nov. 2011 à 13:10
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
9 nov. 2011 à 13:12
donc le code donné plus haut est bon.
0
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011
9 nov. 2011 à 13:15
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
9 nov. 2011 à 13:17
adapte la plage à copier :
Range("C4:C18").Copy
Range("C4:C18").ClearContents

et le nom de la feuille :
With Sheets("Feuil2")
0
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011
9 nov. 2011 à 13:19
je vais l'essayer tt de suite, merci bcp pijaku.
0
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011
9 nov. 2011 à 13:22
ca me sort: erreur de compilation : seuls les commentaires peuvent apparaitre après end sub, end function, u end property !!!
0
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011
9 nov. 2011 à 14:59
UP !! Merci
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
9 nov. 2011 à 15:03
MP.
0

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

Posez votre question
tahamed Messages postés 26 Date d'inscription dimanche 1 février 2009 Statut Membre Dernière intervention 24 novembre 2011
Modifié par tahamed le 10/11/2011 à 09:17
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