Discussion :

[Kimy_Ire]

Bonjour à tous,

Je vais faire simple : j'ai un main, qui m'envoie dans une fonction qui possède une boucle :

Code :

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

1
2
3
For j = 1 To Pvt.TableRange1.Columns.count - 1
'...
Next j

Depuis cette boucle (de cette fonction), j'aimerais appeler une autre fonction et placer en argument le numéro de ma boucle. Or lorsque je place "j" en argument :

Code :

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

test Worksheets("..."), "Install count", 2, 4, cell, off, j

j'obtiens un message d'erreur :

Il y a la simple possibilité de créer une variable "lp" (par exemple) et à chaque itération de setter lp = j.
Mais je voulais savoir si je pouvais simplement passer en argument le numéro de ma loop, tout simplement.

Je vous remercie et reste à votre disposition si je n'ai pas été suffisament clair. =)

[patricktoulon]

Bonjour

C'est quoi le nom de ta fonction ????? C'est pas très clair.

Un exemple tout de même :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim j as long
sub affiche_un_chiffre()
for j= 1 to 5
msgbox mafonction(j)
next
 
function mafonction(chiffre as long) as string
mafonction=" lechifre est " & chiffre
end function

au plaisir

[Kimy_Ire]

Ok, je la refais en plus propre.

J'ai mon main ("Sub UpdateData4()") qui appel "ChooseData" avec les paramètres suivant : "dte, cell, Pvt, (i + off)"

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
Sub UpdateData4()
Dim Pvt As PivotTable
Dim cell As Range
Dim off As Integer
Dim dte As Date
Dim msg As String

With Worksheets("AutomatedCube")
    Set Pvt = .PivotTables("Tableau croisé dynamique1")
    Set cell = .Cells(Pvt.TableRange1.row, Pvt.TableRange1.Column)
    
    For i = 1 To Pvt.TableRange1.Rows.count
    
        off = 1
        If IsNumeric(Right(cell.Offset(i, 0), 4)) Then
            Do While Left(cell.Offset(i + off, 0), 3) = "Day"
                '...
                ChooseData dte, cell, Pvt, (i + off)
                off = off + 1
            Loop
        End If
    Next i

End With

End Sub

Depuis ma fonction ChooseData, j'appelle une autre fonction "MoveData" avec les paramètres suivants : "dte, cell, off, Worksheets("DisplayEN_USCampaign"), "Install count (Worldwide excluding US)", 2, 4, j"
Or, j'obtiens une erreur sur "j" qui est le numéro de ma boucle dans ma fonction ChooseData :

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
Function ChooseData(dte As Date, cell As Range, Pvt As PivotTable, off As Integer)
Dim cell_ori As Range
Dim cell_des As Range
Dim count As Integer
Dim lp As Integer

For j = 1 To Pvt.TableRange1.Columns.count - 1
    lp = j
    Set cell_ori = cell.Offset(1, j)

    Select Case cell_ori.Value
        Case "ADWORDS DISPLAY EN-US"
            MoveData dte, cell, off, Worksheets("DisplayEN_USCampaign"), "Install count (Worldwide excluding US)", 2, 4, j
        '...
    End Select
Next j
    
End Function

Deux questions me turlupinent...
1) J'arrive à passer i en paramètre depuis mon main à ma première fonction (i étant le numéro de ma boucle dans mon main)... Pourquoi pas de ma première fonction à ma deuxième ?
2) Je n'ai pas de problème lorsque je passe "lp" (qui vaut j), pourquoi ne puis-je pas passer "j" directement ?

Ceci n'est qu'une question de compréhension... rien de plus ! =)

[Philippe Tulliez]

Bonjour,
Difficile de te répondre sans voir la structure de ta procédure MoveData.
Vraisemblablement, il manque des arguments ou il y en a trop ou simplement le type d'argument que tu envoies ne correspond pas au type de l'argument de la procédure.

[Kimy_Ire]

Il faut déclarer j...

Désolé de vous avoir fait perdre votre temps...

Cependant... i passe... C'est probablement puisqu'il est ajouté à "off" qui, elle, est une variable déclarée... enfin... j'imagine...

[Philippe Tulliez]

Bonjour,

Il faut déclarer j...
Désolé de vous avoir fait perdre votre temps...
Cependant... i passe... C'est probablement puisqu'il est ajouté à "off" qui, elle, est une variable déclarée... enfin... j'imagine...

Sans doute que tu n'auras jamais de problèmes mais saches tout de même que I représente une ligne et que si dans ton appel de procédure ChooseData dte, cell, Pvt, (i + off), I+off dépasse 32767 tu vas avoir un message de dépassement de capacité parce-que tu as déclaré l'argument Off de ta fonction ChooseData comme un entier.

Code :

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

Function ChooseData(dte As Date, cell As Range, Pvt As PivotTable, off As Integer)

Petit conseil : Il vaut mieux travailler avec l'Option Explicit.
Je te conseille la lecture de ce tuto Utiliser les variables en VBA Excel

[Kimy_Ire]

En effet, je ne dépasserai jamais 32767 ! ^^
Pour autant, je suis conscient qu'il faut que j'ajoute l'option expicit... J'ai juste la flemme de déclarer toutes mes variables de boucle puisque j'en ai plusieurs. Mais ca m'éviterait de créer des sujets inutiles comme celui-ci ! ^^

C'est par ses erreurs qu'on apprend, essayons de travailler tout le temps avec "Explicit" maintenant ! =)

Merci pour ta réponse !