Probleme avec une formule pour cacher des ligne

Bonjours a tous,

Voici mon code le seul problème il ne prend que la première cellule qui est = a "A" alors qu'il peut y en avoir plusieurs.

je voudrais dire Si chaque cellule (I, 62 = "A" Then

Private Sub Worksheet_Activate()
Dim I As Integer

 Application.ScreenUpdating = False

  Rows("1:780").Hidden = True

  For I = 1 To 780 Step 52
    If Cells(I, 62) = "A" Then
      Rows(I).Resize(52).Hidden = False
      Exit For
    End If
  Next I
End Sub

cela doit être tous simple mais ça fait un moment que je galère.

merci de votre aide

Bonjour

Comme tu pars du plus grand au plut petit il te manque le pas (Step)

For I = 1 To 780 Step 52 Step -1  

Mal réveillé je raconte des c......ies

Salut Banzai,

cela me dit erreur de compilation, attendu fin d'instruction

es ce bien comme ceci?

Private Sub Worksheet_Activate()
Dim I As Integer

 Application.ScreenUpdating = False

  Rows("1:780").Hidden = True

  For I = 1 To 780 Step 52 Step -1
    If Cells(I, 62) = "A" Then
      Rows(I).Resize(52).Hidden = False
      Exit For
    End If
  Next I
End Sub

Bonjour

Désolé j'étais sur mon petit nuage et j'ai lu un mot sur 2

Pour moi tu avais marqué

For I = 780 To 52

Tout cela pour te dire que je n'en sais pas plus, mais qu'un fichier, dans lequel tu expliques ce que tu veux faire, aiderait à trouver une solution

Bonjour Banzai

Voici un petit fichier explicatif

Salutation

Bonjour

D'après ce que j'ai vu il faut faire le contraire

Afficher toutes les lignes

Masquer le groupe qui n'a pas la lettre A

Private Sub Worksheet_Activate()
Dim I As Integer

 Application.ScreenUpdating = False

  Rows("1:75").Hidden = False

  For I = 1 To 75 Step 15
    If Cells(I, 9) <> "A" Then
      Rows(I).Resize(15).Hidden = True
      'Exit For
    End If
  Next I
End Sub

ou alors un peu plus compliqué

Tu affiches toutes les lignes

Tu masques par paquet de 15

Et tu fais ta boucle

Private Sub Worksheet_Activate()
Dim I As Integer

 Application.ScreenUpdating = False

  Rows("1:75").Hidden = False

  For I = 1 To 75 Step 15
    Rows(I).Resize(15).Hidden = True
  Next I

  For I = 1 To 75 Step 15
    If Cells(I, 9) = "A" Then
      Rows(I).Resize(15).Hidden = False
      'Exit For
    End If
  Next I
End Sub

Une question : Comment passer de l'état "pas de A" à "A" (comment marquer le groupe pour qu'il soit affiché) ?

Super c'est tous bon,

Je verrais pour la deuxième solution des que j'ai un moment pour la comprendre, mais si c'est plus compliquer,???? j'ai déjà assez de peine avec la VBA comme ça.

Pour passer de A a A, c'est d'apres une valeur dans une autre feuille, celle ou je remplis les billet donc dans la case ou il y a les A, il y a la formule =si(.....="";"";A)

merci encore et bonne fin de journée