Un peu difficile

Avec ce nouveau code de Daniel.C, le contenu de la cellule CI devient
effectivement visible si l'on clique dans la cellule BI, mais ne redevient
pas invisible ensuite si l'on clique ailleurs que dans la cellule BI. Or ce
que je souhaiterais: CI visible UNIQUEMENT si l'on clique dans BI.

Daniel.C wrote:

Oups.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4:B80")) Is Nothing Then
[B4:B80].NumberFormat = ";;;"
Else
Cells(Target.Row, 3).NumberFormat = "General"
End If
End Sub
Daniel

Bonjour.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4:B80")) Is Nothing Then
Cells(Target.Row, 3).NumberFormat = ";;;"
Else
Cells(Target.Row, 3).NumberFormat = "General"
End If
End Sub

Cordialement.
Daniel

En fait, je souhaiterais que pour chaque I compris entre 4 et 80, le
contenu
de la cellulle CI ne soit visible que si l'on clique dans la cellule
voisine
BI. On obtient ce résultat en reprenant 77 fois ce bout de code de
Daniel.C,à savoir:

If Target.Address <> "$B$1" Then
[C1].NumberFormat = ";;;"
Else
[C1].NumberFormat = "General"
End If

Mais au lieu de cela, je voulais aboutir au même résultat par un
code plus concis.Le code de MgrT.Banni conduit à une erreur de
compilation "Qualificateur incorrect" portant sur I.

Toujours pour Daniel.C:
De plus avec ce code, si je clique ailleurs que dans la plage des BI, le
contenu de toutes les cellules BI devient invisible.

isabelle wrote:

bonjour Willi,
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4:B80")) Is Nothing Then
[C4:C80].NumberFormat = ";;;"
Else
[C4:C80].NumberFormat = "General"
End If
End Sub

Ce code, isabelle, entraîne l'affichage de toutes les valeurs des cellules
CI dès qu l'on clique dans une cellule BI quelconque. Or par exemple, C4 ne
doit s'afficher que si l'on clique dans B4, et C5 ne doit s'afficher que si
l'on clique dans B5, etc...

bonjour Willi,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4:B80")) Is Nothing Then
[C4:C80].NumberFormat = ";;;"
Else
[C4:C80].NumberFormat = ";;;"
Cells(Target.Row, 3).NumberFormat = "General"
End If
End Sub

isabelle

Willi2004 a écrit :

Toujours pour Daniel.C:
De plus avec ce code, si je clique ailleurs que dans la plage des BI, le
contenu de toutes les cellules BI devient invisible.

Tu as du génie isabelle. Exactement ce que je voulais. Merci infiniment.

isabelle wrote:

bonjour Willi,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B4:B80")) Is Nothing Then
[C4:C80].NumberFormat = ";;;"
Else
[C4:C80].NumberFormat = ";;;"
Cells(Target.Row, 3).NumberFormat = "General"
End If
End Sub

isabelle

Willi2004 a écrit :

Toujours pour Daniel.C:
De plus avec ce code, si je clique ailleurs que dans la plage des
BI, le contenu de toutes les cellules BI devient invisible.