[VBA] Fonction qui ne retourne rien. Possible ?

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Fonction qui ne retourne rien. Possible ?

vinc35

Bonjour, je souhaite dans un programme ajouter une fonction d'affichage d'un tableau (n lignes, 2 colonnes)

Probleme, cette fonction ne doit rien revoyer, elle ne fait que copier les valeurs du tableau dans la feuille excel, or, VB n'accepte pas que je lance la fonction seule.

voici le code en question :

Code :

Private Function Affichage(ByRef Matrice() As Double, ByRef Colonne As Integer)
n = UBound(Matrice, 1)
For i = 1 To n - 1
Cells(i + 1, Colonne) = Matrice(i, 1)
Cells(i + 1, Colonne + 1) = Matrice(i, 2)
Next
End Function

la fonction passe, mais si dans mon main je lui demande : "Affichage(Mat2004(), 8)" il me dit qu'il n'y a pas de = [:spamafote]

par contre la suite passe tres bien :

Code :

Private Function Affichage(ByRef Matrice() As Double, ByRef Colonne As Integer) As Integer
n = UBound(Matrice, 1)
For i = 1 To n - 1
Cells(i + 1, Colonne) = Matrice(i, 1)
Cells(i + 1, Colonne + 1) = Matrice(i, 2)
Next
Affichage = 1
End Function

en appelant : c = Affichage(Mat2004(), 8)

Publicité

olivthill

Il suffit de remplacer le mot "Function" par "Sub" après "Private", et "End Sub" à la place "End Function" (sauf si VBA le fait tout seul).
Pour de vieilles rasions qui remontent au début de l'informatique, une "function" retourne toujurs une valeur, et une subroutine n'en retourne pas.

vinc35

haaan ...

ok

merci

edit : et du coup, comment je lance ce sub dans mon main ? [:core 666]

Message édité par vinc35 le 12-04-2006 à 10:30:30

tegu

Si tu as

Private Sub Toto(par1 as string)

alors tu le lances juste par

Toto "truc"

olivthill

Oui, pour appeler une sub ou function, on peut indiquer uniquement son nom sur une ligne.
On peut aussi mettre optionnellement le mot "call" devant ce nom de sub ou de function.
On peut aussi mettre les paramètres entre parenthèses ou utiliser la technique des paramètres nommés.

vinc35

donc voila ce que j'ai :

Code :

Private Sub Affichage(ByRef Matrice() As Double, ByRef Colonne As Integer)

que je tente de lancer avec :

Code :

Affichage(Mat2005(), 8)

Et j'ai le droit un magnifique : "Erreur de compilation. Attendu : ="

tegu

Enlève les parenthèses

Affichage Mat2005(), 8

ou utilise le mot clé Call

Call Affichage(Mat2005(), 8)

La syntaxe diffère entre les functions et les procédures (sub)

Message édité par tegu le 12-04-2006 à 10:41:11

vinc35

je m'auto reponds :

Code :

Call Affichage(Mat2004(), 8)

marche tres bien, mais pas sans le call

en tout cas merci a vous du coup de main

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Fonction qui ne retourne rien. Possible ?

Sujets relatifs
Préremplir un email avec la fonction mailto:	programmation socket. fonction accept() retourne 0
Sous VBA Fermeture du classeur	Appel d'une macro en code VBA
Fonction HTML to BMP gratuite ? Convertir une page Web en image...	Contenu d'une liste en fonction d'une autre le tout dynamiquement
fonction feof (), ecriture sur un fichier texte	cocher automatiquement 1 checkbox en fonction des données d'1 listbox
Afficher dans une TextBox en fonction d'une ListBox
Plus de sujets relatifs à : [VBA] Fonction qui ne retourne rien. Possible ?

Page générée en 0.055 secondes