Fonction

excalibur

XLDnaute Impliqué

• 19 Juillet 2008

• #2

Re : Fonction

bonjour JPS28 le forum par macro

Option Explicit
Sub test1()
Application.ScreenUpdating = False
Sheets(1).Activate: Range("b6").Copy Destination:=Sheets(2).Range("A65536").End(xlUp)(2)
Sheets(1).Activate: [b6].Select
End Sub

 

Vote positif 0 Vote négatif

J

JPS28

XLDnaute Occasionnel

• 19 Juillet 2008

• #3

Re : Fonction

Bonjour excalibur le forum
Merci beaucoup de m'avoir répondu. Donc pour moi en condition réel ma cellule a copier est k60 de la feuille "Facture" allant dans la colonne A2 de la feuille "Archive Fc"Cela fait:
Option Explicit
Sub test1()
Application.ScreenUpdating = False
Sheets(1).Activate: Range("k60").Copy Destination: Archive Fc=Sheets(2).Range("A65536").End(xlUp)(2 )
Sheets(1).Activate: [b6].Select
End Sub
Mais je début en VBA, alors ou placé cette macro? Dans la feuille "Archive Fc"ou bien dans la feuille "Facture" car j'en ai déjà beaucoup de macro.C'est pour cela que en fonction cela m'aurais été plus facile Bien que déjà compliqué😕
Merci encore.
Cordialement.
JPS

 

Vote positif 0 Vote négatif

J

JPS28

XLDnaute Occasionnel

• 20 Juillet 2008

• #4

Re : Fonction

Bonjour le forum
Je souhaiterais avoir de l'aide sur ce problème car je n'arrive toujours à placer le texte de macro que l'on ma si gentiment proposé, et j'y est passé quelques temps, ne peut on pas avoir la même chose en fonction.
Merci.
Cordialement.
JPS.

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Juillet 2008

• #5

Re : Fonction

bonjour JPS28

A mettre dans le module de la Feuille Facture:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$K$60" Then
  Sheets("Archive FC").Range("A65536").End(xlUp).Offset(1, 0) = Target.Value
End If
End Sub

A chaque changement de la valeur de K60 l'enregistrement se fera dans la feuille Archive FC

 

Vote positif 0 Vote négatif

J

JPS28

XLDnaute Occasionnel

• 20 Juillet 2008

• #6

Re : Fonction

Re PierreJean le forum.
Je te remercie je vais essayer ça dans la journée.
Je te tiens au courant.
Cordialement.
JPS.

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 20 Juillet 2008

• #7

Re : Fonction

Bonjour,

Je vais m'inspirer de la solution de pierrejean pour montrer qu'un total peut être à tout moment être porté en Feuil2 en dessous du précédent total sauvegardé.

Car s'il est vrai que la solution de pierrejean fonctionne parfaitement bien dès lors que l'on met directement à jour la cellule à conserver, cela n'est plus vrai quand cette cellule est le résultat d'une formule.

 

Pièces jointes

• Empilement de résultas partiels sur Feuil2.xls

  29 KB · Affichages: 56

Dernière édition: 21 Juillet 2008

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Juillet 2008

• #8

Re : Fonction

Bonjour marmotte18, JPS28, PierreJean, excalibur,

Chez-moi ton fichier fonctionne ou alors je n'ai rien compris.

Précises peut-être ton souci.

Bon dimanche en attendant.

Jean-Pierre

 

Vote positif 0 Vote négatif

marmotte18

XLDnaute Impliqué

• 20 Juillet 2008

• #9

Re : Fonction

Jeanpierre,

Je n'ai pas de souci, j'apporte seulement de l'eau au moulin en apportant une solution qui semble répondre un peu plus à la question de base.

Dans mon exemple, la cellule nommée "Cumul" est la somme automatique des cellules qui la précèdent. Si l'on modifie un élément de la somme, le système de pierrejean ne peut pas intercepter la modification du cumul.

Il ne peut détecter que les saisies directes sur la cellule à sauvegarder !

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 20 Juillet 2008

• #10

Re : Fonction

Re,

Désolé, mais je n'avais testé que ton fichier. Pour le reste, tu as raison.

 

Vote positif 0 Vote négatif

J

JPS28

XLDnaute Occasionnel

• 20 Juillet 2008

• #11

Re : Fonction

Bonjour marmotte18, JPS28, PierreJean, excalibur, le forum
Me revoilà je m'excuse mais tout se vous avez écris je ni comprend strictement rien je suis complètement novice et j'avance au fur et a mesure de ce que je trouve sur ce site et de tout l'aide que je peut trouver et j'en remercie grandement tout le monde,donc pour ma part j'ai déjà un fichier j'en n'ai trouvé un autre pour le compléter. Maintenant je souhaiterais trouvé le moyen de renvoyer pas une mais plusieurs cellules sur ce nouveau fichier et rien ne fonctionne j'ai essayé plusieurs solutions mais prise de tête et compagnie avec migraine par dessus le marché mais je dois être c... ou bouché a l'émeri car rien ne fonctionne cher moi 🙁sur se fichier.
Cordialement.
JPS

 

Vote positif 0 Vote négatif

J

JPS28

XLDnaute Occasionnel

• 20 Juillet 2008

• #12

Re : Fonction

Re
Le mieux c'est que je vous joigne le fichier la macro de pierejean se trouve en fin de Module 1 je souhaiterai quand j'archive une facture que le n° de Facture, le Client, le date de facture, le code client, HT, TVA et le TTC, s’inscrive dans la Feuille "Archive Fc" pour pouvoir les retrouver dans la feuille Mire retrouver toutes mes factures et compta. Merci de votre aide.
Cordialement.
JPS

 

Pièces jointes

• Copie de Gestion Clients Factures.zip

  223.4 KB · Affichages: 30
• Facture.zip

  143.6 KB · Affichages: 32
• Facture.zip

  143.6 KB · Affichages: 35
• Facture.zip

  143.6 KB · Affichages: 32

Dernière édition: 21 Juillet 2008

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 21 Juillet 2008

• #13

Re : Fonction

Re tous,

La macro de PierreJean, tu veux dire.

Je n'ai, pour ma part, fait que souligner que le fichier à un instant T fonctionnait bien.

Merci de rectifier ton post pour qu'il n'y ait pas d'ambiguïtés.

Pas de stress toutefois et bonne soirée

 

Vote positif 0 Vote négatif

J

JPS28

XLDnaute Occasionnel

• 21 Juillet 2008

• #14

Re : Fonction

Re
Voila rectifié Milles excuses.
JPS

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 21 Juillet 2008

• #15

Re : Fonction

Re,

Il n'y avait pas de souci pour moi.

Merci en tous cas

 

Vote positif 0 Vote négatif