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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
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" a écrit dans le message de news:
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
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" <abc@itavi.asso.fr> a écrit dans le message de news:
1078496815.721625@quito.magic.fr...
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
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" a écrit dans le message de news:
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
Bonjour,
Debut = Selection.Row Fin = Debut + Selection.Rows.Count - 1
Denis
"Syl" a écrit dans le message news:
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
Bonjour,
Debut = Selection.Row
Fin = Debut + Selection.Rows.Count - 1
Denis
"Syl" <abc@itavi.asso.fr> a écrit dans le message news:
1078496815.721625@quito.magic.fr...
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
Debut = Selection.Row Fin = Debut + Selection.Rows.Count - 1
Denis
"Syl" a écrit dans le message news:
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
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" a écrit dans le message de news:
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
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" <ailleurs@nowhere> a écrit dans le message de
news:e1z1eMsAEHA.2036@TK2MSFTNGP12.phx.gbl...
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" <abc@itavi.asso.fr> a écrit dans le message de news:
1078496815.721625@quito.magic.fr...
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
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" a écrit dans le message de news:
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
