Envoyer des résultats calculer dans un tableau Excel

C

ccinfo

Guest

• 7 Juillet 2012

• #2

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

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

 

Pièces jointes

• macro.xlsm

  11.4 KB · Affichages: 36
• macro.xlsm

  11.4 KB · Affichages: 45
• macro.xlsm

  11.4 KB · Affichages: 42

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 7 Juillet 2012

• #3

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

Bonsoir ccinfo,

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

Code:

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+

 

Pièces jointes

• macro(1).xls

  40 KB · Affichages: 37
• macro(1).xls

  40 KB · Affichages: 44
• macro(1).xls

  40 KB · Affichages: 52

Vote positif 0 Vote négatif

C

ccinfo

Guest

• 8 Juillet 2012

• #4

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

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

 

Vote positif 0 Vote négatif

C

ccinfo

Guest

• 8 Juillet 2012

• #5

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juillet 2012

• #6

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

Bonjour ccinfo, le forum,

En Tableau!H9 et Tableau!H10 par exemple :

Code:

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+

 

Pièces jointes

• macro(2).xls

  37 KB · Affichages: 44
• macro(2).xls

  37 KB · Affichages: 47
• macro(2).xls

  37 KB · Affichages: 45

Vote positif 0 Vote négatif