Discussion :

[M. De la Guigne]

Bonjour à toutes et à tous,

J'ai un ensemble de feuilles sur Excel. L'idée est d'avoir une feuille de saisie de différentes informations.

Justement sur une des cellules, j'indique un nombre d'associés.

Ce nombre va aller de 2 à 5 par exemple.

J'ai bien réussi à mettre en place une formule qui me permet de cacher les lignes de saisies pour les associés non requis : par exemple si on indique 2 associés, les associés 3, 4 et 5 ne sont pas affichés.

C'est nickel jusqu'à maintenant.

Mon problème est que je souhaite que ce choix d'associés impacte aussi d'autres onglets. Et c'est là mon problème.

J'ai commencé par appliqué le même genre de formule mais je n'arrive pas à faire un lien vers l'onglet de base.

J'ai voulu faire une formule qui va chercher la cellule d'infos sur le même onglet et cette cellule va chercher l'information sur l'onglet de base (oui c'est du bricolage). Malheureusement, la formule ne s'applique que si on revalide le résultat.

Il faut bien entendu que cela se fasse de manière automatique.

En gros, je tape 2 dans un onglet de base et en cascade cela impacte plusieurs onglets. Est-ce que cela est possible?

En vous remerciant par avance

[clementmarcotte]

Bonjour,

Pour copier la valeur de la cellule a6 de la feuille Feuil1 dans une cellule d'une autre feuille


mettre

Code :

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

=Feuil1!A6

dans la cellule de destination

[M. De la Guigne]

Avec le code c'est mieux, donc actuellement dans l'onglet saisie j'ai cette macro qui observe le comportement de certaines cellules et donc va réduire les lignes sur la feuille saisie.

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
22
23
24
25
26
27
28
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug
If Target.Address = "$B$2" Then '<-- vérification que la modification se passe dans la cellule A4
    Select Case Target.Value
        Case "1": Rows("20:32").Hidden = True
        Case "2": Rows("20:32").Hidden = False
    End Select
End If
 
If Target.Address = Me.Range("lettreir").Address Then
    If Target.Value = "Oui" Then
        Sheets("LETTRE IR").Visible = True
    Else
        Sheets("LETTRE IR").Visible = False
    End If
End If
 
If Target.Count > 1 Then Exit Sub '<-- si plusieurs cellules sont sélectionnées on quitte la procédure sinon ça bug
If Target.Address = "$B$3" Then '<-- vérification que la modification se passe dans la cellule A4
    Select Case Target.Value
        Case "2": Rows("45:57").Hidden = True
        Case "3": Rows("45:57").Hidden = True
        Case "4": Rows("45:57").Hidden = False
        Case "5": Rows("45:57").Hidden = False
    End Select
End If
 
End Sub

Ce que je souhaite faire, c'est que le changement de ces cellules impactent aussi l'affichage de lignes sur d'autres onglets.

[MarcelG]

Bonjour,

Une chose à savoir, et que l'on oublie parfois, c'est qu'il en va de même des valeurs booléennes que des valeurs numériques
Je m'explique

Plutôt que d'alourdir le code par des conditions
On peut très bien écrire

Code :

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

Worksheets("FF").Visible = (Application.UserName = "Marcel")

Pour ta seule feuille auquel l'évènement Change s'applique
(Nous verrons ensuite l'impact sur les autres feuilles)
Essaie ce code très simple et reviens si nécessaire pour éclaircissement(s)

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
22
23
Option Explicit
Option Compare Text
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
With Target
 
        Select Case .Address
 
                Case "$B$2"
                        Rows("20:32").Hidden = (.Value = 1)
 
                Case Range("lettreir").Address
                        Sheets("LETTRE IR").Visible = IIf(.Value = "Oui", False, True)
 
                Case "$B$3"
                        Rows("45:57").Hidden = ((.Value = 2) Or (.Value = 3))
 
        End Select
 
End With
 
End Sub

[M. De la Guigne]

C'est clair que c'est beaucoup plus simple visuellement que cela en est beau!

Merci déjà pour la simplification de la formule.

[MarcelG]

Merci mais ce code répond-il à ton besoin?