Discussion :

[Gaelb]

Bonjour,

J'essaye de créer une macro sous exel qui demande à l'utilisateur de sélectionner deux cellules; une de début et une de fin afin d'automatiquement copier puis coller la rangée formée par ces deux adresses.

Je dispose de deux adresse stockés dans deux variables de type string par ex:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public MemoCellsAdr As String
Public MemoCellsAdr2 As String
 
MemoCellsAdr = "$A$10"
MemoCellsAdr2 = "$A$15"

mon problème est de sélectionner la rangé formé par ces deux adresses, à savoir:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("MemoCellsAdr :MemoCellsAdr2").select

Mais cela ne fonctionne pas...Quelqu'un a-t il une idée?

[David2304]

Bonjour,

Pourquoi ne demandes-tu pas à l'utilisateur de sélectionner la rangée directement ?

[fring]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(MemoCellsAdr & ":" & MemoCellsAdr2).select

[Gaelb]

je dois récupérer le début et la fin de la rangée pour d'autres calculs, cette fonction permet simplement de lui faciliter et d'accélérer les choses...

[David2304]

Bonjour Fring,
y a-t-il une différence entre ta syntaxe et celle-ci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Range(MemoCellsAdr), Range(MemoCellsAdr2)).Select

[Gaelb]

Ça marche nickel..merci à vous

Les deux fonctionnent, j'ai testé...

[fring]

Bonjour Fring,
y a-t-il une différence entre ta syntaxe et celle-ci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Range(MemoCellsAdr), Range(MemoCellsAdr2)).Select

non, hormis la longueur d'écriture du code, il n'y a pas de différence.
Il y a 36 manières d'écrire cette syntaxe, par exemple ceci fonctionne aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(Range(memocellsadr).Row, Range(memocellsadr).Column), Cells(Range(memocellsadr2).Row, Range(memocellsadr2).Column)).Select

[Gaelb]

Je voudrais à présent rajouter les données de la colonne à droite par exemple si l'utilisateur sélectionne la rangé de l'exemple précédent:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public MemoCellsAdr As String
Public MemoCellsAdr2 As String
 
MemoCellsAdr = "$A$10"
MemoCellsAdr2 = "$A$15"
 
Range(Range(MemoCellsAdr), Range(MemoCellsAdr2)).Select

je voudrais que la macro sélectionne la rangé:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A10:B15").select

(ou bien la rangée: )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("B10:B15").select

Ha je pense avoir la réponse grâce à cette ligne de code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(Range(memocellsadr).Row, Range(memocellsadr).Column), Cells(Range(memocellsadr2).Row, Range(memocellsadr2).Column)).Select

[Gaelb]

Désolé pour ces questions de débutant et merci pour votre aide je met résolu..

[fring]

Oui si au départ tu as A10/A15 et que tu veux sélectionner B10/B15 tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(Cells(Range(memocellsadr).Row, Range(memocellsadr).Column + 1), Cells(Range(memocellsadr2).Row, Range(memocellsadr2).Column + 1)).Select

mais plus sérieusement...ceci devrait faire l'affaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
memocellsadr = "$A$10"
memocellsadr2 = "$A$15"
 
Range(memocellsadr & ":" & memocellsadr2).Offset(0, 1).Select

ou par exemple ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test()
Dim Cel As Range
 
Set Cel = Application.InputBox("veuillez sélectionner votre plage de cellule", , , , , , , 8)
 
Cel.Offset(0, 1).Select
 
End Sub