OVH Cloud OVH Cloud

Sheets non vides

1 réponse
Avatar
Michel
Bonjour

Dans ces lignes de code, je remplis un combobox avec les noms de mes
feuilles exepté les trois premières.
toutes mes feuilles ont une zone A2:A28 de référence.Comment faire pour que
mon code ne selectionne que
les feuilles dont la zone A2:A28 n'est pas vide

Merci de votre aide
-------------------------------------------
Private Sub UserForm_Initialize()
Dim j As Variant
Workbooks("ca.xls").Activate
ComboBox1.SetFocus
Dim i As Integer
With ComboBox1
For i = 1 To .ListCount
.RemoveItem i
Next i
For i = 4 To Worksheets.Count
.AddItem Sheets(i).Name
Next i
End With
End Sub
-----------------------------------------------------

1 réponse

Avatar
AV
Comment faire pour que
mon code ne selectionne que
les feuilles dont la zone A2:A28 n'est pas vide


-------
For i = 4 To Worksheets.Count
If Evaluate("counta(" & Sheets(i).Name & "!A2:A28)") <> 0 Then
.AddItem Sheets(i).Name
End If
Next i
--------

AV