Copier valeur Excel

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

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. michel_m Contributeur
    Bonjour

    ..."J'espère avoir était clair ... "...

    non, absolument pas
    1. Utilisateur anonyme
      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

      Discussions similaires

      Formule Excel : "SI" une cellule contient un mot, alors ?
      Tonio5933

      9 réponses