Bonjour,
Je souhaite r=E9cup=E9rer le nombre de Y ayant des Y pour faire des
calculs ou me positionner sur la derni=E8re ligne de Y.
L'ordre countif me renvoi une variable de type alpha.
Comment faire pour la convertir en num=E9rique ?
Connaissez vous une solution pour que je puisse me positionner en
AnbligneY.
Merci de vos r=E9ponses.
Sub test()
Dim toto As Integer
Dim tata As String
toto =3D "=3DCOUNTIF(R[-10]C:R[-1]C,""Y"")"
tata =3D "A" & toto
Range(tata).Select
End Sub
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
Misange
bonjour
euh... Rien compris à ta formulation ! "le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y" le nombre de pommes ayant des pommes ? pourquoi tu mets tes Y entre double guillemets ?
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Bonjour, Je souhaite récupérer le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y. L'ordre countif me renvoi une variable de type alpha. Comment faire pour la convertir en numérique ? Connaissez vous une solution pour que je puisse me positionner en AnbligneY. Merci de vos réponses.
Sub test() Dim toto As Integer Dim tata As String toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")" tata = "A" & toto Range(tata).Select End Sub
bonjour
euh... Rien compris à ta formulation !
"le nombre de Y ayant des Y pour faire des calculs ou me positionner sur
la dernière ligne de Y"
le nombre de pommes ayant des pommes ?
pourquoi tu mets tes Y entre double guillemets ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !
http://xlwiki.free.fr/wiki
http://www.excelabo.net
Bonjour,
Je souhaite récupérer le nombre de Y ayant des Y pour faire des
calculs ou me positionner sur la dernière ligne de Y.
L'ordre countif me renvoi une variable de type alpha.
Comment faire pour la convertir en numérique ?
Connaissez vous une solution pour que je puisse me positionner en
AnbligneY.
Merci de vos réponses.
Sub test()
Dim toto As Integer
Dim tata As String
toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")"
tata = "A" & toto
Range(tata).Select
End Sub
euh... Rien compris à ta formulation ! "le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y" le nombre de pommes ayant des pommes ? pourquoi tu mets tes Y entre double guillemets ?
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel ! http://xlwiki.free.fr/wiki http://www.excelabo.net
Bonjour, Je souhaite récupérer le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y. L'ordre countif me renvoi une variable de type alpha. Comment faire pour la convertir en numérique ? Connaissez vous une solution pour que je puisse me positionner en AnbligneY. Merci de vos réponses.
Sub test() Dim toto As Integer Dim tata As String toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")" tata = "A" & toto Range(tata).Select End Sub
bourgouinkristof
On 10 juin, 10:55, Misange wrote:
bonjour
euh... Rien compris à ta formulation ! "le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y" le nombre de pommes ayant des pommes ? pourquoi tu mets tes Y entre double guillemets ?
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.f ree.fr/wikihttp://www.excelabo.net
Bonjour, Je souhaite récupérer le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y. L'ordre countif me renvoi une variable de type alpha. Comment faire pour la convertir en numérique ? Connaissez vous une solution pour que je puisse me positionner en AnbligneY. Merci de vos réponses.
Sub test() Dim toto As Integer Dim tata As String toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")" tata = "A" & toto Range(tata).Select End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
effectivement pas très clair 1) Je cherche le nombre de lignes ayant des Y pour ensuite essayé de me positionner sur la dernière des lignes contenant des Y en colonne A. 2) pourquoi tu mets tes Y entre double guillemets ? C'est la génération automatique de mon NB.SI qui m'a donné cette transcription en countif. J'ai essayé de virer ces doubles guillemets le compilateur n'apprécie pas.
Pour Info ... La première colonne ne contient que des Y et des Z et est triée en croissant.
On 10 juin, 10:55, Misange <misa...@monsite.net> wrote:
bonjour
euh... Rien compris à ta formulation !
"le nombre de Y ayant des Y pour faire des calculs ou me positionner sur
la dernière ligne de Y"
le nombre de pommes ayant des pommes ?
pourquoi tu mets tes Y entre double guillemets ?
Misange migrateuse
XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.f ree.fr/wikihttp://www.excelabo.net
Bonjour,
Je souhaite récupérer le nombre de Y ayant des Y pour faire des
calculs ou me positionner sur la dernière ligne de Y.
L'ordre countif me renvoi une variable de type alpha.
Comment faire pour la convertir en numérique ?
Connaissez vous une solution pour que je puisse me positionner en
AnbligneY.
Merci de vos réponses.
Sub test()
Dim toto As Integer
Dim tata As String
toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")"
tata = "A" & toto
Range(tata).Select
End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
effectivement pas très clair
1) Je cherche le nombre de lignes ayant des Y
pour ensuite essayé de me positionner sur la dernière des lignes
contenant des Y en colonne A.
2) pourquoi tu mets tes Y entre double guillemets ?
C'est la génération automatique de mon NB.SI qui m'a donné cette
transcription en countif. J'ai essayé de virer ces doubles guillemets
le compilateur n'apprécie pas.
Pour Info ...
La première colonne ne contient que des Y et des Z et est triée en
croissant.
euh... Rien compris à ta formulation ! "le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y" le nombre de pommes ayant des pommes ? pourquoi tu mets tes Y entre double guillemets ?
Misange migrateuse XlWiki : Participez à un travail collaboratif sur excel !http://xlwiki.f ree.fr/wikihttp://www.excelabo.net
Bonjour, Je souhaite récupérer le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y. L'ordre countif me renvoi une variable de type alpha. Comment faire pour la convertir en numérique ? Connaissez vous une solution pour que je puisse me positionner en AnbligneY. Merci de vos réponses.
Sub test() Dim toto As Integer Dim tata As String toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")" tata = "A" & toto Range(tata).Select End Sub- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
effectivement pas très clair 1) Je cherche le nombre de lignes ayant des Y pour ensuite essayé de me positionner sur la dernière des lignes contenant des Y en colonne A. 2) pourquoi tu mets tes Y entre double guillemets ? C'est la génération automatique de mon NB.SI qui m'a donné cette transcription en countif. J'ai essayé de virer ces doubles guillemets le compilateur n'apprécie pas.
Pour Info ... La première colonne ne contient que des Y et des Z et est triée en croissant.
Jacky
Bonjour, Ceci, contrôle la présente d'un Y dans la colonne A est se positionne sur le dernier '-------------- Sub jj() For i = Range("a" & Cells(Rows.Count, "a").End(3).Row).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '-----------
-- Salutations JJ
a écrit dans le message de news:
Bonjour, Je souhaite récupérer le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y. L'ordre countif me renvoi une variable de type alpha. Comment faire pour la convertir en numérique ? Connaissez vous une solution pour que je puisse me positionner en AnbligneY. Merci de vos réponses.
Sub test() Dim toto As Integer Dim tata As String toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")" tata = "A" & toto Range(tata).Select End Sub
Bonjour,
Ceci, contrôle la présente d'un Y dans la colonne A est se positionne sur le
dernier
'--------------
Sub jj()
For i = Range("a" & Cells(Rows.Count, "a").End(3).Row).Row To 1 Step -1
If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'-----------
--
Salutations
JJ
<bourgouinkristof@free.fr> a écrit dans le message de news:
c5dfcc4c-31ed-4067-8bc1-d9ceb462f255@27g2000hsf.googlegroups.com...
Bonjour,
Je souhaite récupérer le nombre de Y ayant des Y pour faire des
calculs ou me positionner sur la dernière ligne de Y.
L'ordre countif me renvoi une variable de type alpha.
Comment faire pour la convertir en numérique ?
Connaissez vous une solution pour que je puisse me positionner en
AnbligneY.
Merci de vos réponses.
Sub test()
Dim toto As Integer
Dim tata As String
toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")"
tata = "A" & toto
Range(tata).Select
End Sub
Bonjour, Ceci, contrôle la présente d'un Y dans la colonne A est se positionne sur le dernier '-------------- Sub jj() For i = Range("a" & Cells(Rows.Count, "a").End(3).Row).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '-----------
-- Salutations JJ
a écrit dans le message de news:
Bonjour, Je souhaite récupérer le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y. L'ordre countif me renvoi une variable de type alpha. Comment faire pour la convertir en numérique ? Connaissez vous une solution pour que je puisse me positionner en AnbligneY. Merci de vos réponses.
Sub test() Dim toto As Integer Dim tata As String toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")" tata = "A" & toto Range(tata).Select End Sub
Jacky
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci, contrôle la présente d'un Y dans la colonne A est se positionne sur le dernier '-------------- Sub jj() For i = Range("a" & Cells(Rows.Count, "a").End(3).Row).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '-----------
-- Salutations JJ
a écrit dans le message de news:
Bonjour, Je souhaite récupérer le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y. L'ordre countif me renvoi une variable de type alpha. Comment faire pour la convertir en numérique ? Connaissez vous une solution pour que je puisse me positionner en AnbligneY. Merci de vos réponses.
Sub test() Dim toto As Integer Dim tata As String toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")" tata = "A" & toto Range(tata).Select End Sub
Re..
Avec l'inutile en moins
'--------
Sub jj()
For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1
If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'---------
--
Salutations
JJ
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
eXqmVUuyIHA.2184@TK2MSFTNGP02.phx.gbl...
Bonjour,
Ceci, contrôle la présente d'un Y dans la colonne A est se positionne sur
le dernier
'--------------
Sub jj()
For i = Range("a" & Cells(Rows.Count, "a").End(3).Row).Row To 1 Step -1
If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'-----------
--
Salutations
JJ
<bourgouinkristof@free.fr> a écrit dans le message de news:
c5dfcc4c-31ed-4067-8bc1-d9ceb462f255@27g2000hsf.googlegroups.com...
Bonjour,
Je souhaite récupérer le nombre de Y ayant des Y pour faire des
calculs ou me positionner sur la dernière ligne de Y.
L'ordre countif me renvoi une variable de type alpha.
Comment faire pour la convertir en numérique ?
Connaissez vous une solution pour que je puisse me positionner en
AnbligneY.
Merci de vos réponses.
Sub test()
Dim toto As Integer
Dim tata As String
toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")"
tata = "A" & toto
Range(tata).Select
End Sub
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Bonjour, Ceci, contrôle la présente d'un Y dans la colonne A est se positionne sur le dernier '-------------- Sub jj() For i = Range("a" & Cells(Rows.Count, "a").End(3).Row).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '-----------
-- Salutations JJ
a écrit dans le message de news:
Bonjour, Je souhaite récupérer le nombre de Y ayant des Y pour faire des calculs ou me positionner sur la dernière ligne de Y. L'ordre countif me renvoi une variable de type alpha. Comment faire pour la convertir en numérique ? Connaissez vous une solution pour que je puisse me positionner en AnbligneY. Merci de vos réponses.
Sub test() Dim toto As Integer Dim tata As String toto = "=COUNTIF(R[-10]C:R[-1]C,""Y"")" tata = "A" & toto Range(tata).Select End Sub
bourgouinkristof
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
On 10 juin, 12:41, "Jacky" <Dup...@marcel.fr> wrote:
Re..
Avec l'inutile en moins
'--------
Sub jj()
For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1
If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'---------
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
eXqmVUuyIHA.2...@TK2MSFTNGP02.phx.gbl...
Jacky, merci de votre réponse...
Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en
A1
que les Y soient avant ou après les Z
Y 01 NORD
Y 03 SUD
Y 04 Est
Y 05 OUEST
Z 01 NORD
Z 03 SUD
Z 04 Est
Z 05 OUEST
Z 06 SUD-OUEST
je suis sous XP avec le le pack office 2003 sp2
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
Jacky
Ok.. '--------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If Left(UCase(Cells(i, 1)), 1) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '------- Voir ici http://cjoint.com/?gknExcDYAh
-- Salutations JJ
a écrit dans le message de news:
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
Ok..
'---------
Sub jj()
For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1
If Left(UCase(Cells(i, 1)), 1) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'-------
Voir ici
http://cjoint.com/?gknExcDYAh
--
Salutations
JJ
<bourgouinkristof@free.fr> a écrit dans le message de news:
5f789b25-dcff-4be0-82e7-64e3f68d1696@a70g2000hsh.googlegroups.com...
On 10 juin, 12:41, "Jacky" <Dup...@marcel.fr> wrote:
Re..
Avec l'inutile en moins
'--------
Sub jj()
For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1
If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'---------
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
eXqmVUuyIHA.2...@TK2MSFTNGP02.phx.gbl...
Jacky, merci de votre réponse...
Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en
A1
que les Y soient avant ou après les Z
Y 01 NORD
Y 03 SUD
Y 04 Est
Y 05 OUEST
Z 01 NORD
Z 03 SUD
Z 04 Est
Z 05 OUEST
Z 06 SUD-OUEST
je suis sous XP avec le le pack office 2003 sp2
Ok.. '--------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If Left(UCase(Cells(i, 1)), 1) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '------- Voir ici http://cjoint.com/?gknExcDYAh
-- Salutations JJ
a écrit dans le message de news:
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
isabelle
bonjour JJ,
x = Application.Match("Y", Range("A:A"), 1) Application.Goto Range("A" & x)
isabelle
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
bonjour JJ,
x = Application.Match("Y", Range("A:A"), 1)
Application.Goto Range("A" & x)
isabelle
On 10 juin, 12:41, "Jacky" <Dup...@marcel.fr> wrote:
Re..
Avec l'inutile en moins
'--------
Sub jj()
For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1
If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'---------
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
eXqmVUuyIHA.2...@TK2MSFTNGP02.phx.gbl...
Jacky, merci de votre réponse...
Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en
A1
que les Y soient avant ou après les Z
Y 01 NORD
Y 03 SUD
Y 04 Est
Y 05 OUEST
Z 01 NORD
Z 03 SUD
Z 04 Est
Z 05 OUEST
Z 06 SUD-OUEST
je suis sous XP avec le le pack office 2003 sp2
x = Application.Match("Y", Range("A:A"), 1) Application.Goto Range("A" & x)
isabelle
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
MichDenis
Pas sensible à la casse de Y '-------------------------- Sub test() Dim rg As Range With Worksheets("Feuil1") ' Nom feuille à adapter With .Range("A1:A10") Set rg = .Find(what:="y", LookIn:=xlValues, _ LookAt:=xlPart, SearchDirection:=xlPrevious) If Not rg Is Nothing Then rg.Select End If End With End With End Sub '--------------------------
a écrit dans le message de news:
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
Pas sensible à la casse de Y
'--------------------------
Sub test()
Dim rg As Range
With Worksheets("Feuil1") ' Nom feuille à adapter
With .Range("A1:A10")
Set rg = .Find(what:="y", LookIn:=xlValues, _
LookAt:=xlPart, SearchDirection:=xlPrevious)
If Not rg Is Nothing Then
rg.Select
End If
End With
End With
End Sub
'--------------------------
<bourgouinkristof@free.fr> a écrit dans le message de news:
5f789b25-dcff-4be0-82e7-64e3f68d1696@a70g2000hsh.googlegroups.com...
On 10 juin, 12:41, "Jacky" <Dup...@marcel.fr> wrote:
Re..
Avec l'inutile en moins
'--------
Sub jj()
For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1
If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'---------
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
eXqmVUuyIHA.2...@TK2MSFTNGP02.phx.gbl...
Jacky, merci de votre réponse...
Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en
A1
que les Y soient avant ou après les Z
Y 01 NORD
Y 03 SUD
Y 04 Est
Y 05 OUEST
Z 01 NORD
Z 03 SUD
Z 04 Est
Z 05 OUEST
Z 06 SUD-OUEST
je suis sous XP avec le le pack office 2003 sp2
Pas sensible à la casse de Y '-------------------------- Sub test() Dim rg As Range With Worksheets("Feuil1") ' Nom feuille à adapter With .Range("A1:A10") Set rg = .Find(what:="y", LookIn:=xlValues, _ LookAt:=xlPart, SearchDirection:=xlPrevious) If Not rg Is Nothing Then rg.Select End If End With End With End Sub '--------------------------
a écrit dans le message de news:
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
Jacky
Bonjour Denis
Oui, comme il y a peut de chance de trouver un "y" dans les points cardinaux ;o))) -- Salutations JJ
"MichDenis" a écrit dans le message de news:
Pas sensible à la casse de Y '-------------------------- Sub test() Dim rg As Range With Worksheets("Feuil1") ' Nom feuille à adapter With .Range("A1:A10") Set rg = .Find(what:="y", LookIn:=xlValues, _ LookAt:=xlPart, SearchDirection:=xlPrevious) If Not rg Is Nothing Then rg.Select End If End With End With End Sub '--------------------------
a écrit dans le message de news:
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2
Bonjour Denis
Oui, comme il y a peut de chance de trouver un "y" dans les points cardinaux
;o)))
--
Salutations
JJ
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
O1a1BOvyIHA.2292@TK2MSFTNGP03.phx.gbl...
Pas sensible à la casse de Y
'--------------------------
Sub test()
Dim rg As Range
With Worksheets("Feuil1") ' Nom feuille à adapter
With .Range("A1:A10")
Set rg = .Find(what:="y", LookIn:=xlValues, _
LookAt:=xlPart, SearchDirection:=xlPrevious)
If Not rg Is Nothing Then
rg.Select
End If
End With
End With
End Sub
'--------------------------
<bourgouinkristof@free.fr> a écrit dans le message de news:
5f789b25-dcff-4be0-82e7-64e3f68d1696@a70g2000hsh.googlegroups.com...
On 10 juin, 12:41, "Jacky" <Dup...@marcel.fr> wrote:
Re..
Avec l'inutile en moins
'--------
Sub jj()
For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1
If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub
Next
End Sub
'---------
--
Salutations
JJ
"Jacky" <Dup...@marcel.fr> a écrit dans le message de news:
eXqmVUuyIHA.2...@TK2MSFTNGP02.phx.gbl...
Jacky, merci de votre réponse...
Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en
A1
que les Y soient avant ou après les Z
Y 01 NORD
Y 03 SUD
Y 04 Est
Y 05 OUEST
Z 01 NORD
Z 03 SUD
Z 04 Est
Z 05 OUEST
Z 06 SUD-OUEST
je suis sous XP avec le le pack office 2003 sp2
Oui, comme il y a peut de chance de trouver un "y" dans les points cardinaux ;o))) -- Salutations JJ
"MichDenis" a écrit dans le message de news:
Pas sensible à la casse de Y '-------------------------- Sub test() Dim rg As Range With Worksheets("Feuil1") ' Nom feuille à adapter With .Range("A1:A10") Set rg = .Find(what:="y", LookIn:=xlValues, _ LookAt:=xlPart, SearchDirection:=xlPrevious) If Not rg Is Nothing Then rg.Select End If End With End With End Sub '--------------------------
a écrit dans le message de news:
On 10 juin, 12:41, "Jacky" wrote:
Re.. Avec l'inutile en moins '-------- Sub jj() For i = Cells(Rows.Count, "a").End(3).Row To 1 Step -1 If UCase(Cells(i, 1)) = "Y" Then Cells(i, 1).Select: Exit Sub Next End Sub '---------
-- Salutations JJ
"Jacky" a écrit dans le message de news:
Jacky, merci de votre réponse... Celà ne fonctionne pas sur mon tableau d'essai je reste positionné en A1 que les Y soient avant ou après les Z Y 01 NORD Y 03 SUD Y 04 Est Y 05 OUEST Z 01 NORD Z 03 SUD Z 04 Est Z 05 OUEST Z 06 SUD-OUEST je suis sous XP avec le le pack office 2003 sp2