Range Dynamic VIDE - Non reconnu

Re Bonjour,

J'ai dans mon fichier un certain nombre de Ranges Dynamiques de type:

Code:

---

MyRange =OFFSET(Sheet!$A$1,1,0,COUNTA(Data!$A:$A),1)

---

Ces ranges peuvent parfois ne pas contenir de valeurs du tout et je voudrais dans ce cas declencher un certain nombre d'événements (changer le Label associé au range, etc.)

Voila ce que j'ai entré dans mon code

Code:

---

1 2 3 4

If Range("MyRAnge").Rows.Count < 1 Then Label_MyLabel.Caption = "n/a" ComboBox_MyCbobx.Enabled = False End If

---

Lorsque le range contient des valeurs, pas de problèmes, mais si le range est vide, le code bug à la première ligne. Il semblerait dans ce cas que le range soit comme "inexistant"...

Quelqu'un peut-il confirmer ce "diagnostique" et connaissez vous une solution?

Merci!

Mas

Code:

---

1 2 3 4 5 6 7

On Error Resume Next Range("MyRAnge").Select If Err.Number = 1004 Then Label_MyLabel.Caption = "n/a" ComboBox_MyCbobx.Enabled = False Err.Clear End If

---

Citation:

---

Envoyé par mercatog

Code:

---

1 2 3 4 5 6 7

On Error Resume Next Range("MyRAnge").Select If Err.Number = 1004 Then Label_MyLabel.Caption = "n/a" ComboBox_MyCbobx.Enabled = False Err.Clear End If

---

---

Plus rusé qu'un renard... :mrgreen:

Merci beaucoup ! :ccool: