Copier valeur Excel

Question

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

michel_m · Answer

Bonjour

..."J'espère avoir était clair ... "...

non, absolument pas

Utilisateur anonyme · Answer

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

Odiena · Answer

Merci beaucoup!! C'est bon mon problème est réglé!

Copier valeur Excel

3 réponses

Discussions similaires

Newsletters