bonjour
j'ai un souci pour réaliser des conditions combiner. Je m'explique:
if sheet(1).combobox2.value="4" then
if sheet(x).range("c"&i).value = "" then
cacher la ligne i
end if
end if
avec x de 4 à 19 et i de 4à100
et j'ai 4 cas de valeur pour la combobox2 (de 1à4)
alor j'avais penser a un truc du genre:
For i = 1 To 4
Select Case i
Case 1
for j = 4 to 19
If Sheets(1).ComboBox2.Value = "4" Then
For m = 4 To 100
If Sheets(j).Range("c" & m).Value = "" Then
Sheets(j).Rows(m).EntireRow.Hidden = True
End If
Next m
End If
next j
Case 2
If Sheets(1).ComboBox2.Value = "3" Then
.....
End If
Case 3
If Sheets(1).ComboBox2.Value = "2" Then
......
End If
Case 4
If Sheets(1).ComboBox2.Value = "1" Then
......
End If
End Select
Next l
mais sa ne fonctionne pas car je ne sais pas comment déclarer mes variables ou si sa se trouve ce n'est pas faisable!???
merci
j'ai un souci pour réaliser des conditions combiner. Je m'explique:
if sheet(1).combobox2.value="4" then
if sheet(x).range("c"&i).value = "" then
cacher la ligne i
end if
end if
avec x de 4 à 19 et i de 4à100
et j'ai 4 cas de valeur pour la combobox2 (de 1à4)
alor j'avais penser a un truc du genre:
For i = 1 To 4
Select Case i
Case 1
for j = 4 to 19
If Sheets(1).ComboBox2.Value = "4" Then
For m = 4 To 100
If Sheets(j).Range("c" & m).Value = "" Then
Sheets(j).Rows(m).EntireRow.Hidden = True
End If
Next m
End If
next j
Case 2
If Sheets(1).ComboBox2.Value = "3" Then
.....
End If
Case 3
If Sheets(1).ComboBox2.Value = "2" Then
......
End If
Case 4
If Sheets(1).ComboBox2.Value = "1" Then
......
End If
End Select
Next l
mais sa ne fonctionne pas car je ne sais pas comment déclarer mes variables ou si sa se trouve ce n'est pas faisable!???
merci