Bonjour,

J'ai un fichier de test très simple avec une plage de cellules nommée qui contient des nombre dans les X cases du haut. J'ai réussi à faire une macro (sans paramètre) qui donne la X+1ème cellule mais quand j'utilise une autre macro ayant en paramètre la plage dont on veut trouver la première case vide j'ai un problème. J'ai cherché moi-même et puis partout sur le net et je n'ai pas réussi à trouver quelque chose qui règle les différentes erreurs. voilà le code (dans mon fichier I8:I16 est nommé toto) :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
 
Public toto As Range
 
Function dernière(pipo As Range)
 
    'Static toto As Range
    'Static pipo As Range
 
    'Application.EnableEvents = False
 
    pipo.End(xlDown).Select
    ActiveCell.Offset(1, 0).Range("A1").Select
    dernière = Selection
 
    'Application.EnableEvents = True
 
End Function
 
Sub écrit()
 
MsgBox = dernière.Offset(-1, 0).Value
 
End Sub
 
Sub plop()
 
Call dernière(toto)
 
End Sub
 
Function dernièreSIMPLE()
 
    'Range("I8:I16").End(xlDown).Select
    'ActiveCell.Offset(1, 0).Range("A1").Select
    'dernièreSIMPLE = Selection
 
    dernièreSIMPLE = Range("I8:I16").End(xlDown).Offset(1, 0).Select
 
End Function
Le problème doit très certainement être simple. J'ai supposé que c'était lié au formats mais je n'ai pas trouvé. Et j'ai pensé qu'il faudra que je vérifie ce qu'il se passe quand la plage est vide une fois la macro fonctionnera.
PS : les lignes de commentaires sont liées aux différentes solutions que j'ai essayé pour traiter le problème.

Merci si vous pouvez me filer un petit coup de main.