Récupérer la valeur d'une variable et l'integrer dans un UserForm

Version imprimable

Bonjour,

J'ai une fonction me permettant de récupérer la cellule vide de mon tableau :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Function tableau
Dim j As Long
Dim LastRow As Long
Dim BlockName As String
'Recuperation de la derniere ligne selon la colonne D
    With Sheets("Coordinates")
        .Activate
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
        'boucle pour trouver une cellule vide dans D pour integrer le bloc
        For j = 5 To LastRow
            BlockName = .range("D" & j).Value
            If BlockName = vbNullString Then
            [???]
            End If
        Next j
    End With
End Function

J'utilise l'évènement click de mon UserForm pour déclencher l'action d'écriture dans ma cellule :

Code:

1
2
3
4
5
 
Private Sub test2_Click()
    Dim i As Long 
    i = 'La valeur de j correspondant à ma ligne vide
    If ListD.ListIndex = 0 Then Application.Cells(i, 4) = ' Ma formule

Je n'arrive pas à récupérer la valeur de la variable (j) qui est dans ma fonction pour l’intégrer dans le code de mon userForm :(

13/10/2015, 16h36
Invité

Bonjour

Ta variable est déclaré dans une Sub, donc tu ne peux y accéder que dans celle-ci.

Il faut la déclarer en entête de module, pour que celle-ci soit accessible en lecture et écriture sur ton code.

Philippe
13/10/2015, 16h42
SfJ5Rpw8
Bonjour,

une fonction doit retourne quelque-chose...

modifie sa déclaration :

Code:

Function tableau as range

puis retourne un range par exemple :
Code:

1 2 3 4 5 6 7 8 '(...) BlockName = .range("D" & j).Value If BlockName = vbNullString Then '[????] set tableau = .range("D" & j) End If '(...)
et ensuite pour l'utilisation :

Code:

If ListD.ListIndex = 0 Then Application.Cells(i, 4) =tableau ' Ma formule
13/10/2015, 16h57
Alexiis

Merci pour vos réponses,

Bbil j'aimerais seulement récupérer le N° de la ligne où insérer ma formule, pour ensuite l'affecter à "i" dans

Code:

Application.Cells(i, 4) = formule

Est ce que c'est possible?
13/10/2015, 17h00
SfJ5Rpw8

Ben tu modifie la fonction pour qu'elle retourne un entier ... et tu change la ligne retour valeur ...
13/10/2015, 17h20
Alexiis

Merci BBil,

C'est au niveau de l'utilisation dans mon UserForm que je bloque, la valeur de i est toujours égale à 0...
13/10/2015, 17h22
SfJ5Rpw8

ok ben tu modifie ta fonction tableau comme dit précédemment .. et ta ligne :

Code:

i = 'La valeur de j correspondant à ma ligne vide

devient

Code:

i = tableau
13/10/2015, 18h04
Alexiis

C'est ce que j'ai fait, avec ma fonction "tableau as long"

mais j'ai une erreur d’exécution 1004 application defined or object defined error, avec une valeur de i =0
13/10/2015, 18h07
SfJ5Rpw8

montre nous ton code modifié ... et pense lorsque tu signale une erreur à dire sur qu'elle ligne de code elle survient ...

Merci et désolé pour mon imprécision!

La fonction du module :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Function tableau() As Long
Dim j As Long
Dim LastRow As Long
Dim BlockName As String
'Recuperation de la derniere ligne selon la colonne D
    With Sheets("Coordinates")
        .Activate
        LastRow = .Cells(.Rows.Count, "D").End(xlUp).Row
        'boucle pour trouver une cellule vide dans D pour integrer le bloc
        For j = 5 To LastRow
            BlockName = .range("D" & j).Value
            If BlockName = vbNullString Then
            tableau = j
            End If
        Next j
    End With
End Function

La Sub de mon UserForm :
Mon erreur est sur la ligne 5/6 car la valeur de i est 0

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub test2_Click()
    Dim i As Long  
    i = tableau
    If ListD.ListIndex = 0 Then Application.Cells(i, 4) = _
        "=LEFT(CELL(""filename""),FIND(""["",CELL(""filename""))-1)&""Arbre_PA_1.dwg"""
    If ListD.ListIndex = 1 Then Application.Cells(i, 4) = _
        "=LEFT(CELL(""filename""),FIND(""["",CELL(""filename""))-1)&""Arbre_PA_2.dwg"""
    If ListD.ListIndex = 2 Then Application.Cells(5, 4) = _
        "=LEFT(CELL(""filename""),FIND(""["",CELL(""filename""))-1)&""Arbre_PA_3.dwg"""
    If ListD.ListIndex = 3 Then Application.Cells(i, 4) = _
        "=LEFT(CELL(""filename""),FIND(""["",CELL(""filename""))-1)&""Arbre_PA_4.dwg"""
End Sub

13/10/2015, 18h31
SfJ5Rpw8

Ben c'est ta fonction qui ne renvoi rien ? ta condition BlockName = vbNullString ne doit jamais être vrai..

si toutes tes lignes sont "pleine" entre ta ligne 5 et ta ligne lastRow (qui est en fait la dernière ligne dont D et non vide ...) ta fonction retourne 0 ..

modifie ta boucle for pour renvoyer le numéro de ligne suivant :

Code:

For j = 5 To LastRow + 1
13/10/2015, 18h39
Alexiis

C'était bien ca, ca fonctionne!

Dur dur la progra VBA quand on est nul :aie:

Merci beaucoup Bbil !