1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    dessinateur
    Inscrit en
    septembre 2016
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : dessinateur

    Informations forums :
    Inscription : septembre 2016
    Messages : 2
    Points : 1
    Points
    1

    Par défaut appeler une sub avec un tableau en parametre

    Bonjour,

    J'ai une petite application Excel qui génère des formulaire de production. j'essais d'appeler une procédure en passant un tableau en paramètre si une page existe.
    J'ai 5 pages possible (debitage, plasma, faconnage, usinage et assemblage) et j'ai les fonction restaure_debitage, restaure plasma.... ainsi que les tableau backup_debitage(), backup_plasma()...

    J'ai le code suivant
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
        N_PAGE(9) = "DEBITAGE"
        N_PAGE(10) = "PLASMA"
        N_PAGE(11) = "FACONNAGE"
        N_PAGE(12) = "USINAGE"
        N_PAGE(13) = "ASSEMBLAGE"
        non_fonction = "restaure_" & N_PAGE(K)
        Nom_param = "backup_" & N_PAGE(K)
        application.run nom_fonction, nom_param

    ca fonctionne pour appeler la bonne fonction mais le parametre passé est du texte et non le tableau. est possible de m'aider??? (toutes les variables sont déclarés)


    Merci

  2. #2
    Rédacteur

    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    janvier 2010
    Messages
    7 473
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : janvier 2010
    Messages : 7 473
    Points : 17 536
    Points
    17 536
    Billets dans le blog
    6

    Par défaut

    Bonjour,
    On passe un tableau par son nom
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Sub Nom_fonction(t())
     Dim elem as Integer
     For elem = 1 To UBound(t)
      MsgBox t(elem)
     Next
    End Sub
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Sub t2()
     Dim N_PAGE(13)
     N_PAGE(9) = "DEBITAGE"
     N_PAGE(10) = "PLASMA"
     N_PAGE(11) = "FACONNAGE"
     N_PAGE(12) = "USINAGE"
     N_PAGE(13) = "ASSEMBLAGE"
     'non_fonction = "restaure_" & N_PAGE(K)
     'nom_param = "backup_" & N_PAGE(K)
     Nom_fonction N_PAGE
    End Sub
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Quelques contributions : USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire - Géolocalisation d'une adresse avec Excel et Google sans VBA

  3. #3
    Expert éminent sénior
    Avatar de kiki29
    Homme Profil pro
    ex Observeur CGG / Analyste prog.
    Inscrit en
    juin 2006
    Messages
    5 365
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Finistère (Bretagne)

    Informations professionnelles :
    Activité : ex Observeur CGG / Analyste prog.

    Informations forums :
    Inscription : juin 2006
    Messages : 5 365
    Points : 13 863
    Points
    13 863

    Par défaut

    Salut, pour info si curieux voir : ParamArray
    Pensez à Voter, d'avance merci. @+ Philippe
    Balisez votre code après l'avoir indenté sous Excel (< 2013) via Smart Indenter
    Autres utilitaires : MZ Tools 8.0 VBA , 7Zip et Antidote

    Liste des Contributions : Manipulations des PDF via Excel / Acrobat / PDFCreator / xPDF

  4. #4
    Nouveau Candidat au Club
    Homme Profil pro
    dessinateur
    Inscrit en
    septembre 2016
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Canada

    Informations professionnelles :
    Activité : dessinateur

    Informations forums :
    Inscription : septembre 2016
    Messages : 2
    Points : 1
    Points
    1

    Par défaut

    Citation Envoyé par Philippe Tulliez Voir le message
    Bonjour,
    On passe un tableau par son nom
    En temps normal je serait d'accord, mais dans mon cas, le nom du tableau change selon la fonction appelé. est ce faisable??

    Citation Envoyé par kiki29 Voir le message
    Salut, pour info si curieux voir : ParamArray
    Merci, très intéressant je ne connais pas bien. mais le problème demeure, je ne parviens pas a passer mon tableau ca transmet "backup_data_Plasma" au lieu du tableau backup_data_plasma

    voici le code compler si ca peut vous aider a m'aider

    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
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    101
    102
    103
    104
    105
    106
    107
    108
    109
    110
    111
    112
    113
    114
    115
    116
    117
    118
    119
    120
    121
     
    '*********************************************************************************************
    Public Sub Generer_Debitage()  'BOUTON GÉNÉRER, CRÉER ET REMPLIR LES AUTRE PAGES SELON LES OPTION COCHÉS
    '*********************************************************************************************
     
        Dim i As Integer, j As Integer, k As Integer, Page As Integer, Bkp(14) As Boolean, PageBkp As Integer
        Dim NonFonction As String, NomParametre As String
        Dim N_PAGE(14) As String 'TABLEAU DES NOM DE PAGE
        Dim Ligne_page(14, 1) As Integer 'TABLEAU DES LIGNE / PAGE
     
        Page = Worksheets("LISTE").Cells(1, 26).Value
        N_PAGE(9) = "DEBITAGE"
        N_PAGE(10) = "PLASMA"
        N_PAGE(11) = "FACONNAGE"
        N_PAGE(12) = "USINAGE"
        N_PAGE(13) = "ASSEMBLAGE"
        For i = 9 To 13 ' REMPLIR TABLEAU LIGNE / PAGE
            For j = 0 To 1
                Ligne_page(i, j) = 1
            Next
        Next
        Application.ScreenUpdating = False
        Bkp(0) = False
        'BACKUP DES PAGES ET INFORMATIONS EXISTANTES
        If Page_Exist("DEBITAGE") Or Page_Exist("PLASMA") Or Page_Exist("FACONNAGE") Or Page_Exist("USINAGE") Or Page_Exist("ASSEMBLAGE") Then
            If MsgBox("voulez vous conserver les données saisis?", vbQuestion + vbYesNo + vbDefaultButton1, "Attention") = vbYes Then
                Bkp(0) = True
                If Page_Exist("DEBITAGE") Then ' SI LA PAGE DEBITAGE EXISTE. BACKUP
                    Bkp(9) = True
                    Dim Backup_Data_Debitage() As String  'DÉCLARATION DE VARIABLE
                    PageBkp = Worksheets("DEBITAGE").Cells(1, 30).Value ' VA LIRE LE NOMBRE DE PAGE
                    ReDim Backup_Data_Debitage(PageBkp * 15, 10) ' DÉFINI LA VARIABLE AU NOMBRE DE PAGE
                    Backup_Data_Debitage = Backup_Debitage(PageBkp) 'BACKUP DES DONNÉES
                    Application.DisplayAlerts = False
                    Worksheets("DEBITAGE").Delete ' EFFACE LA PAGE
                    Application.DisplayAlerts = True
                End If
                If Page_Exist("PLASMA") Then
                    Bkp(10) = True
                    Dim Backup_Data_PLASMA() As String
                    PageBkp = Worksheets("PLASMA").Cells(1, 30).Value
                    ReDim Backup_Data_PLASMA(PageBkp * 15, 7)
                    Backup_Data_PLASMA = Backup_Plasma(PageBkp)
                    Application.DisplayAlerts = False
                    Worksheets("PLASMA").Delete
                    Application.DisplayAlerts = True
                End If
                If Page_Exist("FACONNAGE") Then
                    Bkp(11) = True
                    Dim Backup_Data_Faconnage() As String
                    PageBkp = Worksheets("FACONNAGE").Cells(1, 30).Value
                    ReDim Backup_Data_Faconnage(PageBkp * 15, 12)
                    Backup_Data_Faconnage = Backup_Faconnage(PageBkp)
                    Application.DisplayAlerts = False
                    Worksheets("FACONNAGE").Delete
                    Application.DisplayAlerts = True
                End If
                If Page_Exist("USINAGE") Then
                    Bkp(12) = True
                    Dim Backup_Data_Usinage() As String
                    PageBkp = Worksheets("USINAGE").Cells(1, 30).Value
                    ReDim Backup_Data_Usinage(PageBkp * 15, 9)
                    Backup_Data_Usinage = Backup_Usinage(PageBkp)
                    Application.DisplayAlerts = False
                    Worksheets("USINAGE").Delete
                    Application.DisplayAlerts = True
                End If
                If Page_Exist("ASSEMBLAGE") Then
                    Bkp(13) = True
                    Dim Backup_Data_Assemblage() As String
                    PageBkp = Worksheets("ASSEMBLAGE").Cells(1, 30).Value
                    ReDim Backup_Data_Assemblage(PageBkp * 15, 8)
                    Backup_Data_Assemblage = Backup_Assemblage(PageBkp)
                    Application.DisplayAlerts = False
                    Worksheets("ASSEMBLAGE").Delete
                    Application.DisplayAlerts = True
                End If
            End If
        End If
        'DEBUT DE REMPLISSAGE
        For i = 1 To Page 'pour chaque page
            For j = 1 To 30 Step 2 ' pour chaqe ligne
                For k = 9 To 13 ' pour chaque colone
                    If Worksheets("liste").Cells((i - 1) * 31 + 7 + j, k).Value <> "" Then ' SI LA CELLUNE N'EST PAS VIDE
                        If Not Page_Exist(N_PAGE(k)) Then 'SI LA PAGE CORREPONDANTE N'EXISTE PAS, LA CRÉER
                            Creer_Page (N_PAGE(k)) 'CRÉER LA PAGE
                            Worksheets(N_PAGE(k)).Cells(1, 30) = 1 ' NOMBRE DE PAGE
                            Remplir_Entete (N_PAGE(k)) 'REMPLIR L'ENTETE
                            Remplir_Controle (N_PAGE(k)) 'REMPLIR LES CONTROLE DE QUALITÉ
                        End If
                        If Ligne_page(k, 0) >= 30 Then ' SI PAGE PLEINE
                            Worksheets(N_PAGE(k)).Unprotect  'ENLEVE LA PROTECTION
                            Ajouter_Page N_PAGE(k), Ligne_page(k, 1)
                            Ligne_page(k, 1) = Ligne_page(k, 1) + 1
                            Worksheets(N_PAGE(k)).Cells(1, 30) = Ligne_page(k, 1) 'INSCRIT LE NOMBRE DE PAGE
                            Ligne_page(k, 0) = 1
                            Worksheets(N_PAGE(k)).Protect AllowFormattingCells:=True ' ACTIVE LA PROTECTION
                            Worksheets(N_PAGE(k)).Range("I8").Activate
                        End If
     
                        Worksheets(N_PAGE(k)).Cells((Ligne_page(k, 1) - 1) * 31 + 7 + Ligne_page(k, 0), 1).Value _
                            = Worksheets("liste").Cells((i - 1) * 31 + 7 + j, 1).Value 'ITEM
                        Worksheets(N_PAGE(k)).Cells((Ligne_page(k, 1) - 1) * 31 + 7 + Ligne_page(k, 0), 2).Value _
                            = Worksheets("liste").Cells((i - 1) * 31 + 7 + j, 2).Value 'QTE
                        Worksheets(N_PAGE(k)).Cells((Ligne_page(k, 1) - 1) * 31 + 7 + Ligne_page(k, 0), 3).Value _
                            = Worksheets("liste").Cells((i - 1) * 31 + 7 + j, 3).Value 'DESCRIPTION
                        Worksheets(N_PAGE(k)).Cells((Ligne_page(k, 1) - 1) * 31 + 7 + Ligne_page(k, 0), 7).Value _
                            = Worksheets("liste").Cells((i - 1) * 31 + 7 + j, 7).Value 'GRADE
                        If Bkp(0) And Bkp(k) Then 'si un backup a été pris
     
                            NonFonction = "Restaure_" & N_PAGE(k)
                            NomParametre = "Backup_Data_" & N_PAGE(k)
                            Application.Run NonFonction, (Ligne_page(k, 1) - 1) * 31 + 7 + Ligne_page(k, 0), NomParametre
                        End If
                        Ligne_page(k, 0) = Ligne_page(k, 0) + 2
                    End If
                Next
            Next
        Next
        Application.ScreenUpdating = True
    End Sub
    soyez indulgent, ca faisait plus de 12 ans que j'avais pas programmé.

Discussions similaires

  1. Réponses: 2
    Dernier message: 26/12/2012, 17h40
  2. Appel une action avec parametre
    Par badreddine540 dans le forum JSF
    Réponses: 4
    Dernier message: 19/05/2009, 15h25
  3. Creation d'un Sub avec un tableau dynamique comme parametre
    Par Nico820 dans le forum Macros et VBA Excel
    Réponses: 2
    Dernier message: 31/07/2008, 07h16
  4. Appeler une fonction avec un tableau en parametre ?
    Par devoluti0n dans le forum C++
    Réponses: 9
    Dernier message: 11/04/2008, 16h21
  5. Réponses: 3
    Dernier message: 09/08/2006, 11h58

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo