Sélection en VBA avec Excel 2013

Version imprimable

15/06/2019, 12h34
Rogeure

Sélection en VBA avec Excel 2013

Bonjour,

Je souhaiterai effectuer, en VBA, une sélection, vers le haut, de la cellule où se situe mon curseur vers la 2ème cellule de la même colonne.
Exemple : de C20 à C2 ou de Z300 à Z2

Pourriez-vous m'aider ?

Merci

Citation:

Envoyé par Rogeure

Bonjour,

A tester :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Option Explicit
 
Public AireSelectionnee As Range
 
Sub SelectionnerLesCellules()
 
    With ActiveSheet
           If ActiveCell.Row > 1 Then
              Set AireSelectionnee = .Range(ActiveCell, .Cells(2, ActiveCell.Column))
              MsgBox AireSelectionnee.Address
           End If
    End With
 
End Sub

15/06/2019, 18h52
Rogeure
désolé mais ton code ne fonctionne pas

Pourrais-tu me dire pourquoi celui-ci pose problème
Code:

1 2 'Selectionner de la cellule active jusqu'à la deuxième ligne 'Range(Selection, Cells(ActiveCell.Column, 3)).Select
Merci
15/06/2019, 22h32
clementmarcotte
Bonjour,
Citation:
Envoyé par Rogeure

désolé mais ton code ne fonctionne pas

Pourrais-tu me dire pourquoi celui-ci pose problème

Code:

1 2 'Selectionner de la cellule active jusqu'à la deuxième ligne 'Range(Selection, Cells(ActiveCell.Column, 3)).Select

Merci
Il est en commentaire. Enlève l'apostrophe.
16/06/2019, 06h00
Invité

Citation:

Envoyé par Rogeure

désolé mais ton code ne fonctionne pas

Clic droit sur une cellule.
16/06/2019, 09h30
patricktoulon

re
Bonjour
@Eric
Code:

1 2 3 With ActiveSheet If ActiveCell.Row > 1 Then Set AireSelectionnee = .Range(ActiveCell, .Cells(2, ActiveCell.Column))
n'y aurait il pas quelque chose qui te gène dans ce principe

que vient faire activecell dans un bloc with activesheet ?

jusqu'à preuve du contraire activecell donne la cellule active de l'activesheet non?
ca se résume a ca

Code:

Set AireSelectionnee =ActiveCell.resize(2,1)

:koi:
16/06/2019, 12h31
Pierre Fauconnier

1 pièce(s) jointe(s)
Salut.
Citation:
Citation:

Envoyé par patricktoulon

[...]

Code:

1 2 3 With ActiveSheet If ActiveCell.Row > 1 Then Set AireSelectionnee = .Range(ActiveCell, .Cells(2, ActiveCell.Column))

[...]

Code:

Set AireSelectionnee =ActiveCell.resize(2,1)

[...]
Les deux codes donnés par Patrick, apparemment non testés, ne donnent évidemment pas le même résultat... Le premier donné par Eric étant le bon, le "raccourci" emprunté par Patrick ne répondant pas à la demande initiale.

Pièce jointe 483894
16/06/2019, 13h00
patricktoulon

re
bonjour pierre
2 codes????
j'en ai qu'un !! c'est le Resize!!! l'autre c'est une reprise de Eric pour montrer ce qui me dérangeais ( je n'avais pas a le tester )

edit:
et si je prend la demande initiale au pied de la lettre

Citation:

Bonjour,

Je souhaiterai effectuer, en VBA, une sélection, vers le haut, de la cellule où se situe mon curseur vers la 2ème cellule de la même colonne.
Exemple : de C20 à C2 ou de Z300 à Z2

Pourriez-vous m'aider ?

Merci

je fait comme ceci
Code:

1 2 3 4 Sub testx() Set Rng = Range(ActiveCell, ActiveCell.Offset(-ActiveCell.Row + 2)) MsgBox Rng.Parent.Name & vbCrLf & Rng.Address End Sub
l'adress est bonne et le sheets parent est bien reconnu (sans block with activesheet)
16/06/2019, 13h29
Pierre Fauconnier

Tu sembles dire, au #6, que les deux codes donnent le même résultat ( "ca se résume a ca "). Je dis que les deux codes ne donnent pas le même résultat, donc, "ca ne se résume pas à ça"... Et je ne vois pas ce qu'il y a comme problème à utiliser ActiveSheet et ActiveCell dans la même ligne de code.

C'est juste cela que je souhaitais souligner.

Si j'ai mal interprété ton intervention, clarifie-la.
16/06/2019, 13h54
patricktoulon

re

re
je me suis mal exprimé
"ca se résume a ca" c'est pour ma version
en considérant que l'activecell soi dans la rows(1)

mais a relire la demande initiale">1" ca pouvait être plus bas

pour le with activesheet:....activecell
je le fais jamais ca évite les erreurs du genre activesheet.activecell qui plante forcement car activesheet n'a pas de membre activecell
par contre activecell a bien un membre ".parent"

autrement dit par activecell tu peux tout chopper y compris le parent(qui est le activesheet)(démo dans le édit)
16/06/2019, 15h43
Pierre Fauconnier

En attendant, le code d'Eric réalise ce que le demandeur demande et celui que tu donnais en #6 pas, comme l'illustre l'image que j'ai postée dans mon premier message. Avais-tu testé ton code? Il suffisait pourtant de regarder les adresses des plages restituées par le code d'Eric et le tien pour voir de suite lequel était le bon et lequel était le mauvais. Après, le code que tu donnes en #8 est correct, c'est juste une autre façon de coder que ce qui avait déjà été donné avant.

Citation:

Envoyé par patricktoulon

[...]
pour le with activesheet:....activecell
je le fais jamais ca évite les erreurs du genre activesheet.activecell qui plante forcement car activesheet n'a pas de membre activecell [...]

C'est vraiment n'importe quoi :triste: