Discussion :

[d.tellier]

Bonjour,
Je cherche à affecter une plage de cellule à une variable.
J'ai une fonction que j'appelle dans Excel

Code :

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

=toto(A2:E2)

Dans ma fonction toto je veux mettre dans un tableau à une dimension les valeur de ma plage (A2:E2) = 5 valeurs d'entier

	A	B	C	D	E	F
1	40	30	16	5	28	=toto(A1:E1)
2	40	37	1	6	27	=toto(A2:E2)

Ma fonction

Code :

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

1
2
3
4
5
6
7
8
 
Function toto(plage As Range) 
Dim Tablo
Tablo = plage
 
' Traitement à définir
toto=Plage(0)
End Function

Excel me retourne une injure : #VALEUR!. Je suis bloqué car je n'arrive pas a récupérer ma plage dans un tableau.
Merci.


Que faire ? Merci.

[anasecu]

Bonjour,

C'est normal, lorsque tu mets ta plage dans un tableau il faut écrire

Code :

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

toto=Tablo (1,1)

si tu veux la première valeur.
ou bien

Code :

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

toto=Plage(1)

[Philippe Tulliez]

Bonjour,
Pour obtenir le résultat attendu et d'après tes explication, il n'y a aucunement besoin d'une fonction personnalisée et donc de VBA.
La fonction native d'excel te donnera le même résultat
Si tu veux connaître le Xème élément de la plage, il suffit de lui passer comme 2ème argument l'indice
Ci-dessous la fonction te renverra la valeur du 4ème élément de la plage A1:E1 soit la valeur de la cellule D1 soit 5

Code :

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

=INDEX(A1:E1, 4)

[Patrice740]

Bonjour,

Exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Function toto(plage As Range)
Dim valeurs As Variant
Dim formules As Variant
Dim valeur As Variant
Dim formule As String
Dim ligne As Long
Dim colonne As Long
 
  'Tableau des valeurs
  valeurs = plage.Value
  'Tableau des formules locales (en français)
  formules = plage.FormulaLocal
  'Valeur d'une cellule
  ligne = 1
  colonne = 2
  valeur = plage(ligne, colonne)
  'Résultat de la fonction
  toto = "La formule " & formules(ligne, colonne) & " donne : " & valeur
 
End Function

[d.tellier]

Bonjour,
Merci pour vos réponses,
Mais je veux récupérè la plage complète dans un tableau car ensuite je vais faire un tri sur le tableau et d'autre traitement avant d'envoyer le résultat.

Le retour provisoire de ma fonction c'était juste pour montrer que le tableau était vide.

Code :

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

toto=Plage(0)

et que le résultat ne retournait rien.

#VALEUR!

Quand j'aurais mon tableau je pourrais continuer ma fonction.
Merci.

[d.tellier]

désolé ma fonction est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function toto(plage As Range)
Dim Tablo As Variant
 
Tablo = plage.Value
 
' Traitement à réaliser sur le Tablo récupéré issue de la plage
 
' Test du tableau
toto = Tablo(3)
 
' Résultat quand la fonction sera fini
' toto = A définir
 
End Function

[Philippe Tulliez]

Bonjour,
Si tu utilises une variable tableau pour charger une plage de données celle-ci est est toujours à deux dimensions. Je te conseille la lecture de ces deux tutoriels

1. Utiliser les variables tableaux en VBA Excel
2. Conceptualisation des variables tableau en VBA et Application à l'optimisation du code sous Excel