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