Dans un =C3=A9v=C3=A8nement Worksheet_SelectionChange, je voudrais distingu=
er entre la s=C3=A9lection de plusieurs cellules et la s=C3=A9lection de pl=
usieurs lignes enti=C3=A8res, mais je ne vois de m=C3=A9thode ou propri=C3=
=A9t=C3=A9 qui me donne la r=C3=A9ponse en direct...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Le 04/07/19 à 07:48, ThierryP a écrit :
Bonjour le forum ! Je bute sur un petit truc.... Dans un évènement Worksheet_SelectionChange, je voudrais distinguer entre la sélection de plusieurs cellules et la sélection de plusieurs lignes entières, mais je ne vois de méthode ou propriété qui me donne la réponse en direct... Une idée, une piste ?? Merci d'avance à tou(te)s ThierryP
Bonjour, Essaie quelque chose comme ceci : '------------------------------------------ Sub test() Dim Rg As Range With Feuil1 .Activate If TypeName(Selection) = "Range" Then Set Rg = Selection For Each r In Rg.Rows If r.Cells.Count = Rows(1).Columns.Count Then MsgBox "OK" 'C'est une ligne complète 'Que doit-il se passer? Else MsgBox "Non OK" 'C'est une ligne incomplète 'Que doit-il se passer? End If Next End If End With End Sub '------------------------------------------ MichD
Le 04/07/19 à 07:48, ThierryP a écrit :
Bonjour le forum !
Je bute sur un petit truc....
Dans un évènement Worksheet_SelectionChange, je voudrais distinguer entre la sélection de plusieurs cellules et la sélection de plusieurs lignes entières, mais je ne vois de méthode ou propriété qui me donne la réponse en direct...
Une idée, une piste ??
Merci d'avance à tou(te)s
ThierryP
Bonjour,
Essaie quelque chose comme ceci :
'------------------------------------------
Sub test()
Dim Rg As Range
With Feuil1
.Activate
If TypeName(Selection) = "Range" Then
Set Rg = Selection
For Each r In Rg.Rows
If r.Cells.Count = Rows(1).Columns.Count Then
MsgBox "OK"
'C'est une ligne complète
'Que doit-il se passer?
Else
MsgBox "Non OK"
'C'est une ligne incomplète
'Que doit-il se passer?
End If
Next
End If
End With
End Sub
'------------------------------------------
Bonjour le forum ! Je bute sur un petit truc.... Dans un évènement Worksheet_SelectionChange, je voudrais distinguer entre la sélection de plusieurs cellules et la sélection de plusieurs lignes entières, mais je ne vois de méthode ou propriété qui me donne la réponse en direct... Une idée, une piste ?? Merci d'avance à tou(te)s ThierryP
Bonjour, Essaie quelque chose comme ceci : '------------------------------------------ Sub test() Dim Rg As Range With Feuil1 .Activate If TypeName(Selection) = "Range" Then Set Rg = Selection For Each r In Rg.Rows If r.Cells.Count = Rows(1).Columns.Count Then MsgBox "OK" 'C'est une ligne complète 'Que doit-il se passer? Else MsgBox "Non OK" 'C'est une ligne incomplète 'Que doit-il se passer? End If Next End If End With End Sub '------------------------------------------ MichD
ThierryP
Re-bonjour Denis ! ça fonctionne parfaitement.... mais je ne suis pas étonné !! !! Au fait, tu dors de temps en temps ????? Parce que pour quelqu'un qui devai t prendre un peu de recul, je te trouve sacrément présent !! Et h eureusement pour nous autres pauvres néophytes autodidactes :-):-) ThierryP
Bonjour, Essaie quelque chose comme ceci : '------------------------------------------ Sub test()
Re-bonjour Denis !
ça fonctionne parfaitement.... mais je ne suis pas étonné !! !!
Au fait, tu dors de temps en temps ????? Parce que pour quelqu'un qui devai t prendre un peu de recul, je te trouve sacrément présent !! Et h eureusement pour nous autres pauvres néophytes autodidactes :-):-)
ThierryP
Bonjour,
Essaie quelque chose comme ceci :
'------------------------------------------
Sub test()
Re-bonjour Denis ! ça fonctionne parfaitement.... mais je ne suis pas étonné !! !! Au fait, tu dors de temps en temps ????? Parce que pour quelqu'un qui devai t prendre un peu de recul, je te trouve sacrément présent !! Et h eureusement pour nous autres pauvres néophytes autodidactes :-):-) ThierryP
Bonjour, Essaie quelque chose comme ceci : '------------------------------------------ Sub test()
MichD
Le 04/07/19 à 09:00, ThierryP a écrit :
Re-bonjour Denis ! ça fonctionne parfaitement.... mais je ne suis pas étonné !!!! Au fait, tu dors de temps en temps ????? Parce que pour quelqu'un qui devait prendre un peu de recul, je te trouve sacrément présent !! Et heureusement pour nous autres pauvres néophytes autodidactes :-):-)
Depuis quelques années, je n'ouvre plus Excel si ce n'est que pour répondre à des questions sur ce forum. Comme il y a moins d'une question par jour en moyenne, une bonne partie de mes connaissances tombent dans l'oubli d'autant plus que je ne fais aucun effort pour suivre les nouveautés. Quand les questions sont simples pour moi, pourquoi ne pas répondre... Ceci étant, vous êtes avertis. ;-) MichD
Le 04/07/19 à 09:00, ThierryP a écrit :
Re-bonjour Denis !
ça fonctionne parfaitement.... mais je ne suis pas étonné !!!!
Au fait, tu dors de temps en temps ????? Parce que pour quelqu'un qui devait prendre un peu de recul, je te trouve sacrément présent !! Et heureusement pour nous autres pauvres néophytes autodidactes :-):-)
Depuis quelques années, je n'ouvre plus Excel si ce n'est que pour
répondre à des questions sur ce forum. Comme il y a moins d'une question
par jour en moyenne, une bonne partie de mes connaissances tombent dans
l'oubli d'autant plus que je ne fais aucun effort pour suivre les
nouveautés. Quand les questions sont simples pour moi, pourquoi ne pas
répondre... Ceci étant, vous êtes avertis. ;-)
Re-bonjour Denis ! ça fonctionne parfaitement.... mais je ne suis pas étonné !!!! Au fait, tu dors de temps en temps ????? Parce que pour quelqu'un qui devait prendre un peu de recul, je te trouve sacrément présent !! Et heureusement pour nous autres pauvres néophytes autodidactes :-):-)
Depuis quelques années, je n'ouvre plus Excel si ce n'est que pour répondre à des questions sur ce forum. Comme il y a moins d'une question par jour en moyenne, une bonne partie de mes connaissances tombent dans l'oubli d'autant plus que je ne fais aucun effort pour suivre les nouveautés. Quand les questions sont simples pour moi, pourquoi ne pas répondre... Ceci étant, vous êtes avertis. ;-) MichD
ThierryP
C'est vrai que ce forum ne connaît plus l'activité débordant e d'il y a quelques années, et il n'est plus aussi drôle qu'il a pu l'être ! Promis, j'essaierai de poser des questions plus compliquées ! ThierryP
Depuis quelques années, je n'ouvre plus Excel si ce n'est que pour répondre à des questions sur ce forum. Comme il y a moins d'une question par jour en moyenne, une bonne partie de mes connaissances tombent dans l'oubli d'autant plus que je ne fais aucun effort pour suivre les nouveautés. Quand les questions sont simples pour moi, pourquoi ne p as répondre... Ceci étant, vous êtes avertis. ;-) MichD
C'est vrai que ce forum ne connaît plus l'activité débordant e d'il y a quelques années, et il n'est plus aussi drôle qu'il a pu l'être !
Promis, j'essaierai de poser des questions plus compliquées !
ThierryP
Depuis quelques années, je n'ouvre plus Excel si ce n'est que pour
répondre à des questions sur ce forum. Comme il y a moins d'une question
par jour en moyenne, une bonne partie de mes connaissances tombent dans
l'oubli d'autant plus que je ne fais aucun effort pour suivre les
nouveautés. Quand les questions sont simples pour moi, pourquoi ne p as
répondre... Ceci étant, vous êtes avertis. ;-)
C'est vrai que ce forum ne connaît plus l'activité débordant e d'il y a quelques années, et il n'est plus aussi drôle qu'il a pu l'être ! Promis, j'essaierai de poser des questions plus compliquées ! ThierryP
Depuis quelques années, je n'ouvre plus Excel si ce n'est que pour répondre à des questions sur ce forum. Comme il y a moins d'une question par jour en moyenne, une bonne partie de mes connaissances tombent dans l'oubli d'autant plus que je ne fais aucun effort pour suivre les nouveautés. Quand les questions sont simples pour moi, pourquoi ne p as répondre... Ceci étant, vous êtes avertis. ;-) MichD