Bonjour
j'exporte des données d'une table access dans une feuille de calcul Excel
et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un
évenement à l'ouverture de la feuille) qui mettre dans les cellules
suivantes :
mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du
mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38
voilà, j'espère avoir été clair
Merci de votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Daniel
Bonjour. Essaie :
Sub test() Dim c As Range For Each c In Range("K8:K38") c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," & c.Offset(0, -1).Address(0, 0) & ")" Next c End Sub
Cordialement. Daniel "chris" a écrit dans le message de news:
Bonjour j'exporte des données d'une table access dans une feuille de calcul Excel et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un évenement à l'ouverture de la feuille) qui mettre dans les cellules suivantes : mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38 voilà, j'espère avoir été clair Merci de votre aide
Bonjour.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("K8:K38")
c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," &
c.Offset(0, -1).Address(0, 0) & ")"
Next c
End Sub
Cordialement.
Daniel
"chris" <chris.v@waika9.com> a écrit dans le message de news:
unmu35NoGHA.816@TK2MSFTNGP05.phx.gbl...
Bonjour
j'exporte des données d'une table access dans une feuille de calcul Excel
et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un
évenement à l'ouverture de la feuille) qui mettre dans les cellules
suivantes :
mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du
mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38
voilà, j'espère avoir été clair
Merci de votre aide
Sub test() Dim c As Range For Each c In Range("K8:K38") c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," & c.Offset(0, -1).Address(0, 0) & ")" Next c End Sub
Cordialement. Daniel "chris" a écrit dans le message de news:
Bonjour j'exporte des données d'une table access dans une feuille de calcul Excel et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un évenement à l'ouverture de la feuille) qui mettre dans les cellules suivantes : mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38 voilà, j'espère avoir été clair Merci de votre aide
chris
Ok merci beaucoup
dernière question comment faire pour executer une macro en quittant Merci "Daniel" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() Dim c As Range For Each c In Range("K8:K38") c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," & c.Offset(0, -1).Address(0, 0) & ")" Next c End Sub
Cordialement. Daniel "chris" a écrit dans le message de news:
Bonjour j'exporte des données d'une table access dans une feuille de calcul Excel et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un évenement à l'ouverture de la feuille) qui mettre dans les cellules suivantes : mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38 voilà, j'espère avoir été clair Merci de votre aide
Ok merci beaucoup
dernière question comment faire pour executer une macro en quittant
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
esAZikQoGHA.1052@TK2MSFTNGP05.phx.gbl...
Bonjour.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("K8:K38")
c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," &
c.Offset(0, -1).Address(0, 0) & ")"
Next c
End Sub
Cordialement.
Daniel
"chris" <chris.v@waika9.com> a écrit dans le message de news:
unmu35NoGHA.816@TK2MSFTNGP05.phx.gbl...
Bonjour
j'exporte des données d'une table access dans une feuille de calcul Excel
et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un
évenement à l'ouverture de la feuille) qui mettre dans les cellules
suivantes :
mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du
mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38
voilà, j'espère avoir été clair
Merci de votre aide
dernière question comment faire pour executer une macro en quittant Merci "Daniel" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() Dim c As Range For Each c In Range("K8:K38") c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," & c.Offset(0, -1).Address(0, 0) & ")" Next c End Sub
Cordialement. Daniel "chris" a écrit dans le message de news:
Bonjour j'exporte des données d'une table access dans une feuille de calcul Excel et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un évenement à l'ouverture de la feuille) qui mettre dans les cellules suivantes : mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38 voilà, j'espère avoir été clair Merci de votre aide
Daniel
Bonjour. Dans "ThisWorkbook" :
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ta macro End Sub
Daniel "chris" a écrit dans le message de news: OKHSj%
Ok merci beaucoup
dernière question comment faire pour executer une macro en quittant Merci "Daniel" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() Dim c As Range For Each c In Range("K8:K38") c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," & c.Offset(0, -1).Address(0, 0) & ")" Next c End Sub
Cordialement. Daniel "chris" a écrit dans le message de news:
Bonjour j'exporte des données d'une table access dans une feuille de calcul Excel et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un évenement à l'ouverture de la feuille) qui mettre dans les cellules suivantes : mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38 voilà, j'espère avoir été clair Merci de votre aide
Bonjour.
Dans "ThisWorkbook" :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ta macro
End Sub
Daniel
"chris" <chris.v@waika9.com> a écrit dans le message de news:
OKHSj%23YoGHA.3636@TK2MSFTNGP03.phx.gbl...
Ok merci beaucoup
dernière question comment faire pour executer une macro en quittant
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
esAZikQoGHA.1052@TK2MSFTNGP05.phx.gbl...
Bonjour.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("K8:K38")
c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," &
c.Offset(0, -1).Address(0, 0) & ")"
Next c
End Sub
Cordialement.
Daniel
"chris" <chris.v@waika9.com> a écrit dans le message de news:
unmu35NoGHA.816@TK2MSFTNGP05.phx.gbl...
Bonjour
j'exporte des données d'une table access dans une feuille de calcul
Excel
et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un
évenement à l'ouverture de la feuille) qui mettre dans les cellules
suivantes :
mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du
mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38
voilà, j'espère avoir été clair
Merci de votre aide
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ta macro End Sub
Daniel "chris" a écrit dans le message de news: OKHSj%
Ok merci beaucoup
dernière question comment faire pour executer une macro en quittant Merci "Daniel" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() Dim c As Range For Each c In Range("K8:K38") c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," & c.Offset(0, -1).Address(0, 0) & ")" Next c End Sub
Cordialement. Daniel "chris" a écrit dans le message de news:
Bonjour j'exporte des données d'une table access dans une feuille de calcul Excel et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un évenement à l'ouverture de la feuille) qui mettre dans les cellules suivantes : mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38 voilà, j'espère avoir été clair Merci de votre aide
chris
Merci beaucoup "Daniel" a écrit dans le message de news:
Bonjour. Dans "ThisWorkbook" :
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ta macro End Sub
Daniel "chris" a écrit dans le message de news: OKHSj%
Ok merci beaucoup
dernière question comment faire pour executer une macro en quittant Merci "Daniel" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() Dim c As Range For Each c In Range("K8:K38") c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," & c.Offset(0, -1).Address(0, 0) & ")" Next c End Sub
Cordialement. Daniel "chris" a écrit dans le message de news:
Bonjour j'exporte des données d'une table access dans une feuille de calcul Excel et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un évenement à l'ouverture de la feuille) qui mettre dans les cellules suivantes : mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38 voilà, j'espère avoir été clair Merci de votre aide
Merci beaucoup
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
uJWX5DZoGHA.5084@TK2MSFTNGP03.phx.gbl...
Bonjour.
Dans "ThisWorkbook" :
Private Sub Workbook_BeforeClose(Cancel As Boolean)
'ta macro
End Sub
Daniel
"chris" <chris.v@waika9.com> a écrit dans le message de news:
OKHSj%23YoGHA.3636@TK2MSFTNGP03.phx.gbl...
Ok merci beaucoup
dernière question comment faire pour executer une macro en quittant
Merci
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
esAZikQoGHA.1052@TK2MSFTNGP05.phx.gbl...
Bonjour.
Essaie :
Sub test()
Dim c As Range
For Each c In Range("K8:K38")
c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," &
c.Offset(0, -1).Address(0, 0) & ")"
Next c
End Sub
Cordialement.
Daniel
"chris" <chris.v@waika9.com> a écrit dans le message de news:
unmu35NoGHA.816@TK2MSFTNGP05.phx.gbl...
Bonjour
j'exporte des données d'une table access dans une feuille de calcul
Excel
et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un
évenement à l'ouverture de la feuille) qui mettre dans les cellules
suivantes :
mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du
mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38
voilà, j'espère avoir été clair
Merci de votre aide
Merci beaucoup "Daniel" a écrit dans le message de news:
Bonjour. Dans "ThisWorkbook" :
Private Sub Workbook_BeforeClose(Cancel As Boolean) 'ta macro End Sub
Daniel "chris" a écrit dans le message de news: OKHSj%
Ok merci beaucoup
dernière question comment faire pour executer une macro en quittant Merci "Daniel" a écrit dans le message de news:
Bonjour. Essaie :
Sub test() Dim c As Range For Each c In Range("K8:K38") c.Formula = "=sum(" & c.Offset(0, -2).Address(0, 0) & "," & c.Offset(0, -1).Address(0, 0) & ")" Next c End Sub
Cordialement. Daniel "chris" a écrit dans le message de news:
Bonjour j'exporte des données d'une table access dans une feuille de calcul Excel et j'aimerais créer un bouton dans cette feuille de calcul (ou créer un évenement à l'ouverture de la feuille) qui mettre dans les cellules suivantes : mois!K8 à mois!K38 (mois correspond au nom de la feuille en fonction du mois)
la formule "=somme(I8;J8)" et ceci pour chaque ligne jusqu'à I38 à J38 voilà, j'espère avoir été clair Merci de votre aide
