ligne de début et de fin d'une selection

Le
Syl
bonjour,

Je cherche à obtenir le numéro de ligne du début et de la fin d'une
sélection, même si cette sélection se compose de cellules vides.

Dans Excel 97, lorsque je fais :

Fin = Selection.End(xlDown).Row
Debut = Selection.End(xlUp).Row

dans une colonne vide où j'aurais sélectionné les cellules 3 à 10 cellules,
j'obtiens pour les deux variables la valeur 1 et 65000
(alors que j'attends 3 et 10 comme valeur).

Si vous avez une idée, je prends

Merci et bon W.E.



--
Sylvain GALLOT
ITAVI
Service Economie
4, rue de la Bienfaisance
75008 PARIS
Tél : 01 45 22 77 05
Fax : 02 45 22 01 77
site internet de l'Institut : www.itavi.asso.fr
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
ru-th
Le #362340
Salut

Sub allerA12()
If IsEmpty(Selection.Range("a1")) Then
debut = Selection.End(xlDown).Row
Else
debut = Selection.Row
End If
fin = Selection.Find("*", , , , , xlPrevious).Row
End Sub

a+
rural thierry
"Syl"
bonjour,

Je cherche à obtenir le numéro de ligne du début et de la fin d'une
sélection, même si cette sélection se compose de cellules vides.

Dans Excel 97, lorsque je fais :

Fin = Selection.End(xlDown).Row
Debut = Selection.End(xlUp).Row

dans une colonne vide où j'aurais sélectionné les cellules 3 à 10
cellules,

j'obtiens pour les deux variables la valeur 1 et 65000
(alors que j'attends 3 et 10 comme valeur).

Si vous avez une idée, je prends...

Merci et bon W.E.



--
Sylvain GALLOT
ITAVI
Service Economie
4, rue de la Bienfaisance
75008 PARIS
Tél : 01 45 22 77 05
Fax : 02 45 22 01 77
site internet de l'Institut : www.itavi.asso.fr




Denis
Le #362321
Bonjour,

Debut = Selection.Row
Fin = Debut + Selection.Rows.Count - 1

Denis

"Syl"
bonjour,

Je cherche à obtenir le numéro de ligne du début et de la fin d'une
sélection, même si cette sélection se compose de cellules vides.

Dans Excel 97, lorsque je fais :

Fin = Selection.End(xlDown).Row
Debut = Selection.End(xlUp).Row

dans une colonne vide où j'aurais sélectionné les cellules 3 à 10 cellules,
j'obtiens pour les deux variables la valeur 1 et 65000
(alors que j'attends 3 et 10 comme valeur).

Si vous avez une idée, je prends...

Merci et bon W.E.



--
Sylvain GALLOT
ITAVI
Service Economie
4, rue de la Bienfaisance
75008 PARIS
Tél : 01 45 22 77 05
Fax : 02 45 22 01 77
site internet de l'Institut : www.itavi.asso.fr




ru-th
Le #362648
oups,
pas lu la question
je traitais que la partie remplie de la selection
pour réponse voir message de Denis !
:-((

--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:
Salut

Sub allerA12()
If IsEmpty(Selection.Range("a1")) Then
debut = Selection.End(xlDown).Row
Else
debut = Selection.Row
End If
fin = Selection.Find("*", , , , , xlPrevious).Row
End Sub

a+
rural thierry
"Syl"
bonjour,

Je cherche à obtenir le numéro de ligne du début et de la fin d'une
sélection, même si cette sélection se compose de cellules vides.

Dans Excel 97, lorsque je fais :

Fin = Selection.End(xlDown).Row
Debut = Selection.End(xlUp).Row

dans une colonne vide où j'aurais sélectionné les cellules 3 à 10
cellules,

j'obtiens pour les deux variables la valeur 1 et 65000
(alors que j'attends 3 et 10 comme valeur).

Si vous avez une idée, je prends...

Merci et bon W.E.



--
Sylvain GALLOT
ITAVI
Service Economie
4, rue de la Bienfaisance
75008 PARIS
Tél : 01 45 22 77 05
Fax : 02 45 22 01 77
site internet de l'Institut : www.itavi.asso.fr








Publicité
Poster une réponse
Anonyme