Discussion :

[alain78]

Bonjour à toutes et à tous,

Petit souci et je ne comprend pas pourquoi .

Voici mon code

Code :

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

1
2
3
4
5
6
7
8
 
 
Dim memtableau As Range
 
' trouver la date minimum
     memtableau = Range("A1:B71")
     dateMini = WorksheetFunction.Min(memtableau)
     dateMaxi = WorksheetFunction.Max(memtableau)

A la compilation, le message "Variable objet ou variable de bloc With non définie" se bloque sur la ligne

Code :

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

  memtableau = Range("A1:B71")

Et pourtant la variable est bien déclarée au dessus. J'ai aussi essayé de la déclarer Public hors module. Même résultat.

Avez vous une idée ?

Remerciements par avance.

[Patrice740]

Bonjour,

L'instruction d'affection d'un objet doit commencer par Set :

Code :

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

Set memtableau = Range("A1:B71")

EDIT : et pour éviter les ambigüités il est préférable de préciser le(s) Parent(s)

[alain78]

Merci pour cette précision que j'ai ignorée.

Mais maintenant c'est la ligne

Code :

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

1
2
 
dateMini = WorksheetFunction.Min(memtableau)

qui bloque avec le message

Argument ou appel de procédure incorrect

??

[Patrice740]

Re,

Code :

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

1
2
3
4
Dim dateMini As Date
'....
'....
dateMini = Application.WorksheetFunction.Min(memtableau)

[alain78]

J'ai depuis mon dernier post trouvé la réponse grâce au message du debug.

Voici ce que j'ai et qui marche bien

Code :

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

1
2
3
4
              Worksheets("Séances").Select
                Set plage = Range("A1:A71")
                datemini = WorksheetFunction.Min(plage)
                datemaxi = WorksheetFunction.Max(plage)

En fait j'avais oublié de positionner le focus (Worksheets("Séances").Select) et donc Excel ne trouvait pas le Range.

Merci encore Patrice.

[Transitoire]

bonsoir,
étonnant, le test sur mon ordinateur le code fonctionne impec

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub test()
Dim memtableau As Range
Dim datemini As Date
Dim datemax As Date
Set memtableau = Range("a1:b3")
datemini = WorksheetFunction.Min(memtableau)
datemax = WorksheetFunction.Max(memtableau)
MsgBox "Mini " & datemini & "     Maxi " & datemax
Range("d1").Value = datemini
Range("d2").Value = datemax
End Sub

vous devez avoir un problème ailleurs
Vous pouvez le tester sur un document. ça marche!
cordialement

[Patrice740]

En fait j'avais oublié de positionner le focus (Worksheets("Séances").Select) et donc Excel ne trouvait pas le Range.

Mais le .Select est inutile, chronophage et c'est une mauvaise solution qui pourrait poser problème dans certains cas.
La bonne syntaxe est :

Code :

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

1
2
3
              Set plage = Worksheets("Séances").Range("A1:A71")
                datemini = WorksheetFunction.Min(plage)
                datemaxi = WorksheetFunction.Max(plage)