Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Dernière colonne de la zone active

4 réponses
Avatar
Steph
Bonjour,

Je cherche le moyen de trouver la dernière colonne de la zone active.

Avez-vous une idée ?

--------------------------------------------
Pour la 1er case active lors de la sélection:
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

Pour la zone entière
Zone = Application.ActiveWindow.RangeSelection.Address
---------------------------------------------

Exemple: zone active = $C$9:$H$13 comment extraire la colonne H (ou 8) de la
zone active ?

D'avance merci,

Steph

4 réponses

Avatar
JB
Bonjour,

colonne = Range(Split(Selection.Address, ":")(1)).Column
ligne = Range(Split(Selection.Address, ":")(1)).Row

JB

On 20 mar, 11:13, "Steph" wrote:
Bonjour,

Je cherche le moyen de trouver la dernière colonne de la zone active.

Avez-vous une idée ?

--------------------------------------------
Pour la 1er case active lors de la sélection:
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

Pour la zone entière
Zone = Application.ActiveWindow.RangeSelection.Address
---------------------------------------------

Exemple: zone active = $C$9:$H$13 comment extraire la colonne H (ou 8) de la
zone active ?

D'avance merci,

Steph


Avatar
Steph
Merci pour ta réponse

Saurais tu également me montrer comment récupérer la 1er colonne de la zone
active pour le cas ou lorsque la 1er colonne n'était pas la 1er colonne
sélectionnée (le cas d'une sélection de droite à gauche) ?

merci



"JB" a écrit dans le message de news:

Bonjour,

colonne = Range(Split(Selection.Address, ":")(1)).Column
ligne = Range(Split(Selection.Address, ":")(1)).Row

JB

On 20 mar, 11:13, "Steph" wrote:
Bonjour,

Je cherche le moyen de trouver la dernière colonne de la zone active.

Avez-vous une idée ?

--------------------------------------------
Pour la 1er case active lors de la sélection:
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

Pour la zone entière
Zone = Application.ActiveWindow.RangeSelection.Address
---------------------------------------------

Exemple: zone active = $C$9:$H$13 comment extraire la colonne H (ou 8) de
la
zone active ?

D'avance merci,

Steph


Avatar
JB
Le sens de la sélection n'a pas d'importance.

Colonne de la première cellule d'une sélection:

colonne = Range(Split(Selection.Address, ":")(0)).Column

JB


On 20 mar, 11:40, "Steph" wrote:
Merci pour ta réponse

Saurais tu également me montrer comment récupérer la 1er colonne de la zone
active pour le cas ou lorsque la 1er colonne n'était pas la 1er colonne
sélectionnée (le cas d'une sélection de droite à gauche) ?

merci

"JB" a écrit dans le message de news:

Bonjour,

colonne = Range(Split(Selection.Address, ":")(1)).Column
ligne = Range(Split(Selection.Address, ":")(1)).Row

JB

On 20 mar, 11:13, "Steph" wrote:



Bonjour,

Je cherche le moyen de trouver la dernière colonne de la zone active.

Avez-vous une idée ?

--------------------------------------------
Pour la 1er case active lors de la sélection:
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

Pour la zone entière
Zone = Application.ActiveWindow.RangeSelection.Address
---------------------------------------------

Exemple: zone active = $C$9:$H$13 comment extraire la colonne H (ou 8 ) de
la
zone active ?

D'avance merci,

Steph- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -



Avatar
Steph
Merci beaucoup,

Passe une excellente journée,

Steph

"JB" a écrit dans le message de news:

Le sens de la sélection n'a pas d'importance.

Colonne de la première cellule d'une sélection:

colonne = Range(Split(Selection.Address, ":")(0)).Column

JB


On 20 mar, 11:40, "Steph" wrote:
Merci pour ta réponse

Saurais tu également me montrer comment récupérer la 1er colonne de la
zone
active pour le cas ou lorsque la 1er colonne n'était pas la 1er colonne
sélectionnée (le cas d'une sélection de droite à gauche) ?

merci

"JB" a écrit dans le message de news:

Bonjour,

colonne = Range(Split(Selection.Address, ":")(1)).Column
ligne = Range(Split(Selection.Address, ":")(1)).Row

JB

On 20 mar, 11:13, "Steph" wrote:



Bonjour,

Je cherche le moyen de trouver la dernière colonne de la zone active.

Avez-vous une idée ?

--------------------------------------------
Pour la 1er case active lors de la sélection:
Ligne = ActiveCell.Row
Colonne = ActiveCell.Column

Pour la zone entière
Zone = Application.ActiveWindow.RangeSelection.Address
---------------------------------------------

Exemple: zone active = $C$9:$H$13 comment extraire la colonne H (ou 8)
de
la
zone active ?

D'avance merci,

Steph- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -