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?
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" a écrit dans le message de 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?
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eYK%23WTQuJHA.3848@TK2MSFTNGP02.phx.gbl...
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?
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" a écrit dans le message de 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
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.
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.
If Target.Address = "$C$1" Then devient If Target.Address <>"$C$1" Then
En effet!! Vous êtes formidables tous les deux. Merci.
Daniel.C
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" a écrit dans le message de 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?
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
eYK%23WTQuJHA.3848@TK2MSFTNGP02.phx.gbl...
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?
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" a écrit dans le message de 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
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" a écrit dans le message de 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?
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: eYK%23WTQuJHA.3848@TK2MSFTNGP02.phx.gbl...
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?
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" a écrit dans le message de 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
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" a écrit dans le message de groupe de discussion :
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" a écrit dans le message de 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?
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" <sav_prof.XYZ@yahoo.fr> a écrit dans le message de groupe de discussion :
eE1IoiVuJHA.5064@TK2MSFTNGP04.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: eYK%23WTQuJHA.3848@TK2MSFTNGP02.phx.gbl...
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?
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" a écrit dans le message de groupe de discussion :
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" a écrit dans le message de 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
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" a écrit dans le message de news:
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" a écrit dans le message de 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?
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" <sav_prof.XYZ@yahoo.fr> a écrit dans le message de news:
eE1IoiVuJHA.5064@TK2MSFTNGP04.phx.gbl...
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" <dcolardelleZZZ@gmail.com> a écrit dans le message de
news: eYK%23WTQuJHA.3848@TK2MSFTNGP02.phx.gbl...
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?
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" a écrit dans le message de news:
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" a écrit dans le message de 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
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.
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.
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
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.
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.
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
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.
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.
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
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.
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.
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.