Variable objet ou variable de bloc With non définie ?

Bonjour à toutes et à tous,

Petit souci et je ne comprend pas pourquoi :arf:.

Voici mon code

Code:

---

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:

---

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.

Bonjour,

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

Code:

---

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)

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

Mais maintenant c'est la ligne

Code:

---

1 2	dateMini = WorksheetFunction.Min(memtableau)

---

qui bloque avec le message

Argument ou appel de procédure incorrect

??

Re,

Code:

---

1 2 3 4

Dim dateMini As Date '.... '.... dateMini = Application.WorksheetFunction.Min(memtableau)

---

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:

---

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.:merci::resolu:

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

Code:

---

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:weird:
Vous pouvez le tester sur un document. ça marche!
cordialement 8-)

Citation:

---

Envoyé par alain78

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:

---

1 2 3

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

---