Passage arguments entre fonction et procédure

Bonjour,
Je développe actuellement des petites fonctions basiques dans un module que je pourrais réutiliser à loisir dans mes prochains développements. Une de ces fonctions « compte_ligne » me permet de compter les lignes dans la colonne « A » de la feuille active. La fonction est la suivante :

Code:

---

1 2 3

Function compte_ligne() i = Range("A65536").End(xlUp).Row + 1 '--> Compte le nombre de ligne dans la colonne A End Function

---

En testant cette fonction seule, après avoir ajouté une msgbox pour me renvoyer le résultat, pas de problème. Si j’ai 10 lignes dans la colonne, la msgbox me dit de me positionner sur la 11eme ligne.
Cela se complique lorsque j’appelle cette fonction via une procédure « test_compte_ligne » 8O.

Code:

---

1 2 3 4 5

Sub test_compte_ligne() Dim i As Integer i = compte_ligne MsgBox i End Sub

---

La msgbox me renvoie le résultat 0.

1) Comment puis-je renvoyer le résultat de la fonction « compte_ligne » à la procédure «test_compte_ligne » ? Pour faire un traitement supplémentaire par exemple.

2) Quelle différence entre fonction et procédure ?

Je compte améliorer cette fonction en lui passant en argument, la feuille et la colonne.
Je vous remercie par avance pour vos réponses.:P

Code:

---

1 2 3

Function compte_ligne() as integer compte_ligne = Range("A65536").End(xlUp).Row + 1 '--> Compte le nombre de ligne dans la colonne A End Function

---

bonjour
65536 c'est pour excel 2003

afin de la rendre compatible avec toutes les versions d'excel utilise plutot le rows.count

Code:

---

1 2 3

Function compte_ligne() as integer compte_ligne = Range("A"& Rows.Count).End(xlUp).Row + 1 '--> Compte le nombre de ligne dans la colonne A End Function

---

mais ta comprehention de ton environnement limite les possibilités

afin de ne pas réécrire la fonction pour changer de colonne et afin de pouvoir utiliser la colonne en chiffre ou en lettre selon le besoins
je fairais ceci:

Code:

---

1 2 3 4 5 6 7 8

Function compte_ligne(col) as integer if isnumeric(col) then plage =cells(rows.count,col) else plage=Range(col & rows.count) end if compte_ligne = plage.End(xlUp).Row + 1 '--> Compte le nombre de ligne dans la colonne A End Function

---

exemple d'utilisation

Code:

---

1 2 3

sub testenchiffre () msgbox compte_ligne(1) end sub

---

Code:

---

1 2 3

sub testenlettre() msgbox compte_ligne ("A") end sub

---

on pourrais meme ajouter le sheets mais comprends deja ca et on verra
a faire des macro pret a l'emploi pour des multiple utilisation diverses autant les faire bien

A bon entendeur

re
pour le sheets

Code:

---

1 2 3 4 5 6 7 8 9 10

Function compte_ligne(sh as worksheet,col as variant ) as integer with sh if isnumeric(col) then plage =.cells(rows.count,col) else plage=.Range(col & rows.count) end if compte_ligne = plage.End(xlUp).Row + 1 '--> Compte le nombre de ligne dans la colonne A end with End Function

---

le test

Code:

---

1 2 3 4

sub test() msgbox compte_ligne(sheets("toto"), "A") ' colonne en lettre msgbox compte_ligne(sheets("toto"), 1) ' colonne en numeric end sub

---

;)

oupsss!!!
j'ai oublié le set devant plage

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function compte_ligne(sh as worksheet,col as variant ) as integer with sh if isnumeric(col) then set plage =.cells(rows.count,col) else set plage=.Range(col & rows.count) end if compte_ligne = plage.End(xlUp).Row + 1 '--> Compte le nombre de ligne dans la colonne A end with End Function

---

pourquoi je t'ai donné la possibilité de te servir de la lettre ou du chiffre de la colonne
et bien c'est parce que tu pourrais avoir a trouver la derniere ligne de la colonne d'une cellule en parametre

exemple

Code:

---

1 2 3 4

sub test4() msgbox compte_ligne (sheets"toto"),activecell.column)   end sub

---

voila la on deja pas mal

Merci pour votre réponse. J'ai testé, ça fonctionne.
Ci-joint le récapitulatif de la fonction et des procédures:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

'---------------------------------------------------------------------------- '-- Cette fonction renvoie le nombre de ligne contenues dans une colonne -- '-- Vous devez lui passer en arguments la (Sheet: sh) et la (colonne: col) -- '-- -- '-- ATTENTION : Pas de test sur l'existence de la Sheet !!!! -- '---------------------------------------------------------------------------- Function compte_ligne(sh As Worksheet, col As Variant) As Integer With sh If IsNumeric(col) Then '--> Gere un argument numérique (1,2,3....) Set plage = .Cells(Rows.Count, col) Else '--> Gere un argument alpha (A,B,C......) Set plage = .Range(col & Rows.Count) End If '--> Compte le nombre de lignes dans la colonne compte_ligne = plage.End(xlUp).Row End With End Function

---

Procédure N°1

Code:

---

1 2 3 4 5 6 7 8 9

'--------------------------------------------------------------------------------------- '-- Cette procédure teste la fonction "compte_ligne" avec un argument alpha -- '-- Au préalable: -- '-- Veuillez créer une Sheet nommée "toto" et insérer des valeurs dans la colonne "D" -- '--------------------------------------------------------------------------------------- Sub test_compte_ligne_1() MsgBox compte_ligne(Sheets("toto"), "D") & " lignes" ' Argument colonne en lettre End Sub

---

Procédure N°2

Code:

---

1 2 3 4 5 6 7 8 9

'--------------------------------------------------------------------------------------- '-- Cette procédure teste la fonction "compte_ligne" avec un argument numérique -- '-- Au préalable: -- '-- Veuillez créer une Sheet nommée "titi" et insérer des valeurs dans la colonne "3" -- '--------------------------------------------------------------------------------------- Sub test_compte_ligne_2() MsgBox compte_ligne(Sheets("titi"), 3) & " lignes" ' Argument colonne numerique End Sub

---

Une autre procédure pour exemple d'utilisation:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

'--------------------------------------------------------------------------------- '-- Exemple utilisation de la fonction compte_ligne -- '-- '----------------------------------------------------------------------------- Sub maprocedure() '--> Déclaration des variables Dim ma_feuille As String Dim colonne As String Dim mon_text As String Dim num_ligne As Integer '--> Attribution des valeurs ma_feuille = "toto" colonne = "D" mon_texte = "Nouveau texte" '--> Appel de la fonction compte_ligne num_ligne = compte_ligne(Sheets(ma_feuille), colonne) '--> Selection de la feuille Sheets(ma_feuille).Select '--> Selection de la cellule Range((colonne) & (num_ligne + 1)).Select '--> Affectation de la valeur texte à la cellule active ActiveCell.Value = mon_texte '--> Boxe confirmant l'opération MsgBox "Insertion texte : " & mon_texte & Chr(13) & ma_feuille & ":" & colonne & (num_ligne + 1) End Sub

---

Encore merci a tous !!!!!

Bonjour
non tu a rien compris !!
dans ton dernier exemple tu fait tout ce qu'il faut pas faire
en general une fonction comme celle la est faite pour t'alleger le travail tout du moins du pc
toi tu activate ,select a gogo alors qu'il ny en a pas besoins
ca valait vraiment la peine de t'expliquer hein!!!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Function compte_ligne(sh As Worksheet, col As Variant) As Integer With sh If IsNumeric(col) Then '--> Gere un argument numérique (1,2,3....) Set plage = .Cells(Rows.Count, col) Else '--> Gere un argument alpha (A,B,C......) Set plage = .Range(col & Rows.Count) End If '--> Compte le nombre de lignes dans la colonne compte_ligne = plage.End(xlUp).Row End With End Function

---

ici tu envoie un dtring alors que la fonction a besoins d'un object
ma_feuille = "toto"
c'est plut ca :
ma_feuille = sheets("toto")

ici
Dim colonne As String ici pourquoi string pourquoi pas variant afin de pouvoir utiliser le chiffre hein!!!!
colonne = "D" ' pourquoifaire ???????? puisque tu l'injecte

j'arrete ici car il faut tout revoir

et en fait si ca a fonctionné chez toi c'est parceque tu a fait l'operation sur le sheets actif sans ca ca aurait planté


pour faire court
tu te plante dans le type de variable que tu utilise a profusion sans que cela soit necessaire

d'ailleurs pour t'en rendre compte il suffit de regarder la longueur de code de (maprocedure) par rapport a la fonction

voila comment faut utiliser la fonction tout simplement je remplace tout ton code par

Code:

---

1 2 3 4 5

Dim ma_feuille As object Dim mon_text As String mon_texte = "Nouveau texte" set ma_feuille =sheets("toto")

---

Code:

---

1 2	sheets("toto").cells(num_ligne(ma_feuille,"D"),"D")= mon_texte

---

ou en numeric

Code:

---

1 2	sheets("toto").cells(num_ligne(ma_feuille,3),3)= mon_texte

---

point barre

non rien compris tu a petit djedail

En fait, j'ai voulu tout détailler, ligne par ligne, par souci de compréhension. Je suis d'accord avec toi, on peut faire beaucoup plus court.
Merci, pour ce conseil.

puré tu a encore rien compris alors je repete
ton code de "maprocedure " est FAUX
C'EST PLUS CLAIR LA!!

quand je parlais de longueur je ne faisais pas allusion au commentaire

pourquoi dimer une variable et ensuite alimenter cette variable

pour l'injecter dans une autre variable dela fonction

exemple preécédement cité

Code:

---

sheets("toto").cells(num_ligne(ma_feuille,"D"),"D")= mon_texte

---

Code:

---

sheets("toto").cells(num_ligne(ma_feuille,3),3)= mon_texte

---

exemple en utilisant le range et l'argument en numeric

Code:

---

1 2	sheets("toto").range("D" & num_ligne(ma_feuille,3))= mon_texte

---

exemple en utilisant le range et le activecell.column

Code:

---

1 2	sheets("toto").range("D" & num_ligne(ma_feuille,activecell.column))= mon_texte ' ecrit mon_text dans le rangr("DX") X etant donné par la fonction

---

exemple en utilisant le cellset le activecell.column

Code:

---

1 2	sheets("toto").cells(num_ligne(ma_feuille,ma_feuille.activecell.column)).offset(1,0)= mon_texte ' ecrit mon_texte dans la premiere cellule dispo dans la meme colonne que l'activecell

---

bref je t'ai donné une petite becanne t'en a fait une charette
;)
a quoi bon