Discussion :

[Mas_Carpone]

Re Bonjour,

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

Code :

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

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 :

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

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

[mercatog]

Code :

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

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

[Mas_Carpone]

Code :

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

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...

Merci beaucoup !