OVH Cloud OVH Cloud

Masquer des lignes

12 réponses
Avatar
Erico
Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une liaisons
et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108 à
D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub

2 réponses

1 2
Avatar
Pierre.M
Bonsoir et merci a tous pour votre aide (et desole d'avoir reveille un
vieux different...).

JB ta macro fonctionne tout a fait dans le sens que je souhaitais (Ce
n'est pas la premiere fois que tu me depanne d'ailleurs).

Le seul probleme c'est que je pensais que ce serait faisable sans "-"
entre nombre et lettre. nous avons tous l'habitude de saisir ces
numeros ainsi dans tous types de documents, et il me semble complique
pour les utilisateurs de penser a mettre "-" juste dans ce tableau...
Dommage. Je vais reflechir a un autre moyen.

En tous cas, merci encore.

Pierre


On 2006-06-10 23:02:36 +0200, "Erico" said:

Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108 à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub


Avatar
Pierre.M
Desole, mal poste...

Pierre



On 2006-06-10 23:02:36 +0200, "Erico" said:

Bonjour à tous,


J'ai macro suivante pour masquer des lignes quand elle est vide.
Le problème, c'Est que mes cases ne sont pas vide, ils ont ous une
liaisons et c'Est pour ça que ça ne fonctionne pas.

Comment rajouter d'autre cellules à la formule comme D74 à D99 et D108 à D117

Merci

Sub Macro1()
For x = 17 To 70
If Cells(x, 4).Value = "" Then
Rows(x).EntireRow.Hidden = True
End If
Next x

End Sub


1 2