[Excel] Macros éléments variables

JISSE -  
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
Configuration: Windows XP Internet Explorer 6.0

3 réponses

  1.  tompols Contributeur
    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' ?
    1. JISSE
      Merci mille fois, ça m'aidera pour autre chose.
      Pour répondre à ta question, j'aimerais rentrer x=... et y=... pour que la macro fonctionne.
  2. tompols Contributeur
    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à :)
    1. JISSE
      Merci bien, ça me dépanne...
  3. tompols Contributeur
    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