Discussion :

[Alexiis]

Bonjour,

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

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 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 :

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

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

[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

[SfJ5Rpw8]

Bonjour,

une fonction doit retourne quelque-chose...


modifie sa déclaration :

Code :

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

Function tableau as range

puis retourne un range par exemple :

Code :

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

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 :

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

If ListD.ListIndex = 0 Then Application.Cells(i, 4) =tableau ' Ma formule

[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 :

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

Application.Cells(i, 4) = formule

Est ce que c'est possible?

[SfJ5Rpw8]

Ben tu modifie la fonction pour qu'elle retourne un entier ... et tu change la ligne retour valeur ...

[Alexiis]

Merci BBil,

C'est au niveau de l'utilisation dans mon UserForm que je bloque, la valeur de i est toujours égale à 0...