Envoyer des résultats calculer dans un tableau Excel

[ccinfo]

Bonjour
j'ai une application sur excel 2007 ou je calcule des données pour chaque personne stocker dans la base des données après je veux stocker ses donnés dans un tableau excel on cliquant sur un bouton Envoyer vers la table Pouvez m'aider pour construire cette Macro SVP
Et Merci Bien

 

[ccinfo]

Re : Envoyer des résultats calculer dans un tableau Excel

Voila un exemple simple de ma problématique et Merci bcp de m'aider

 

[job75]

Re : Envoyer des résultats calculer dans un tableau Excel

Bonsoir ccinfo,

Fichier joint avec cette macro dans Module1 (Alt+F11) :

Sub Transfert()
Sheets("Calcule").Activate
With Sheets("Tableau").[C65536].End(xlUp)(2)
  .Offset(0) = [D4]
  .Offset(, 1) = [E9]
  .Offset(, 2) = [E10]
  .Parent.Activate 'facultatif
End With
End Sub

Edit : attention, il y avait un espace après "Tableau" dans le nom de l'onglet !!!

A+

 

[ccinfo]

Re : Envoyer des résultats calculer dans un tableau Excel

Mercii job75
Pouvez svp m'expliquer le code" les offset.....

 

[ccinfo]

Re : Envoyer des résultats calculer dans un tableau Excel

j'ai bien compris le code et j'ai un autre question svp
si je veux insérer les valeurs seulement dans des cellule et pas dans un tableau

 

[job75]

Re : Envoyer des résultats calculer dans un tableau Excel

Bonjour ccinfo, le forum,

En Tableau!H9 et Tableau!H10 par exemple :

Sub Transfert()
Sheets("Calcule").Activate
With Sheets("Tableau")
  With .[C65536].End(xlUp)(2)
    .Offset(0) = [D4]
    .Offset(, 1) = [E9]
    .Offset(, 2) = [E10]
  End With
  .[H9] = .[H9] + [E9]
  .[H10] = .[H10] + [E10]
  .Activate 'facultatif
End With
End Sub

Fichier (2).

A+