Un peu difficile

Le
Willi2004
Bonjour à tous.
Soient deux cellules A1 et B1 contenant des données. Je voudrais que le
contenu de la cellule B1 ne soit visible que si l'on clique dans la cellule
C1. Est-ce possible?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses Page 1 / 2
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
stéphane
Le #19085361
Bonjour,

il me semble que pour avoir B1 visible uniquement si l'on clique en C1 il
faut inverser la condition

If Target.Address = "$C$1" Then devient If Target.Address
<>"$C$1" Then

Cdt
Stéphane




"Daniel.C" eYK%
Bonjour.
La macro suivante doit être mise dans le module de la feuille. Elle
fonctionne quand on sélectionne la cellule C1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
[B1].NumberFormat = ";;;"
Else
[B1].NumberFormat = "General"
End If
End Sub

Cordialement.
Daniel

Bonjour à tous.
Soient deux cellules A1 et B1 contenant des données. Je voudrais que le
contenu de la cellule B1 ne soit visible que si l'on clique dans la
cellule C1. Est-ce possible?






Willi2004
Le #19086091
stéphane wrote:
If Target.Address = "$C$1" Then devient If Target.Address
<>"$C$1" Then



En effet!!
Vous êtes formidables tous les deux. Merci.
Daniel.C
Le #19086481
Juste :-)))
Daniel

Bonjour,

il me semble que pour avoir B1 visible uniquement si l'on clique en C1 il
faut inverser la condition

If Target.Address = "$C$1" Then devient If Target.Address <>"$C$1"
Then

Cdt
Stéphane




"Daniel.C" eYK%
Bonjour.
La macro suivante doit être mise dans le module de la feuille. Elle
fonctionne quand on sélectionne la cellule C1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
[B1].NumberFormat = ";;;"
Else
[B1].NumberFormat = "General"
End If
End Sub

Cordialement.
Daniel

Bonjour à tous.
Soient deux cellules A1 et B1 contenant des données. Je voudrais que le
contenu de la cellule B1 ne soit visible que si l'on clique dans la
cellule C1. Est-ce possible?








Willi2004
Le #19089071
Encore plus difficile!
A présent, je tente de modifier ce code afin de l'étendre à une plage, mais
ça ne fonctionne pas.
Voici ce que j'ai mis:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer
For I = 4 To 80
If Target.Address <> "$B$I" Then
[CI].NumberFormat = ";;;"
Else
[CI].NumberFormat = "General"
End If
Next I
End Sub

Qu'en pensez-vous?
Daniel.C wrote:
Juste :-)))
Daniel

Bonjour,

il me semble que pour avoir B1 visible uniquement si l'on clique en
C1 il faut inverser la condition

If Target.Address = "$C$1" Then devient If Target.Address
<>"$C$1" Then

Cdt
Stéphane




"Daniel.C" news: eYK%
Bonjour.
La macro suivante doit être mise dans le module de la feuille. Elle
fonctionne quand on sélectionne la cellule C1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
[B1].NumberFormat = ";;;"
Else
[B1].NumberFormat = "General"
End If
End Sub

Cordialement.
Daniel

Bonjour à tous.
Soient deux cellules A1 et B1 contenant des données. Je voudrais
que le contenu de la cellule B1 ne soit visible que si l'on clique
dans la cellule C1. Est-ce possible?








MichDenis
Le #19089351
Bonjour Willi,

La formulation de ta présentation n'est pas évidente...
L'exemple suivant fait "disparaître" les cellules B4:B80 si
tu cliques sur ailleurs que sur une de celles-ci.
Est-ce que c'est ce que tu désires ?

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



"Willi2004"
Encore plus difficile!
A présent, je tente de modifier ce code afin de l'étendre à une plage, mais
ça ne fonctionne pas.
Voici ce que j'ai mis:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer
For I = 4 To 80
If Target.Address <> "$B$I" Then
[CI].NumberFormat = ";;;"
Else
[CI].NumberFormat = "General"
End If
Next I
End Sub

Qu'en pensez-vous?
Daniel.C wrote:
Juste :-)))
Daniel

Bonjour,

il me semble que pour avoir B1 visible uniquement si l'on clique en
C1 il faut inverser la condition

If Target.Address = "$C$1" Then devient If Target.Address
<>"$C$1" Then

Cdt
Stéphane




"Daniel.C" news: eYK%
Bonjour.
La macro suivante doit être mise dans le module de la feuille. Elle
fonctionne quand on sélectionne la cellule C1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
[B1].NumberFormat = ";;;"
Else
[B1].NumberFormat = "General"
End If
End Sub

Cordialement.
Daniel

Bonjour à tous.
Soient deux cellules A1 et B1 contenant des données. Je voudrais
que le contenu de la cellule B1 ne soit visible que si l'on clique
dans la cellule C1. Est-ce possible?








Mgr T. Banni
Le #19089561
peut-être comme ceci, même si je ne sais pas de quoi on parle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer
For I = 4 To 80
If Target.Address <> Range("B") & I Then
Range("C") & I.NumberFormat = ";;;"
Else
Range("C") & I.NumberFormat = "General"
End If
Next I
End Sub

Mgr T.B. ( I comme INRI)


"Willi2004"
Encore plus difficile!
A présent, je tente de modifier ce code afin de l'étendre à une plage,
mais
ça ne fonctionne pas.
Voici ce que j'ai mis:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim I As Integer
For I = 4 To 80
If Target.Address <> "$B$I" Then
[CI].NumberFormat = ";;;"
Else
[CI].NumberFormat = "General"
End If
Next I
End Sub

Qu'en pensez-vous?
Daniel.C wrote:
Juste :-)))
Daniel

Bonjour,

il me semble que pour avoir B1 visible uniquement si l'on clique en
C1 il faut inverser la condition

If Target.Address = "$C$1" Then devient If Target.Address
<>"$C$1" Then

Cdt
Stéphane




"Daniel.C" news: eYK%
Bonjour.
La macro suivante doit être mise dans le module de la feuille. Elle
fonctionne quand on sélectionne la cellule C1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$1" Then
[B1].NumberFormat = ";;;"
Else
[B1].NumberFormat = "General"
End If
End Sub

Cordialement.
Daniel

Bonjour à tous.
Soient deux cellules A1 et B1 contenant des données. Je voudrais
que le contenu de la cellule B1 ne soit visible que si l'on clique
dans la cellule C1. Est-ce possible?













Willi2004
Le #19089771
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.
isabelle
Le #19089841
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

isabelle


Willi2004 a écrit :
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.





Daniel.C
Le #19090921
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.


Daniel.C
Le #19091281
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.




Publicité
Poster une réponse
Anonyme