Discussion :

[yveslbv]

Bonjour a tous.

j'utilise la macro suivante pour masquer des lignes

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
'
Application.ScreenUpdating = False
Range("D3:D400").Select
For Each Cell In Selection
Cpt = 0
For i = 0 To 11
If Cell.Offset(0, i) <> "" Then
Cpt = Cpt + 1
End If
Next
If Cpt = 0 Then
Cell.EntireRow.Hidden = True
End If
Next
Application.ScreenUpdating = True
End Sub

Mon souci est que si j'ai des valeurs dans les colonnes A,B ou C mais pas dans la colonne D l'es lignes sont bien masquées mais si j'ai des valeurs dans les colonnes apres la colonne D ( E et suivantes) les lignes ne se masquent plus !!!

si quelqu'un peut m'aider a comprendre ??
merci d'avance

[tedo01]

Bonjour,
Ce que tu décris est exactement ce qui est codé dans la macro : ton code compte les cellules renseignées entre la colonne D et la colonne O et si ce compteur à égal à 0, il masque la ligne.
Quel est exactement ton problème ?

[yveslbv]

re bonjour, etant novice en VB je ne comprends pas ou sont definies les zones de controle. je veux avec mon ( range) definir uniquement la colonne a controler et ne pas tenir compte des autres colonnes !
merci de m'expliquer ou tu vois que les colonnes controlées sot de D a O ?

j'ai besoin d'apprendre
a te lire
Yves

[tedo01]

Re,

La ligne suivante sélectionne toutes les cellules de D3 à D400 :

Code :

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

Range("D3:D400").Select

Et cette ligne prend chacune de ces cellules une par une :

Code :

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

For Each Cell In Selection

Enfin dans la boucle suivante, tu contrôles toutes les cellules de 0 à 11 colonnes à droite de ta cellule Cell, soit de la colonne D à O, et tu comptes celles qui ne sont pas vides :

Code :

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

1
2
3
4
5
For i = 0 To 11
   If Cell.Offset(0, i) <> "" Then
      Cpt = Cpt + 1
   End If
Next

Est-ce que ça répond à ton attente ?

[yveslbv]

merci beaucoup pour cet eclairage
donc je mets

Code :

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

1
2
3
4
5
For i = 0 To 0
If Cell.Offset(0, i) <> "" Then
Cpt = Cpt + 1
End If
Next

ok merci ca marche
Yves

[tedo01]

Ton raisonnement est juste, mais tu peux aussi faire beaucoup plus simple en supprimant la boucle devenue inutile :

Code :

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

1
2
3
4
5
6
Range("D3:D400").Select
For Each Cell In Selection
   If Cell.Value <> "" Then
      Cell.EntireRow.Hidden = True
   End If
Next Cell

[yveslbv]

Merci beaucoup c'est vrai c'est plus simple
bonne continuation
Yves