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

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

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

 Dim ligne_base as Object, colonne As Object

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 :

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

1
2
3
Dim nom_feuille As String
Dim feuille As Object
set feuille = sheets(nom_feuille)

[mercatog]

un lien pour le résultat de ta fonction http://www.developpez.net/forums/d45...gnees-feuille/

[anolo40]

Merci beaucoup pour vos réponses.

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