Discussion :

[Invité]

Bonjour,

Dans une cellule de mon classeur, je voudrais insérer une fonction qui masque (ou pas) des lignes de mon classeur. C'est possible ?

Pour l'instant, j'ai essayé ceci :

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
 
'
' Affiche ou masque les lignes dont on donne l'adresse
'
Function afficherLignes(strPlage As String, ByVal nAfficher As Integer)
  Dim bAfficher As Boolean
  If (nAfficher = 1) Then
    bAfficher = True
  Else
    bAfficher = False
  End If
  Dim plage As Range
  Set plage = Range(strPlage)
 
  plage.EntireRow.Hidden = bAfficher:rem ne fonctionne pas
 
  Range("Y19").FormulaR1C1 = "test":rem ne fonctionne pas non plus
 
End Function

Et dans une cellule de mon classeur j'écris donc la formule "=afficherLignes("A10:A12";0)". Et ça ne fonctionne pas...

Vous auriez une idée pour masquer des lignes dans un classeur en fonction de la valeur saisie dans une cellule (sans utiliser de timer) ?

[ouskel'n'or]

Non, tu ne peux pas de cette manière. Un fonction n'est pas une macro. Elle ne peut te retourner qu'un résultat. La seule formule possible dans ta cellule est "=afficherLignes(paramètres)" si dans ta fonction tu effectues un traitement se terminant par "afficherLignes= RésultatDuTraitement"
A côté de ça, désolé mais je ne vois pas comment traiter ton pb

[ouskel'n'or]

Vous auriez une idée pour masquer des lignes dans un classeur en fonction de la valeur saisie dans une cellule

Si c'est une cellule spécifique (adresse connue) si, j'ai une idée.
Tu dis
A+

[Invité]

Si c'est une cellule spécifique (adresse connue) si, j'ai une idée.
Tu dis
A+

Oui, c'est des lignes spécifiques à masquer...

[ouskel'n'or]

Pour faire ça, tu peux utiliser la macro Worksheet_SelectionChange de la feuille de calculs. Quand la valeur est changée dans la/les cellule(s) de ton choix, tu masques les lignes voulues

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.address = "$A$2" then
   'Ton code
endif
End sub

Si plusieurs de tes celules sont concernées, tu peux faire

Code :

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

1
2
3
4
5
6
Select case Target.address
    Case "$A$2"
         'ton code
    Case "$B$10"
    'etc
End select

L'inconvénient, si les cellules modifiées le sont par soft, c'est que tu devras les sélectionner dans le code (Select) Enfin je crois, tu vérifies
A+

[Invité]

Merci.

[Invité]

Code :

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

Private Sub Worksheet_Change(ByVal Target As Range)

J'ai utilisé l'évènement "_Change" au lieu de "_SelectionChange".

J'ai un appel à chaque fois que le contenu d'une cellule change.

C'est parfait, merci encore.