Syntaxe pour appel de fonction

paulowan Messages postés 8 Date d'inscription mardi 9 mai 2006 Statut Membre Dernière intervention 12 février 2009 - 15 mai 2007 à 12:32
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 15 mai 2007 à 13:46
Bonjour,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>





 





Je débute en VB





 





Je voudrais appeler une fonction mais je ne connais pas la syntaxe





J ai ecrit deux fonctions





 





Je fais un if au début et suivant le résultat j’appelle l’une (calcul_delai_atessa )ou l’autre fonction (calcul_delai_ita)





 





Voilà le code.





 




Sub themacro()


 



    Range("A3").Select



    Selection.Copy



    Range("C1").Select



    ActiveSheet.Paste



    Rows("3:3").Select



    Application.CutCopyMode = False



    Selection.Delete Shift:=xlUp



   






    If Cells(1, 3) = "Atessa" Then



   
Run ([calcul_delai_atessa])






   
Else



    Run calcul_delai_ita()



   






End Sub

Merci d'avance pour votre aide

Paulowan

4 réponses

cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 129
15 mai 2007 à 12:42
Pourquoi poster dans le forum vb.net alors que tu fais du vba ???

Je déplace vers le forum approprié.

Sinon, je connais pas vba, mais connaissant vb, je dirais que ca doit être :

If Cells(1, 3) = "Atessa" Then

    calcul_delai_atessa

 Else

    calcul_delai_ita

End if
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 59
15 mai 2007 à 13:06
Salut,
Effectivement c'est bien ca

@+: Ju£i?n
Pensez: Réponse acceptée
0
paulowan Messages postés 8 Date d'inscription mardi 9 mai 2006 Statut Membre Dernière intervention 12 février 2009
15 mai 2007 à 13:40
merci


 


desolé pour le sujet mal placé je suis allé trop vite


 


++


 


Paulowan
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 59
15 mai 2007 à 13:46
Salut,
Si ton problème est résolu merci d'appuyer sur réponse acceptée sur le ou les post qui ont pu t'aider à le résoudre

@+: Ju£i?n
Pensez: Réponse acceptée
0