Discussion :

[Invité]

Bonjour, voici ma Macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
1  Public Function CherchePlage(ByVal feuilleSource As Worksheet) As Range
2      Dim firstCell As Range, lastCell As Range
3     
4      With feuilleSource
5          Set firstCell = .Cells(1, 1)
6          Set lastCell = .Cells(.Rows.Count, 1)
7          If IsEmpty(lastCell.Value) Then
8              Set lastCell = lastCell.End(xlUp)
9          End If
10         CherchePlage = .Range(firstCell, lastCell)
11     End With
12 End Function

Et il me crash à la ligne 10 :

Erreur d'exécution '91' :
Variable objet ou variable de bloc With non définie

Pourtant tout est bien déclaré, la fonction retourne un Range et la propriété .Range retourne en effet un Range aussi.

Je l'ai testé en Procédure (donc sans valeur de retour) et elle fonctionne...

Merci d'avance

PS : j'ai cherché sur Google cette erreur d'exécution, il y a plein de réponse que j'ai tenté mais aucune ne fonctionne.

[jfontaine]

Bonjour,

L'instanciation d'une variable de type range doit être précédée de Set

Essais comme cela

Code :

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

Set CherchePlage = .Range(firstCell, lastCell)

[Invité]

Ça fonctionne, merci beaucoup

(je me sens d'un ridicule pour un truc aussi bête...)