Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" <te.st2e@free.fr> a écrit dans le message de
news:emep3%23dLEHA.1052@TK2MSFTNGP12.phx.gbl...
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" <te.st2e@free.fr> a écrit dans le message de
news:emep3%23dLEHA.1052@TK2MSFTNGP12.phx.gbl...
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Michel,
Je suis d'accord avec toi sur le principe , sauf sur ceci :
oldCell est une variable défini comme un "String", représentant une adresse de
cellule.
Est-ce que le demandeur a spécifié qu'en B5 se trouvait une adresse de cellule
valide ?
Moi, je n'ai pas tout compris ce que voulait faire le demandeur !
If oldCell = Feuil1.Range("B5") Then
Salutations!
"Michel Pierron" a écrit dans le message de
news:
Bonjour Denis;
Je n'ai pas tout compris; pour ma part, j'avais envisagé quelque chose comme:
Private oldCell As String
Private Sub Worksheet_Activate()
oldCell = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If oldCell = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
Exit Sub
End If
oldCell = Target.Address
End Sub
MP
"michdenis" a écrit dans le message de
news:Olm$Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Michel,
Je suis d'accord avec toi sur le principe , sauf sur ceci :
oldCell est une variable défini comme un "String", représentant une adresse de
cellule.
Est-ce que le demandeur a spécifié qu'en B5 se trouvait une adresse de cellule
valide ?
Moi, je n'ai pas tout compris ce que voulait faire le demandeur !
If oldCell = Feuil1.Range("B5") Then
Salutations!
"Michel Pierron" <mpierron@europtest.com> a écrit dans le message de
news:O05ox3eLEHA.3332@TK2MSFTNGP10.phx.gbl...
Bonjour Denis;
Je n'ai pas tout compris; pour ma part, j'avais envisagé quelque chose comme:
Private oldCell As String
Private Sub Worksheet_Activate()
oldCell = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If oldCell = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
Exit Sub
End If
oldCell = Target.Address
End Sub
MP
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Olm$nXeLEHA.1192@TK2MSFTNGP11.phx.gbl...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" <te.st2e@free.fr> a écrit dans le message de
news:emep3%23dLEHA.1052@TK2MSFTNGP12.phx.gbl...
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Michel,
Je suis d'accord avec toi sur le principe , sauf sur ceci :
oldCell est une variable défini comme un "String", représentant une adresse de
cellule.
Est-ce que le demandeur a spécifié qu'en B5 se trouvait une adresse de cellule
valide ?
Moi, je n'ai pas tout compris ce que voulait faire le demandeur !
If oldCell = Feuil1.Range("B5") Then
Salutations!
"Michel Pierron" a écrit dans le message de
news:
Bonjour Denis;
Je n'ai pas tout compris; pour ma part, j'avais envisagé quelque chose comme:
Private oldCell As String
Private Sub Worksheet_Activate()
oldCell = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If oldCell = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
Exit Sub
End If
oldCell = Target.Address
End Sub
MP
"michdenis" a écrit dans le message de
news:Olm$Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une
variable de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit
les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change
de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter
?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une
variable de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" <te.st2e@free.fr> a écrit dans le message de
news:emep3%23dLEHA.1052@TK2MSFTNGP12.phx.gbl...
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit
les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change
de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter
?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une
variable de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit
les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change
de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de quitter
?
Je précise que je souhaite pouvoir quitter la cellule active soit par TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Denis;
Je n'ai pas tout compris; pour ma part, j'avais envisagé quelque chose
comme:
Private oldCell As String
Private Sub Worksheet_Activate()
oldCell = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If oldCell = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
Exit Sub
End If
oldCell = Target.Address
End Sub
MP
"michdenis" a écrit dans le message de
news:Olm$Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une
variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu
plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit
les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas
à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change
de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de
quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par
TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Denis;
Je n'ai pas tout compris; pour ma part, j'avais envisagé quelque chose
comme:
Private oldCell As String
Private Sub Worksheet_Activate()
oldCell = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If oldCell = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
Exit Sub
End If
oldCell = Target.Address
End Sub
MP
"michdenis" <michdenis@hotmail.com> a écrit dans le message de
news:Olm$nXeLEHA.1192@TK2MSFTNGP11.phx.gbl...
Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une
variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" <te.st2e@free.fr> a écrit dans le message de
news:emep3%23dLEHA.1052@TK2MSFTNGP12.phx.gbl...
Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu
plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit
les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas
à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change
de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de
quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par
TAB,
soit par Entrée, soit par un clic sur une autre cellule...
Bonjour Denis;
Je n'ai pas tout compris; pour ma part, j'avais envisagé quelque chose
comme:
Private oldCell As String
Private Sub Worksheet_Activate()
oldCell = ActiveCell.Address
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If oldCell = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
Exit Sub
End If
oldCell = Target.Address
End Sub
MP
"michdenis" a écrit dans le message de
news:Olm$Bonjour Thierry,
Dans le haut du module feuille où se déroule l'action, tu déclare une
variable
de type objet "Range"
Dim MaCell as Range
'----------------------
Dim MaCell As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If MaCell Is Nothing Then
Set MaCell = Target
End If
If Target.Address = Range("B5").Address Then
MsgBox "Ok"
End If
End Sub
'----------------------
Salutations!
"Thierry Euzenot" a écrit dans le message de
news:emep3%Quelques infos de plus que dans mon post précédent...
Dans une feuille de calcul, je veux détecter la perte de focus d'une
cellule.
D'après mes connaissances limitées en ce domaine que j'explore un peu
plus
chaque jour, je vais donc utiliser la fonction :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Mais en fait Worksheet_SelectionChange(ByVal Target As Range) me renvoit
les
coordonnées de la nouvelle cellule sélectionnée... ce qui ne me sert pas
à
grand chose...
Je suis donc obligé de faire :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> Feuil1.Range("B5") Then
Feuil1.TextBox1.Value = "8:0"
Feuil1.TextBox2.Activate
End If
End Sub
Ceci ne me parait pas le plus simple et en plus pose de réels problèmes
puisque je ne peux plus sélectionner de cellules pour travailler
"normalement" dans ma feuille de calculs car à chaque fois que je change
de
cellule la fonction se lance...
Comment puis-je récupérer l'adresse de la cellule que je viens de
quitter ?
Je précise que je souhaite pouvoir quitter la cellule active soit par
TAB,
soit par Entrée, soit par un clic sur une autre cellule...
