Insérer une variable dans les paramètre d'un fonction

Version imprimable

Bonjour,

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

Exemple:

Code:

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

Code:

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:

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:

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

Merci d'avance

17/01/2011, 20h52
jfontaine
Bonjour,

Attention, ta variable Ligne base sera traduite en type Variant si non spécifié.
La bonne syntaxe pour la déclaration de variables est

Code:

Dim ligne_base as Object, colonne As Object

Citation:

Comment transformer une chaine de caractère en un objet (concernant le nom d'une feuille)?

Je ne vois pas bien ou tu veux en venir. Ce sont 2 types de données bien différentes comme Integer et String.

Est ce cela que tu veux faire
Code:

1 2 3 Dim nom_feuille As String Dim feuille As Object set feuille = sheets(nom_feuille)
17/01/2011, 20h56
mercatog

un lien pour le résultat de ta fonction http://www.developpez.net/forums/d45...gnees-feuille/
17/01/2011, 21h08
anolo40

Merci beaucoup pour vos réponses.

Je reviens pour dire que ça fonctionne... Enfin j'espère...