Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
Vieux 03/02/2010, 16h32   #1 (permalink)
Candidat au titre de Membre du Club
 
Date d'inscription: janvier 2010
Messages: 21
Par défaut Utilisation des "Function"

RE,
J'ai écrit des "function" dans un module et il semblerait que l'on ne puisse pas les réutiliser dans un autre module sans le recopier.
J'ai bien dit "Function" et non "Sub", c'est-à-dire que j'ai une valeur en retour.
Est-ce vrai, sinon comment faites-vous.

A+
patyom est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 03/02/2010, 18h17   #2 (permalink)
Rédacteur/Modérateur
 
Avatar de jpcheck
 
Date d'inscription: juillet 2007
Localisation: London
Âge: 26
Messages: 5 305
Envoyer un message via MSN à jpcheck
Par défaut

salut,
tes functions sont-elles bien declarees en portee public ?
__________________
Pas de question technique par MP, je ne réponds pas

Mon perso ? Une vraie brute

Tutos Access, Tâches planifiées et Batch,Tables de Paramètres sous Access, Excel et Batch, Tâches planifiées et Access
jpcheck est déconnecté   Envoyer un message privé Réponse avec citation
Vieux 03/02/2010, 18h32   #3 (permalink)
Candidat au titre de Membre du Club
 
Date d'inscription: janvier 2010
Messages: 21
Par défaut

Oui :
Code :
Public Function GetText(sFile As String) As String
    
    Dim nSourceFile As Integer, sTexte As String
    On Error Resume Next
    
    'Close any open text files
    ' *******************************************
    Close
       
    'Get the number of the next free text file
    ' *******************************************
    nSourceFile = FreeFile
    
    'Write the entire file to sText
 
    ' *******************************************
    Open sFile For Input As #nSourceFile
    sTexte = Input$(LOF(1), 1)
       
    'Close file
    ' *******************************************
    Close
       
    ' Retour valeur
    ' *******************************************
    GetText = sTexte
 
End Function
Elle se trouve dans un module différent de celui où se trouve le nouveau code

Oups !!

Autant pour moi, j'avais 2 fois la même "function" dans mes modules

Excusez-moi et A+

Dernière modification par patyom ; 03/02/2010 à 18h49.
patyom est déconnecté   Envoyer un message privé Réponse avec citation
NEWS EXCELF.A.Q EXCELTUTORIELS EXCELSOURCES EXCELOUTILS EXCELLIVRES EXCELOFFICE 2010

Réponse Proposer ce sujet en actualité

Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel



Outils de la discussion

Règles de messages
Vous ne pouvez pas créer de nouvelles discussions
Vous ne pouvez pas envoyer des réponses
Vous ne pouvez pas envoyer des pièces jointes
Vous ne pouvez pas modifier vos messages

Les balises BB sont activées : oui
Les smileys sont activés : oui
La balise [IMG] est activée : oui
Le code HTML peut être employé : non
Trackbacks are non
Pingbacks are non
Refbacks are non



Fuseau horaire GMT +1. Il est actuellement 23h31.


Vos questions techniques : forum d'entraide Excel - Publiez vos articles, tutoriels et cours
et rejoignez-nous dans l'équipe de rédaction du club d'entraide des développeurs francophones
Nous contacter - Hébergement - Participez - Copyright © 2000-2010 www.developpez.com - Legal informations.