effacement de lignes

[gildautal]

bonjour a tous ,
j'ai cela :
Sub teston()
Dim i As Integer
Application.ScreenUpdating = False
Sheets("TabldeformGlobal").Select
For i = 4 To 63
If Range("B" & i) = "" Then
Rows(i).Hidden = True
End If
Next i
Range("C4").Select
Application.ScreenUpdating = True
End Sub

Si la ligne dans la colonne B est "", je cache la ligne; seulement il se trouve que dans chaque ligne se trouve des formules (donc non vides).
Je pense que c'est pour cela que ca ne fonctionne pas .
y a t il une solution pour cacher un ligne blanche meme si elle contient une formule?
merci

 

[Pierrot93]

Re : effacement de lignes

bonjour,

modifies peut être ton test ainsi :

If Range("B" & i).Text = "" Then

bon après midi
@+

 

[gildautal]

Re : effacement de lignes

Merci pierrot toujours au top !
c'est vrai qu'il faut être plus précis dans les procédures
je vais poser une autre question sur le forum (plus technique) peut être pourras tu y répondre
cdlt