Discussion :

[tomy7]

bonsoir,

j aimerai detecter toutes les cellules vides de ma colonne Q.
et les masquer je ne sais pas si mon idee est bonne

Code :

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

1
2
3
4
5
6
 
Dim Mysheet as worksheet, response as range, criteria as string
for i = 13 to 263
set Mysheet = Activesheet 
Criteria = ""
Set response = Mysheet.cells.find (criteria, Mysheet.column("Qi"), xlvalue, xlwhole)

et apres je sais pas....

[Many31]

les masquer? tu peux etre plus explicite?

un simple tri sur cette colonne ne serait pas plus judicieux?
Tu veux pouvoir garder la ligne? ou carrément la supprimer?

[tomy7]

je veux detecter toutes les cellules de la colonne Q de 13 a 263 qui sont vides

et ainsi masquer la ligne entiere de ces cellules vides.

[Abed_H]

Bonjour
un exemple à tester

Code :

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

1
2
3
4
5
6
7
8
Sub CacheQ()
Dim i As Integer
 For i = 13 To 263
    If IsEmpty(Cells(i, 17)) Then
       Rows(i).Hidden = True
   End If
 Next i
End Sub

Abed_H

[tomy7]

l idee me plais mais j ai un bug : "referrence de variable de controle incorrecte "

voici l adaption du code:

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton27_Click()
Dim k As Integer
 For i = 13 To 263
 For j = 0 To 500
    If IsEmpty(Sheets("Add" & j).Cells(i, 15)) Then
       Rows(i).Hidden = True
   End If
 Next k
 Next j
End Sub

[Abed_H]

Re
Next j au lieu de Next k

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub CacheQ()
Dim i As Integer,j As Integer
 For i = 13 To 263
 For j = 0 To 500
    If IsEmpty(Sheets("Add" & j).Cells(i, 15)) Then
       Rows(i).Hidden = True
   End If
 Next j
 Next i
 
End Sub