OVH Cloud OVH Cloud

sélection d'une ligne (ou d'une colonne)

15 réponses
Avatar
j-pascal
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans le cas
suivant :

J'ai un nom dans la cellule "A10", je souhaite saisir une valeur sur la
cellule"Z10" et je voudrais que la ligne "10" soit mise en surbrillance afin
de vérifier que la valeur s'inscrive bien sur la ligne qui correspond au nom
! Evidemment, cela doit fonctionner pour toutes les lignes ;-)

Un grand merci d'avance pour vos lumières éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance" lorsque l'on
sélectionne son numéro à la gauche du tableau ; c'est cela que je
souhaiterais reproduire mais à partir de la cellule active. Est-ce vraiment
plus clair ?

10 réponses

1 2
Avatar
Patrick Penet
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de news: %
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans le cas suivant :

J'ai un nom dans la cellule "A10", je souhaite saisir une valeur sur la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la ligne qui correspond au nom ! Evidemment, cela doit fonctionner
pour toutes les lignes ;-)

Un grand merci d'avance pour vos lumières éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance" lorsque l'on sélectionne son numéro à la gauche du tableau ; c'est
cela que je souhaiterais reproduire mais à partir de la cellule active. Est-ce vraiment plus clair ?


Avatar
j-pascal
Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active (j'entends
par là, celle où pointe la souris) se mette en surbrillance ! Z10 n'était
qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de news:
%
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans le
cas suivant : J'ai un nom dans la cellule "A10", je souhaite saisir une
valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la
ligne qui correspond au nom ! Evidemment, cela doit fonctionner pour
toutes les lignes ;-) Un grand merci d'avance pour vos lumières
éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance" lorsque
l'on sélectionne son numéro à la gauche du tableau ; c'est cela que
je souhaiterais reproduire mais à partir de la cellule active.
Est-ce vraiment plus clair ?




Avatar
MichDenis
'---------------------
With Sheets("NomDelaFeuille")
.Select
ActiveCell.EntireRow.Select
End With
'---------------------




"j-pascal" a écrit dans le message de news:

Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active (j'entends
par là, celle où pointe la souris) se mette en surbrillance ! Z10 n'était
qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de news:
%
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans le
cas suivant : J'ai un nom dans la cellule "A10", je souhaite saisir une
valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la
ligne qui correspond au nom ! Evidemment, cela doit fonctionner pour
toutes les lignes ;-) Un grand merci d'avance pour vos lumières
éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance" lorsque
l'on sélectionne son numéro à la gauche du tableau ; c'est cela que
je souhaiterais reproduire mais à partir de la cellule active.
Est-ce vraiment plus clair ?




Avatar
j-pascal
Bonsoir,

Désolé mais ça ne marche pas (chez moi) !
J'ai mis le code,
- dans la feuille 1
- dans "this workbook"
- dans un module ...
Je crois donc avoir tout essayé !

A+ ?

JP

MichDenis wrote:
'---------------------
With Sheets("NomDelaFeuille")
.Select
ActiveCell.EntireRow.Select
End With
'---------------------




"j-pascal" a écrit dans le message de news:

Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active
(j'entends par là, celle où pointe la souris) se mette en
surbrillance ! Z10 n'était qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de news:
%
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans le
cas suivant : J'ai un nom dans la cellule "A10", je souhaite saisir
une valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la
ligne qui correspond au nom ! Evidemment, cela doit fonctionner pour
toutes les lignes ;-) Un grand merci d'avance pour vos lumières
éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance" lorsque
l'on sélectionne son numéro à la gauche du tableau ; c'est cela que
je souhaiterais reproduire mais à partir de la cellule active.
Est-ce vraiment plus clair ?






Avatar
MichDenis
Si tu mets le code dans un module feuille, essaie ceci :

ActiveCell.EntireRow.Select



"j-pascal" a écrit dans le message de news:
OBotZ%
Bonsoir,

Désolé mais ça ne marche pas (chez moi) !
J'ai mis le code,
- dans la feuille 1
- dans "this workbook"
- dans un module ...
Je crois donc avoir tout essayé !

A+ ?

JP

MichDenis wrote:
'---------------------
With Sheets("NomDelaFeuille")
.Select
ActiveCell.EntireRow.Select
End With
'---------------------




"j-pascal" a écrit dans le message de news:

Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active
(j'entends par là, celle où pointe la souris) se mette en
surbrillance ! Z10 n'était qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de news:
%
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans le
cas suivant : J'ai un nom dans la cellule "A10", je souhaite saisir
une valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la
ligne qui correspond au nom ! Evidemment, cela doit fonctionner pour
toutes les lignes ;-) Un grand merci d'avance pour vos lumières
éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance" lorsque
l'on sélectionne son numéro à la gauche du tableau ; c'est cela que
je souhaiterais reproduire mais à partir de la cellule active.
Est-ce vraiment plus clair ?






Avatar
Daniel
Bonsoir.
Mets la macro suivante dans la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.EntireRow.Select
End Sub
Cordialement.
Daniel
"j-pascal" a écrit dans le message de news:
OBotZ%
Bonsoir,

Désolé mais ça ne marche pas (chez moi) !
J'ai mis le code,
- dans la feuille 1
- dans "this workbook"
- dans un module ...
Je crois donc avoir tout essayé !

A+ ?

JP

MichDenis wrote:
'---------------------
With Sheets("NomDelaFeuille")
.Select
ActiveCell.EntireRow.Select
End With
'---------------------




"j-pascal" a écrit dans le message de news:

Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active
(j'entends par là, celle où pointe la souris) se mette en
surbrillance ! Z10 n'était qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de news:
%
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans le
cas suivant : J'ai un nom dans la cellule "A10", je souhaite saisir
une valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la
ligne qui correspond au nom ! Evidemment, cela doit fonctionner pour
toutes les lignes ;-) Un grand merci d'avance pour vos lumières
éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance" lorsque
l'on sélectionne son numéro à la gauche du tableau ; c'est cela que
je souhaiterais reproduire mais à partir de la cellule active.
Est-ce vraiment plus clair ?









Avatar
j-pascal
Re,

Je dois oublier qqch car ça ne marche pas ;-(

JP

MichDenis wrote:
Si tu mets le code dans un module feuille, essaie ceci :

ActiveCell.EntireRow.Select



"j-pascal" a écrit dans le message de news:
OBotZ%
Bonsoir,

Désolé mais ça ne marche pas (chez moi) !
J'ai mis le code,
- dans la feuille 1
- dans "this workbook"
- dans un module ...
Je crois donc avoir tout essayé !

A+ ?

JP

MichDenis wrote:
'---------------------
With Sheets("NomDelaFeuille")
.Select
ActiveCell.EntireRow.Select
End With
'---------------------




"j-pascal" a écrit dans le message de news:

Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active
(j'entends par là, celle où pointe la souris) se mette en
surbrillance ! Z10 n'était qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de
news: %
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans le
cas suivant : J'ai un nom dans la cellule "A10", je souhaite saisir
une valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la
ligne qui correspond au nom ! Evidemment, cela doit fonctionner
pour toutes les lignes ;-) Un grand merci d'avance pour vos
lumières éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance"
lorsque l'on sélectionne son numéro à la gauche du tableau ; c'est
cela que je souhaiterais reproduire mais à partir de la cellule
active. Est-ce vraiment plus clair ?








Avatar
j-pascal
Bonsoir Daniel,

Mets la macro suivante dans la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.EntireRow.Select
End Sub
Cordialement.
Daniel


C'est parfait, sauf que ce à quoi je n'avais pas pensé, c'est qu'il est
impossible alors de saisir qqch dans la cellule en question ! En fait, il
faudrait que ce surlignement s'effectue sur un double clic et que le simple
clic me permette de saisir qqch !

A+ ?

JP
"j-pascal" a écrit dans le message de news:
OBotZ%
Bonsoir,

Désolé mais ça ne marche pas (chez moi) !
J'ai mis le code,
- dans la feuille 1
- dans "this workbook"
- dans un module ...
Je crois donc avoir tout essayé !

A+ ?

JP

MichDenis wrote:
'---------------------
With Sheets("NomDelaFeuille")
.Select
ActiveCell.EntireRow.Select
End With
'---------------------




"j-pascal" a écrit dans le message de
news:
Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active
(j'entends par là, celle où pointe la souris) se mette en
surbrillance ! Z10 n'était qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de
news: %
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans
le cas suivant : J'ai un nom dans la cellule "A10", je souhaite
saisir une valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la
ligne qui correspond au nom ! Evidemment, cela doit fonctionner
pour toutes les lignes ;-) Un grand merci d'avance pour vos
lumières éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance"
lorsque l'on sélectionne son numéro à la gauche du tableau ;
c'est cela que je souhaiterais reproduire mais à partir de la
cellule active. Est-ce vraiment plus clair ?










Avatar
Daniel
En supposant tes données en colonne A :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Target.EntireRow.Select
End Sub

Daniel
"j-pascal" a écrit dans le message de news:

Bonsoir Daniel,

Mets la macro suivante dans la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.EntireRow.Select
End Sub
Cordialement.
Daniel


C'est parfait, sauf que ce à quoi je n'avais pas pensé, c'est qu'il est
impossible alors de saisir qqch dans la cellule en question ! En fait, il
faudrait que ce surlignement s'effectue sur un double clic et que le
simple clic me permette de saisir qqch !

A+ ?

JP
"j-pascal" a écrit dans le message de news:
OBotZ%
Bonsoir,

Désolé mais ça ne marche pas (chez moi) !
J'ai mis le code,
- dans la feuille 1
- dans "this workbook"
- dans un module ...
Je crois donc avoir tout essayé !

A+ ?

JP

MichDenis wrote:
'---------------------
With Sheets("NomDelaFeuille")
.Select
ActiveCell.EntireRow.Select
End With
'---------------------




"j-pascal" a écrit dans le message de
news:
Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active
(j'entends par là, celle où pointe la souris) se mette en
surbrillance ! Z10 n'était qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de
news: %
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans
le cas suivant : J'ai un nom dans la cellule "A10", je souhaite
saisir une valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur la
ligne qui correspond au nom ! Evidemment, cela doit fonctionner
pour toutes les lignes ;-) Un grand merci d'avance pour vos
lumières éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance"
lorsque l'on sélectionne son numéro à la gauche du tableau ;
c'est cela que je souhaiterais reproduire mais à partir de la
cellule active. Est-ce vraiment plus clair ?













Avatar
j-pascal
Bonjour Daniel,

C'est une solution différente mais c'est parfait. Merci bcp.
Qu'en est-il des possibilités de surbrillance (ou autre) par le simple
passage de la souris sur une cellule ?

A bientôt ?

Bonne journée,

JP

wrote:
En supposant tes données en colonne A :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Then Exit Sub
Target.EntireRow.Select
End Sub

Daniel
"j-pascal" a écrit dans le message de news:

Bonsoir Daniel,

Mets la macro suivante dans la feuille :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.EntireRow.Select
End Sub
Cordialement.
Daniel


C'est parfait, sauf que ce à quoi je n'avais pas pensé, c'est qu'il
est impossible alors de saisir qqch dans la cellule en question ! En
fait, il faudrait que ce surlignement s'effectue sur un double clic
et que le simple clic me permette de saisir qqch !

A+ ?

JP
"j-pascal" a écrit dans le message de
news: OBotZ%
Bonsoir,

Désolé mais ça ne marche pas (chez moi) !
J'ai mis le code,
- dans la feuille 1
- dans "this workbook"
- dans un module ...
Je crois donc avoir tout essayé !

A+ ?

JP

MichDenis wrote:
'---------------------
With Sheets("NomDelaFeuille")
.Select
ActiveCell.EntireRow.Select
End With
'---------------------




"j-pascal" a écrit dans le message de
news:
Bonsoir Patrick,

Je souhaite que la ligne sur laquelle se trouve la cellule active
(j'entends par là, celle où pointe la souris) se mette en
surbrillance ! Z10 n'était qu'un exemple.

A+ ?

JP

Penet wrote:
Par macro :
ActiveSheet.Range("Z10").EntireRow.Select
PP

"j-pascal" a écrit dans le message de
news: %
Bonjour,

Y-a-t-il un moyen (une macro ?) pour sélectionner une ligne dans
le cas suivant : J'ai un nom dans la cellule "A10", je souhaite
saisir une valeur sur
la cellule"Z10" et je voudrais que la ligne "10" soit mise en
surbrillance afin de vérifier que la valeur s'inscrive bien sur
la ligne qui correspond au nom ! Evidemment, cela doit
fonctionner pour toutes les lignes ;-) Un grand merci d'avance
pour vos lumières éventuelles ...

JP

PS : Pour être plus clair, la ligne se met en "surbrillance"
lorsque l'on sélectionne son numéro à la gauche du tableau ;
c'est cela que je souhaiterais reproduire mais à partir de la
cellule active. Est-ce vraiment plus clair ?














1 2