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

[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

[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 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...

[Gaelb]

Ça marche nickel..merci à vous

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

[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