Récupérer données de nouvelle feuilleRésolu

Question

Salut &#224; tous,
J'ai besoin d'un s&#233;rieux coup de main car je n'arrive pas &#224; trouver la soluce.
Lorsque j'ajoute une nouvelle feuille dans mon classeur, j'aimerais r&#233;cup&#233;rer la valeur d'une cellule et l'ajouter dans une feuille existante.
Vous me direz, rien de plus facile!
L&#224; ou &#231;a se complique, pour ma part, c'est que cette nouvelle feuille est une copie d'une feuille existante, je m'explique:
J'ai une feuille "frais janvier" d'ou je r&#233;cup&#232;re la valeur de la cellule (F35) dans la feuille "d&#233;penses2005" &#224; la cellule (G6).
Si je copie la feuille "frais janvier", j'obtient une feuille nomm&#233; "frais janvier (2)".
Mon probl&#232;me:
Comment faire pour que la cellule (G6) de la feuille  r&#233;cup&#233;re la valeur de la cellule (F35) de "frais janvier " et si une nouvelle feuille est ajout&#233;e "frais janvier (2)" , r&#233;cup&#233;rer la m&#234;me cellule et l'aditionner &#224; la valeur de (G6) dans "d&#233;penses2005".
J'ai d&#233;j&#224; pioch&#233; dans l'aide et le forum, mais en vain.
Si quelqu'un a un d&#233;but ou la soluce ?
Merci d'avance.

Doms

valtrase · Accepted Answer

Salut,
J'ai un petit doute quand au code de corsica en effet il va additionner toutes les valeurs se trouvant en G6 de toutes les feuilles qui ne se noment pas d&#233;penses2005 dangereux je pense
si tu copie ta feuille par code tu peux rajouter ce code

Dim xlSheet As Object
Dim xlSheetExist As Boolean
' On cherche si la feuille existe
For Each xlSheet In SheetsIf xlSheet.Name "frais janvier (2)" Then xlSheetExist True
Next


If xlSheetExist Then
    Sheets("d&#233;penses2005").Range("G6").FormulaR1C1 = "='frais janvier'!R[29]C[-1]+'frais janvier (2)'!R[29]C[-1]"
Else
    Sheets("d&#233;penses2005").Range("G6").FormulaR1C1 = "='frais janvier'!R[29]C[-1]"
End If

Si tu fait une copie manuelle c'est une autre histoire !!!!!
pas d'&#233;v&#232;nement qui intercepte la copie donc tu dois coller le code dans 
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
par exemple mais &#224; chaque fois que tu change de feuille tu d&#233;clanche le code ....

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

cs_corsica · Answer

Sub Cumul()
   Somme = 0
   For Each Sht In ActiveWorkbook.Sheets
      if Sht.Name <> "d&#233;penses2005" then
          Somme = Somme + Sht.Cells(35, 6) ' Lit F35
      end if
   Next
   Sheets("d&#233;penses2005").Cells(6, 7) = Somme ' Ecrit dans G6 de d&#233;penses2005
End Sub

--------------------------------------------------------------------------------------------
NotSoBad en : VB / ASP / SQL / VBS / VBA / JSP / javaScript / Java 
D&#233;butant : XML / Delphi

doms1 · Answer

Merci Corsica mais effectivement il y a un hic ton code.

Et merci &#224; Valtrase pour ton aide, &#231;a marche.
Je vais profiter encore de ton savoir pour aller plus loin.
Est-il possible d'effectuer cette action non pas depuis la feuille "Frais Janvier (2)",
mais depuis la feuille "d&#233;penses 2005", dans ce sens o&#249;:
La feuille "d&#233;penses 2005" comporte en (A1) Janvier, en (A2) F&#233;vrier, en (A3) Mars, etc...
Quand j'active la feuille "d&#233;penses 2005", rechercher toutes les feuilles qui portent le nom Frais + comparer ledeuxi&#232;me nom avec les cellule (A1 a A12) qui est Janvier, F&#233;vrier, Mars, Avril, etc..,et additionner les valeurs des cellules (L35) de ces feuilles en (B1) de la feuille "d&#233;penses 2005" si c'est Janvrier, (B2) si c'est F&#233;vrier, (B3) Mars, etc...
Ce qui donne: "Frais Janvier (L35)" + si "Frais Janvier (2) &#233;xiste (L35)" + si "Frais Janvier (3) &#233;xiste (L35)" = valeur en (B1) dans la feuille "d&#233;penses 2005".
Et "Frais F&#233;vrier (L35)" + si "Frais F&#233;vrier (2) &#233;xiste (L35)" + si "Frais F&#233;vrier  (3) &#233;xiste (L35)" = valeur en (B2) dans la feuille "d&#233;penses 2005". Etc.. jusqu'en D&#233;cembre.

Je t'avoue que cela me parait complexe et j'esp&#232;re que mes explications sont assez claires.
Mais si tu as une id&#233;e ou toute autre proposition, je suis preneur.
Merci de m'accorder un peu de temps.

Cordialement,  Doms.

Récupérer données de nouvelle feuille

3 réponses

Discussions similaires