Discussion :

[anolo40]

Bonjour,

Je cherche à savoir comment insérer une variable dans le paramètre d'une fonction.

Exemple:

Code :

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

1
2
3
4
    [...]
    fin_ref = recherche_ligne_vide(nomenclature, 7, 2)
    [...]
End Sub

Code :

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

1
2
3
4
5
6
7
8
Public Function recherche_ligne_vide(feuille As Object, debut As Integer, col As Integer)
    Dim ligne As Integer
    ligne = debut
    While feuille.Cells(ligne, col) <> ""
        ligne = ligne + 1
    Wend
    recherche_ligne_vide = ligne - 1 'Renvoie de la dernière ligne rempli
End Function

Moi en fait ce que je souhaiterait, c'est quelque-chose comme ça:

Code :

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

1
2
3
4
5
6
7
Sub Scrutation()
    Dim feuille As Object
    Dim ligne_base, colonne As Object
    [...]
    fin_ref = recherche_ligne_vide(feuille, ligne_base, colonne)
    [...]
End Sub

J'en profite pour poser la question suivante.
Comment transformer une chaine de caractère en un objet (concernant le nom d'une feuille)?

Code :

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

1
2
3
Dim nom_feuille As String
Dim feuille As Object
feuille = nom_feuille 'Mais ça il n'aime pas!!!

Merci d'avance