Discussion :

[mouftie]

Bonjour,
j'ai un tableau que l'utilisateur doit remplir selon les catégories ; ces noms de catégories sont des plages fusionnées (maximum 18 lignes), dont certaines lignes sont masquées.
(on rend visible ligne par ligne selon les besoins avec un bouton, pour garder une esthétique à l'impression sur une page)
mon problème est que je dois permettre de rendre visible une ligne seulement si les 18 ne sont pas encore visibles, donc je dois compter le nb de cellules visibles dans la cellule fusionnée

J'ai essayé

Code :

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

MsgBox Range("A" & ActiveCell.Row).SpecialCells(xlVisible).Count

mais j'obtient le message "Dépassement de capacité", alors qu'il n'y a pas de variable

j'ai essayé

Code :

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

Range("A" & ActiveCell).MergeArea.Rows.Count

, mais j'obtiens systématiquement 18

Est-ce quelqu'un peut m'aider, svp.
merco

[joe.levrai]

Pour la cellule active

Code :

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

MsgBox ActiveCell.MergeArea.Rows.SpecialCells(xlCellTypeVisible).Count

je te laisse adapter, tu ne donnes pas assez d'infos pour aller plus loin en l'état

[mouftie]

Bonsoir Joe,
je suis en train de rentrée, mais j'ai fait un simple essai, cela semble me convenir.
Je tournais autour.
Merci beaucoup, je confirme demain matin.
Bonne soirée

[mouftie]

Bonjour à tous,
Voici le code qui fonctionne

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
18
19
20
21
Sub MasqLg()
'Insertion de Lg vierge, dans la limite de 18
'en réalité, ces lg existent, mais sont masquées
Dim a As String
Dim n As Integer
a = ActiveCell.Address
'je cpte le nb de lg visibles dans la cellule fusionnée, tant que je ne dépasse pas 18
n = Range("A" & ActiveCell.Row).MergeArea.Rows.SpecialCells(xlVisible).Count
'si n < 18 j'inserre une ligne masquée
If n < 18 Then
    ActiveCell.Offset(1, 0).Rows.EntireRow.Hidden = False
Else
    'sinon message
    Call MsgBox("Vous ne pouvez pas insérer de nouvelles lignes pour ce modèle." _
                & vbCrLf & "" _
                & vbCrLf & "Contactez votre responsable" _
                , vbInformation, "OASIS")
End If
'on se remet prêt à saisir une nouvelle ligne
Range(a).Offset(1, -1).Select
End Sub

Pour mieux comprendre l'objectif de cette procédure, j'ai fais une copie d'écran

Merci à tous