Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Appel de fonction

Appel de fonction

2 réponses
Avatar
PST
re

pourquoi cela ne marche pas et comment
merci

Sub Macro1()

'
Dim Sum_1 As Integer
Dim Sum_2 As Integer
Dim Myarray(1)

Sum_1 = 4
Sum_2 = 10

Myarray(1) = FormulaR1C1 = "=(Sum_2,Sum_1)"

Cells(2, 11) = Myarray(1)

End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
MichDenis
'Si tu ne veux qu'afficher le résultat dans la cellule

Myarray(1) = Sum_2 + Sum_1
Cells(2, 11) = Myarray(1)

'Si tu veux afficher la formule dans la cellule.

Myarray(1) = "=Somme(" & Sum_2 & "," & Sum_1 & ")"
Cells(2, 11).FormulaLocal = Myarray(1)




"PST" a écrit dans le message de news:
463f092c$0$5072$
re

pourquoi cela ne marche pas et comment
merci

Sub Macro1()

'
Dim Sum_1 As Integer
Dim Sum_2 As Integer
Dim Myarray(1)

Sum_1 = 4
Sum_2 = 10

Myarray(1) = FormulaR1C1 = "=(Sum_2,Sum_1)"

Cells(2, 11) = Myarray(1)

End Sub
Avatar
PST
trouvé

myarray(1) = Application.WorksheetFunction.combin(Sum_2, Sum_1)

re

pourquoi cela ne marche pas et comment
merci

Sub Macro1()

'
Dim Sum_1 As Integer
Dim Sum_2 As Integer
Dim Myarray(1)

Sum_1 = 4
Sum_2 = 10

Myarray(1) = FormulaR1C1 = "=(Sum_2,Sum_1)"

Cells(2, 11) = Myarray(1)

End Sub