un problème avec Range

[dg]

Bonsoir à tous

Une petite procédure
Comment remplacer une zone nommée par une variable dans RANGE
Ma tentative (voir code) ne fonctionne pas.

varhiv = "hiver"
For i = 1 To 20
varhiv = varhiv & i
If Application.WorksheetFunction.Count(Range(varhiv)) > 0 Then
' il y a des valeurs
Else

Message = "Pas de données pour l'hiver " & i
reponse = MsgBox(Message)
End If
Next i


Merci et bonne soirée

 

[CBernardT]

Bonsoir Dg et le forum,

Si la plage nommée est "Hiver",

le code peut être :

Sub macro1()
If Application.WorksheetFunction.Count(Range("Hiver")) > 0 Then
MsgBox "Il y a des valeurs pour l'hiver ! "
Else
MsgBox "Pas de données pour l'hiver ! "
End If
End Sub

Cordialement

CBernardT

 

[dg]

bonsoir CBernardt

Merci pour la réponse mais là je sais faire.

Le problème est de remplacer dans range ma variable varhiv

par sa valeur hiver1, hiver2, hiver3... et cela jusque 20 (boucle de 1 à 20)


Bonne soirée

 

[CBernardT]

Re,

j'espère avoir compris ton problème cette fois ?

Sub YesOrNotValeurs()
Dim plage As String
Dim varhiv As Variant
Dim i As Byte

With Workbooks("Classeur1.xls").Worksheets("Feuil1")
For i = 1 To 20
plage = "hiver" & i
varhiv = .Range(plage)
If Application.WorksheetFunction.Count(varhiv) > 0 Then
MsgBox "Il y a des valeurs pour l'hiver ! "
Else
MsgBox "Pas de données pour l'hiver ! "
End If
Next i
End With
End Sub

Cordialement

CBernardT