[Excel] Macros éléments variables Fermé

Question

Bonjour,
Je voudrais remplacer les macros suivantes par une seule, avec entrée des variables:

Function sommeNo(x, y)
sommeNo = x + y
End Function

Sub Somme35()
Cells(3, 5) = sommeNo(3, 5)
End Sub
Sub Somme45()
Cells(4, 5) = sommeNo(4, 5)
End Sub
Sub Somme87()
Cells(8, 7) = sommeNo(8, 7)
End Sub
Sub Somme91()
Cells(9, 1) = sommeNo(9, 1)
End Sub

Merci pour toute aide

tompols · Answer

bonjour,
une macro avec des 'entrées variables' doit etre appellée en passant les valeurs, donc 2 macros :s
je propose de selectionner la zone de cellules puis executer la macro suivante
Sub sommeligcol()
For Each c In Selection
c.Value = c.Row + c.Column
Next c
End Sub
si ça ne convient pas peux tu stp expliquer ce que tu voudrais comme 'variables' ?

tompols · Answer

re,
Sub sommeligcol()
lig = CInt(InputBox("entrez le numéro de ligne"))
col = CInt(InputBox("entrez le numéro de colonne"))
Cells(lig, col).Value = lig + col
End Sub
voilà :)

tompols · Answer

De rien,
sinon pour plusieurs cellules, tu peux boucler comme ça:
Sub sommeligcol()
While Not rep = vbNo
lig = CInt(InputBox("entrez le numéro de ligne"))
col = CInt(InputBox("entrez le numéro de colonne"))
Cells(lig, col).Value = lig + col
rep = MsgBox("Continuer ?", vbYesNo)
Wend
End Sub