Affichage de lignes et colonnes

Bonjour

Je ne suis pas expert en code de macro,

Je cherche a réaliser un macro qui me permettrait :

- D'afficher les lignes dont la colonne A contient un X et d'afficher aussi les colonnes de ligne 1 qui contiennent aussi un X
Je vous transmet une capture d'écran

Dans le cas de la capture d'écran, l'affichage se limiterait aux lignes, 7, 8, 9, 10, 11, 15,16, ... et aux colonnes D, E, F, P, S, ...

Pourriez vous m'aider svp ?

bonjour,

une proposition

Sub masque()
    Cells.EntireRow.Hidden = False
    Cells.EntireColumn.Hidden = False
    dl = Cells(Rows.Count, 1).End(xlUp).Row
    dc = Cells(1, Columns.Count).End(xlToLeft).Column
    Cells(1, dc + 1).Resize(1, Columns.Count - dc).EntireColumn.Hidden = True
    For i = 2 To dc
        If Cells(1, i) <> "x" Then Cells(1, i).EntireColumn.Hidden = True
    Next i
    Cells(dl + 1, 1).Resize(Rows.Count - dl, 1).EntireRow.Hidden = True
    For i = 2 To dl
        If Cells(i, 1) <> "x" Then Cells(i, 2).EntireRow.Hidden = True
    Next i
    Cells(1, 1).Activate
End Sub

Bonjour,

J'ai essayé mais il y a un message d'erreur ?

bonjour,

chez moi cela fonctionne, je ne peux donc en dire plus sans avoir un fichier dans lequel tu peux reproduire le problème.

Je peux envoyer le fichier concerné ?

re-bonjour,

Je peux envoyer le fichier concerné ?

oui tu peux mettre un fichier en cliquant sur le bouton "x dans une feuille" juste à coté du bouton x²

Je vous l'envoie de suite

J'ai enlevé pas mal de colonne pour que le fichier passe en poids.

Normalement les colonnes vont jusqu'à ADN24

Vous me direz si vous le recevez bien

bonsoir,

ce fichier ne permet pas d'obtenir l'erreur que tu as décrite.

Bonjour

J'ai l'impression d'avoir trouvé, j'ai l'impression que ca venait du x que je marque en majuscule (X).

Pour les lignes, c'est beaucoup trop long,

J'ai modifié un peu pour que le code fonctionne avec les colonnes, mais que pour les linges il masque les colonnes groupées de niveau 1

Sub affichage_moa_2()
'
' affichage_moa_2 Macro
'
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
dl = Cells(Rows.Count, 1).End(xlUp).Row
dc = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, dc + 1).Resize(1, Columns.Count - dc).EntireColumn.Hidden = True
For i = 2 To dc
If Cells(1, i) <> "X" Then Cells(1, i).EntireColumn.Hidden = True
Next i

Cells(1, 1).Activate

ActiveSheet.Outline.ShowLevels RowLevels:=1


End Sub

Ça a l'air de fonctionner, mais j'ai plusieurs petits soucis :

- Je ne sais pas si ce que j'ai modifié est bon,

- Les lignes 1 à 3 restent afficher alors qu'il faudrait qu'elles disparaissent

- La colonne 1 reste aussi alors qu'il faudrait qu'elles disparaissent

- Le temps d'exécution ma parait long ?

- Il faudrait une fonction, pour commencer la marco, qui commence par tout afficher avant pour qu'on puisse passer d'un affichage à l'autre (Affichage MOA après affichage chantier ou l'inverse)