[XL-2007] Passer en paramètre une plage de cellules selectionnée par l'utilisateur !

[mermar]

Bonjour
J'ai du mal a faire fonctionner une procedure avec un parametre de plage de cellule qui n'est pas connue auparavant, j'aimerai lui passer le parametre aprés la selection de la plage par l'utilisateur , comme le fait les fonctions de excel (somme par exemple )
j'ai essayé avec range ou variant comme type du parametre mais , j'ai toujours : reference non valide !
Merci d'avance

[jfontaine]

Bonjour,

Affiches le code de ta procedure et son appel

[mermar]

Code :

1
2
3
4
5
6
7
8
9
10
Sub TRTableau(r As Range)
Dim i As Integer, j As Integer
' ici j ai essayé Set r= range(r) et j ai enlevé ca marche pas 
For i = 1 To r.Cells.Rows.Count
For j = 1 To r.Columns.Count
'.... traitement des cellules
'......
Next j
Next i
End Sub

j'execute la procedure a partire de la fenetre des macro,
je tape le nom j ouvre la parenthaise et je selectionne le tableau exp :
TRTableau($C$6:$F$11)
il me dit reference non valide !!

je veux savoir comment passer la selection ($C$6:$F$11) comme paramatre range ?
Merci

[jfontaine]

Si le nom de la macro n’apparaît pas, c'est qu'on ne peut la lancer par ce moyen.

Ci dessous un exemple

Macro de traitement

Code :

1
2
3
Sub Ma_macro(rg As Range)
MsgBox rg.Address
End Sub

Qui sera appelée par une macro de lancement (ici on passe en paramètre la sélection de cellule)

Code :

1
2
3
Public Sub Lancement()
Ma_macro Selection
End Sub

[mercatog]

Bonsoir
Ou sans paramètre (en utilisant Application.InputBox)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub TRTableau()
Dim r As Range
Dim i As Integer, j As Integer
 
'Au cas où l'utilisateur annule l'opération
On Error Resume Next
Set r = Application.InputBox(Prompt:="Veuillez choisir la plage à traiter", Title:="Sélection de la plage", Type:=8)
On Error GoTo 0
If Not r Is Nothing Then
    For i = 1 To r.Rows.Count
        For j = 1 To r.Columns.Count
            '.... traitement des cellules
            '......
        Next j
    Next i
End If
End Sub

[Ormonth]

Bonjour,

essentiel dans ces cas de figure, faire le distinguo ente ByVal et Byref pour savoir où on met les pieds...

http://silkyroad.developpez.com/VBA/LesVariables/#LIV-A

cordialement,

Didier

[mermar]

Bonjour
Merci pour vos réponses
Je peux la faire fonctionner en appelant la procedure par une autre, mais ce que je veux c'est de pouvoir l'inserer dans une cellule comme les fonctions standard d'excel (en la declarant comme function biensur)
c'est pour ça que j'essaye de la tester comme ça pour regler le propleme du parametre
je peux pas utiliser .selection, car au moment de l’insertion de la fonction dans la cellule, selection = la cellule !
si quelqu'un a une idée sur le code source d'une fonction standard d'excel ça pourra nous regler le probleme
Merci

[bbil]

Ben si tu veux faire une fonction pourquoi utilise tu Sub ? passe directement à la création de la fonction ..

[mermar]

Bonjour
Pour faciliter les choses,
j'aimerai savoir comment réaliser une fonction qui calcule la somme d'une plage de cellule.
cette fonction doit etre inserer dans une cellule et choisir la plage de cellule par selection ! voila exactement comme la fonction somme d'excel
Merci

[Ormonth]

bonjour,

Utilises worksheetfunction alors ?

cordialement,

Didier

[mercatog]

j'aimerai savoir comment réaliser une fonction qui calcule la somme d'une plage de cellule.

Tu n'as qu'à utiliser la fonctionne SOMME d'excel

Pour réaliser ta propre fonction personnalisée (exemple banal)
Dans un module standard

Code :

1
2
3
4
Function maFonction(Rng As Range) As Double
 
maFonction = Application.Sum(Rng)
End Function

Tu appelle ta fonction dans une cellule (en H1 par exemple) par:

Code :

=maFonction(A1:D25)