Discussion :

[HurGeek]

Bonjour à tous,

J'ai deux petites questions sur lesquelles je séche :
1) la première dont je ne connais pas la réponse : est-il possible de faire retourner un tableau à une fonction vba utilisable sur une feuille excel (en entrant la fonction puis en faisaint ctrl+alt+shift sur la plage de cellule considérée)? J'ai bien peur que la réponse soit non mais si quelqu'un pouvait confirmer (ou mieux infirmer et m'expliquer !)

2) la deuxième question concerne le copier/coller d'une range en rich text d'excel vers outlook, j'avais déjà vu une maccro faisant cela en passant par l'intermédiaire d'un objet word mais je n'ai malheureusement plus le code. Actuellement la seule possibilité qui s'offre à moi est l'export en fichier html puis insertion dans le mail, mais j'aurais aimé pouvoir utiliser ce fameux copier/coller directement !

Merci par avance pour votre aide

[Gorfael]

Salut HurGeek et le forum

la première dont je ne connais pas la réponse : est-il possible de faire retourner un tableau à une fonction vba utilisable sur une feuille excel (en entrant la fonction puis en faisaint ctrl+alt+shift sur la plage de cellule considérée)? J'ai bien peur que la réponse soit non mais si quelqu'un pouvait confirmer (ou mieux infirmer et m'expliquer !)

Parce que si tu connaissais la réponse tu la poserais quand même ?
Tu peux faire qu'une Function retourne différente valeurs. mais il faut qu'un des arguments te permettent de choisir ce qu'elle doit retourner :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Function AA(Plage As Range, Y As Integer) As Integer
Dim Cel As Range
Application.Volatile
AA = 1
For Each Cel In Plage
    If Y = 1 Then
        AA = AA * (Cel)
    Else
        AA = AA + Cel
    End If
Next Cel
End Function

A1=10 ; A2=20
=AA(A1:A2;1) donnera 200
=AA(A1:A2;5) donnera 31
évidemment, ce n'est qu'un exemple pour illustrer mon propos. le deuxième argument déternime le retour voulu.
A+