Copier valeur Excel
Odiena
-
Odiena -
Odiena -
Bonjour,
J'ai un soucis, voila je voudrais copier le resultat de mes formules dans une autre feuille Excel mais je sais pas comment m'y prendre.
Je vais developpé en essayant de rester clair... J'ai un tableau automatisé, qui s'appelle "Facture" et il faudrait que la dernière ligne (obtenu grace à des formules) s'enregistre automatiquement dans un talbeau qui s'appelle "historique" dans une autre feuille, et il faut que si jamais les valeurs changent dans le tableau "Facture", la dernière ligne s'enregistre en dessou des valeurs d'avant.
J'espère avoir était clair ...
Merci d'avance!!
J'ai un soucis, voila je voudrais copier le resultat de mes formules dans une autre feuille Excel mais je sais pas comment m'y prendre.
Je vais developpé en essayant de rester clair... J'ai un tableau automatisé, qui s'appelle "Facture" et il faudrait que la dernière ligne (obtenu grace à des formules) s'enregistre automatiquement dans un talbeau qui s'appelle "historique" dans une autre feuille, et il faut que si jamais les valeurs changent dans le tableau "Facture", la dernière ligne s'enregistre en dessou des valeurs d'avant.
J'espère avoir était clair ...
Merci d'avance!!
A voir également:
- Copier valeur Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si ou excel - Guide
- Comment copier une vidéo youtube - Guide
- Super copier - Télécharger - Gestion de fichiers
3 réponses
Bonjour,
Si j'ai bien compris :
Copier ce code derrière la feuille [ Facture ]
et celui-ci dans un module standard :
Lupin
Si j'ai bien compris :
Copier ce code derrière la feuille [ Facture ]
Option Explicit
'
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Plage As Range, Intersection As Range
' Ici, spécifier les cellules contenant les
' résultats de formule
Set Plage = Range("B7,D7")
Set Intersection = Application.Intersect(Target, Plage)
If (Intersection Is Nothing) Then
CopiePlage Plage
End If
End Sub
'
et celui-ci dans un module standard :
Option Explicit
'
Function CopiePlage(ByVal Source As Range)
Dim Position As Long
Source.Select
Selection.Copy
Sheets("Historiq").Select
Sheets("Historiq").Range("A1").Select
Position = Sheets("Historiq").Range("A65536").End(xlUp).Row
Sheets("Historiq").Range("A" & (Position + 1)).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Historiq").Range("A1").Select
Sheets("Facture").Select
Range("A1").Select
End Function
'
Lupin
