Si j'utilise cette fonction dans un sous programme paramétrable
ca ne fonction qu'une fois, avec la première feuille quelque
soit celle-ci? Je gère aussi le cas ou il n'y a qu'une seule case
d'occupée.
C'est comme s'il fallait initialiser quelque chose entre deux
passages.
Merci.
___
Sub compter(para1,para2)
Dim plage As Range
Set plage = Sheets(Para1).Range(Para2, [A3].End(xlDown))
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Jojo,
essaie ceci :
Sub test() Msgbox Compter("feuil1", Range("A3")) End Sub
'----------------------- Function Compter(Feuille As String, Cellule As Range)
With Worksheets(Feuille) Compter = .Cells(65536, Cellule.Column).End(xlUp).Row End With
End Function '-----------------------
Salutations!
"jojo" a écrit dans le message de news: 4332b282$0$27440$ Bonjour.
Si j'utilise cette fonction dans un sous programme paramétrable ca ne fonction qu'une fois, avec la première feuille quelque soit celle-ci? Je gère aussi le cas ou il n'y a qu'une seule case d'occupée. C'est comme s'il fallait initialiser quelque chose entre deux passages. Merci. ___ Sub compter(para1,para2)
Dim plage As Range
Set plage = Sheets(Para1).Range(Para2, [A3].End(xlDown))
Nbrlignes = plage.Count
End sub ----
Bonjour Jojo,
essaie ceci :
Sub test()
Msgbox Compter("feuil1", Range("A3"))
End Sub
'-----------------------
Function Compter(Feuille As String, Cellule As Range)
With Worksheets(Feuille)
Compter = .Cells(65536, Cellule.Column).End(xlUp).Row
End With
End Function
'-----------------------
Salutations!
"jojo" <johnsteed75@voila.fr> a écrit dans le message de news: 4332b282$0$27440$8fcfb975@news.wanadoo.fr...
Bonjour.
Si j'utilise cette fonction dans un sous programme paramétrable
ca ne fonction qu'une fois, avec la première feuille quelque
soit celle-ci? Je gère aussi le cas ou il n'y a qu'une seule case
d'occupée.
C'est comme s'il fallait initialiser quelque chose entre deux
passages.
Merci.
___
Sub compter(para1,para2)
Dim plage As Range
Set plage = Sheets(Para1).Range(Para2, [A3].End(xlDown))
Sub test() Msgbox Compter("feuil1", Range("A3")) End Sub
'----------------------- Function Compter(Feuille As String, Cellule As Range)
With Worksheets(Feuille) Compter = .Cells(65536, Cellule.Column).End(xlUp).Row End With
End Function '-----------------------
Salutations!
"jojo" a écrit dans le message de news: 4332b282$0$27440$ Bonjour.
Si j'utilise cette fonction dans un sous programme paramétrable ca ne fonction qu'une fois, avec la première feuille quelque soit celle-ci? Je gère aussi le cas ou il n'y a qu'une seule case d'occupée. C'est comme s'il fallait initialiser quelque chose entre deux passages. Merci. ___ Sub compter(para1,para2)
Dim plage As Range
Set plage = Sheets(Para1).Range(Para2, [A3].End(xlDown))
