J'ai essayé mais Excel VBA m'inscrit la ligne en rouge... Il n'en veut pas : erreur de syntaxe !
Salutations Arnaud
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: O$
Bonjour Range(Selection,Selection.End(xldown)).Offset(0,1) ou Range(Selection,Selection.End(xldown)).Offset(0,-1)
Cordialement Pascal
"arnaud" a écrit dans le message de news: O8vHn%
Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown)) je voudrais décaler cette sélection d'une colonne Comment je fais ??
Merci d'avance... Arnaud
papou
Re Tu veux faire quoi pour la suite ? Sélectionner : Range(Selection,Selection.End(xldown)).Offset(0,1).Select Récupérer la référence de la plage : Range(Selection,Selection.End(xldown)).Offset(0,1).Address
Ceci étant, je me rend compte que je n'ai pas forcément compris ce que tu souhaitais exactement inclure dans ta sélection. Donc s'il s'agit de ***déplacer*** la sélection d'une colonne, le code ci-dessus est ok. En revanche s'il s'agit ***d'étendre*** la sélection actuelle à une colonne supplémentaire, il te faudra modifier avec ceci : Dim tbl As Range Set tbl = Range(Selection, Selection.End(xlDown)) tbl.Resize(tbl.Rows.Count, tbl.Columns.Count + 1).Select
Cordialement Pascal
"arnaud" a écrit dans le message de news: %
J'ai essayé mais Excel VBA m'inscrit la ligne en rouge... Il n'en veut pas : erreur de syntaxe !
Salutations Arnaud
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: O$
Bonjour Range(Selection,Selection.End(xldown)).Offset(0,1) ou Range(Selection,Selection.End(xldown)).Offset(0,-1)
Cordialement Pascal
"arnaud" a écrit dans le message de news: O8vHn%
Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown)) je voudrais décaler cette sélection d'une colonne Comment je fais ??
Merci d'avance... Arnaud
Re
Tu veux faire quoi pour la suite ?
Sélectionner :
Range(Selection,Selection.End(xldown)).Offset(0,1).Select
Récupérer la référence de la plage :
Range(Selection,Selection.End(xldown)).Offset(0,1).Address
Ceci étant, je me rend compte que je n'ai pas forcément compris ce que tu
souhaitais exactement inclure dans ta sélection.
Donc s'il s'agit de ***déplacer*** la sélection d'une colonne, le code
ci-dessus est ok.
En revanche s'il s'agit ***d'étendre*** la sélection actuelle à une colonne
supplémentaire, il te faudra modifier avec ceci :
Dim tbl As Range
Set tbl = Range(Selection, Selection.End(xlDown))
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count + 1).Select
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
%237VDvNbtEHA.1272@TK2MSFTNGP12.phx.gbl...
J'ai essayé mais Excel VBA m'inscrit la ligne en rouge...
Il n'en veut pas : erreur de syntaxe !
Salutations
Arnaud
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
O$HRBHbtEHA.3972@TK2MSFTNGP15.phx.gbl...
Bonjour
Range(Selection,Selection.End(xldown)).Offset(0,1)
ou
Range(Selection,Selection.End(xldown)).Offset(0,-1)
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
O8vHn%23atEHA.1328@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown))
je voudrais décaler cette sélection d'une colonne
Comment je fais ??
Re Tu veux faire quoi pour la suite ? Sélectionner : Range(Selection,Selection.End(xldown)).Offset(0,1).Select Récupérer la référence de la plage : Range(Selection,Selection.End(xldown)).Offset(0,1).Address
Ceci étant, je me rend compte que je n'ai pas forcément compris ce que tu souhaitais exactement inclure dans ta sélection. Donc s'il s'agit de ***déplacer*** la sélection d'une colonne, le code ci-dessus est ok. En revanche s'il s'agit ***d'étendre*** la sélection actuelle à une colonne supplémentaire, il te faudra modifier avec ceci : Dim tbl As Range Set tbl = Range(Selection, Selection.End(xlDown)) tbl.Resize(tbl.Rows.Count, tbl.Columns.Count + 1).Select
Cordialement Pascal
"arnaud" a écrit dans le message de news: %
J'ai essayé mais Excel VBA m'inscrit la ligne en rouge... Il n'en veut pas : erreur de syntaxe !
Salutations Arnaud
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: O$
Bonjour Range(Selection,Selection.End(xldown)).Offset(0,1) ou Range(Selection,Selection.End(xldown)).Offset(0,-1)
Cordialement Pascal
"arnaud" a écrit dans le message de news: O8vHn%
Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown)) je voudrais décaler cette sélection d'une colonne Comment je fais ??
Merci d'avance... Arnaud
arnaud
Merci Pascal de t'interesser à mon cas, En fait, je ne veux pas déplacer le texte, mais prendre le meme nombre de cellules que ma sélection en colonne A vers la colonne B et sur les mêmes lignes...
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Re Tu veux faire quoi pour la suite ? Sélectionner : Range(Selection,Selection.End(xldown)).Offset(0,1).Select Récupérer la référence de la plage : Range(Selection,Selection.End(xldown)).Offset(0,1).Address
Ceci étant, je me rend compte que je n'ai pas forcément compris ce que tu souhaitais exactement inclure dans ta sélection. Donc s'il s'agit de ***déplacer*** la sélection d'une colonne, le code ci-dessus est ok. En revanche s'il s'agit ***d'étendre*** la sélection actuelle à une colonne
supplémentaire, il te faudra modifier avec ceci : Dim tbl As Range Set tbl = Range(Selection, Selection.End(xlDown)) tbl.Resize(tbl.Rows.Count, tbl.Columns.Count + 1).Select
Cordialement Pascal
"arnaud" a écrit dans le message de news: %
J'ai essayé mais Excel VBA m'inscrit la ligne en rouge... Il n'en veut pas : erreur de syntaxe !
Salutations Arnaud
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: O$
Bonjour Range(Selection,Selection.End(xldown)).Offset(0,1) ou Range(Selection,Selection.End(xldown)).Offset(0,-1)
Cordialement Pascal
"arnaud" a écrit dans le message de news:
O8vHn%
Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown)) je voudrais décaler cette sélection d'une colonne Comment je fais ??
Merci d'avance... Arnaud
Merci Pascal de t'interesser à mon cas,
En fait, je ne veux pas déplacer le texte, mais prendre le meme nombre de
cellules que ma sélection en colonne A vers la colonne B et sur les mêmes
lignes...
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
eFthhZbtEHA.3572@tk2msftngp13.phx.gbl...
Re
Tu veux faire quoi pour la suite ?
Sélectionner :
Range(Selection,Selection.End(xldown)).Offset(0,1).Select
Récupérer la référence de la plage :
Range(Selection,Selection.End(xldown)).Offset(0,1).Address
Ceci étant, je me rend compte que je n'ai pas forcément compris ce que tu
souhaitais exactement inclure dans ta sélection.
Donc s'il s'agit de ***déplacer*** la sélection d'une colonne, le code
ci-dessus est ok.
En revanche s'il s'agit ***d'étendre*** la sélection actuelle à une
colonne
supplémentaire, il te faudra modifier avec ceci :
Dim tbl As Range
Set tbl = Range(Selection, Selection.End(xlDown))
tbl.Resize(tbl.Rows.Count, tbl.Columns.Count + 1).Select
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
%237VDvNbtEHA.1272@TK2MSFTNGP12.phx.gbl...
J'ai essayé mais Excel VBA m'inscrit la ligne en rouge...
Il n'en veut pas : erreur de syntaxe !
Salutations
Arnaud
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
O$HRBHbtEHA.3972@TK2MSFTNGP15.phx.gbl...
Bonjour
Range(Selection,Selection.End(xldown)).Offset(0,1)
ou
Range(Selection,Selection.End(xldown)).Offset(0,-1)
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:
O8vHn%23atEHA.1328@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown))
je voudrais décaler cette sélection d'une colonne
Comment je fais ??
Merci Pascal de t'interesser à mon cas, En fait, je ne veux pas déplacer le texte, mais prendre le meme nombre de cellules que ma sélection en colonne A vers la colonne B et sur les mêmes lignes...
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Re Tu veux faire quoi pour la suite ? Sélectionner : Range(Selection,Selection.End(xldown)).Offset(0,1).Select Récupérer la référence de la plage : Range(Selection,Selection.End(xldown)).Offset(0,1).Address
Ceci étant, je me rend compte que je n'ai pas forcément compris ce que tu souhaitais exactement inclure dans ta sélection. Donc s'il s'agit de ***déplacer*** la sélection d'une colonne, le code ci-dessus est ok. En revanche s'il s'agit ***d'étendre*** la sélection actuelle à une colonne
supplémentaire, il te faudra modifier avec ceci : Dim tbl As Range Set tbl = Range(Selection, Selection.End(xlDown)) tbl.Resize(tbl.Rows.Count, tbl.Columns.Count + 1).Select
Cordialement Pascal
"arnaud" a écrit dans le message de news: %
J'ai essayé mais Excel VBA m'inscrit la ligne en rouge... Il n'en veut pas : erreur de syntaxe !
Salutations Arnaud
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: O$
Bonjour Range(Selection,Selection.End(xldown)).Offset(0,1) ou Range(Selection,Selection.End(xldown)).Offset(0,-1)
Cordialement Pascal
"arnaud" a écrit dans le message de news:
O8vHn%
Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown)) je voudrais décaler cette sélection d'une colonne Comment je fais ??
Merci d'avance... Arnaud
michdenis
Bonjour Arnaud,
Tu peux essayer ceci :
With Range(Selection, Selection.End(xlDown)) .Copy Selection.Offset(, 1) .Item(1).Resize(.Item(1) + Selection.Rows.Count).Clear End With
Salutations!
"arnaud" a écrit dans le message de news:O8vHn% Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown)) je voudrais décaler cette sélection d'une colonne Comment je fais ??
Merci d'avance... Arnaud
Bonjour Arnaud,
Tu peux essayer ceci :
With Range(Selection, Selection.End(xlDown))
.Copy Selection.Offset(, 1)
.Item(1).Resize(.Item(1) + Selection.Rows.Count).Clear
End With
Salutations!
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:O8vHn%23atEHA.1328@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une sélection : Range(Selection, Selection.End(xlDown))
je voudrais décaler cette sélection d'une colonne
Comment je fais ??
