Discussion :

[anarchiste-mouton]

Bonjour,

J'utilise très souvent cette structure :

Code :

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

1
2
3
4
5
6
 
Dim Cellu as Range
 
for each Cellu in worksheets("Exemple").range("A2:A" & DL("Exemple","A2")
    'du code
next Cellu

Avec dans un module :

Code :

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

1
2
3
4
 
Function DL(Feuille As String, Cellu As String) As Integer
    DL = Worksheets(Feuille).Range(Cellu).End(xlDown).Row
End Function

Je trouve ça un peu rébarbatif et j'aimerais encore améliorer ma petite fonction pour n'avoir qu'a écrire quelque chose du genre :

Code :

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

1
2
3
4
5
6
 
Dim Cellu as Range
 
for each Cellu in Feignant("Exemple","A2")
    'du code
next Cellu

Quelqu'un saurait m'aiguiller pour la function ?

[mercatog]

Code :

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

1
2
3
4
5
6
Function faineant(Feuille As String, Cellu As String) As range
 
With Worksheets(Feuille)
Set faineant = .Range(Cellu &":"& .range(Cellu).End(xlDown).address)
End with
End Function

[anarchiste-mouton]

Wow merci mercatog,
je me sens bête de la simplicité du problème maintenant

Bonne fin de journée