Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de
la colonne D.
Sub vers_Alveole3()
Sheets("Alvéole3").Select
Range("D65536").Select
Selection.End(xlUp).Select
End Sub
Je me doute que vous vous en doutiez.
Le problème est que maintenant j'ai des formules dans cette colonne.
Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0.
Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
rigoler....
Sub vers_Alveole3() Dim Roro, V Sheets("Alvéole3").Select Range("D65536").Select Roro = Selection.End(xlUp).Row V = Roro Do While V > 0 If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do Roro = Roro - 1 Loop End Sub
HasTrouBal
"PLG" a écrit dans le message de news:
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de la colonne D.
Sub vers_Alveole3() Sheets("Alvéole3").Select Range("D65536").Select Selection.End(xlUp).Select End Sub
Je me doute que vous vous en doutiez. Le problème est que maintenant j'ai des formules dans cette colonne. Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire rigoler....
Merci à vous et à très bientôt (O:} Pat
Bonsoir
Un truc comme ça ?
Sub vers_Alveole3()
Dim Roro, V
Sheets("Alvéole3").Select
Range("D65536").Select
Roro = Selection.End(xlUp).Row
V = Roro
Do While V > 0
If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
Roro = Roro - 1
Loop
End Sub
HasTrouBal
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de
news:2EF62F4C-EDC8-4DE8-91DE-A20E3350C277@microsoft.com...
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de
la colonne D.
Sub vers_Alveole3()
Sheets("Alvéole3").Select
Range("D65536").Select
Selection.End(xlUp).Select
End Sub
Je me doute que vous vous en doutiez.
Le problème est que maintenant j'ai des formules dans cette colonne.
Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0.
Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
rigoler....
Sub vers_Alveole3() Dim Roro, V Sheets("Alvéole3").Select Range("D65536").Select Roro = Selection.End(xlUp).Row V = Roro Do While V > 0 If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do Roro = Roro - 1 Loop End Sub
HasTrouBal
"PLG" a écrit dans le message de news:
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de la colonne D.
Sub vers_Alveole3() Sheets("Alvéole3").Select Range("D65536").Select Selection.End(xlUp).Select End Sub
Je me doute que vous vous en doutiez. Le problème est que maintenant j'ai des formules dans cette colonne. Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire rigoler....
Merci à vous et à très bientôt (O:} Pat
michdenis
Bonjour,
Je te fais remarquer que pour ne travailler avec une cellule ou une plage de cellules, nul besoin de la sélectionner....Mais ce qui suit devrait répondre à ta question.
'----------------------------------- Dim DerLig As Long With Worksheets("NomDeTaFeuille") DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select End With '-----------------------------------
"PLG" a écrit dans le message de groupe de discussion :
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de la colonne D.
Sub vers_Alveole3() Sheets("Alvéole3").Select Range("D65536").Select Selection.End(xlUp).Select End Sub
Je me doute que vous vous en doutiez. Le problème est que maintenant j'ai des formules dans cette colonne. Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire rigoler....
Merci à vous et à très bientôt (O:} Pat
Bonjour,
Je te fais remarquer que pour ne travailler avec une
cellule ou une plage de cellules, nul besoin de la
sélectionner....Mais ce qui suit devrait répondre
à ta question.
'-----------------------------------
Dim DerLig As Long
With Worksheets("NomDeTaFeuille")
DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select
End With
'-----------------------------------
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
2EF62F4C-EDC8-4DE8-91DE-A20E3350C277@microsoft.com...
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de
la colonne D.
Sub vers_Alveole3()
Sheets("Alvéole3").Select
Range("D65536").Select
Selection.End(xlUp).Select
End Sub
Je me doute que vous vous en doutiez.
Le problème est que maintenant j'ai des formules dans cette colonne.
Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0.
Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
rigoler....
Je te fais remarquer que pour ne travailler avec une cellule ou une plage de cellules, nul besoin de la sélectionner....Mais ce qui suit devrait répondre à ta question.
'----------------------------------- Dim DerLig As Long With Worksheets("NomDeTaFeuille") DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select End With '-----------------------------------
"PLG" a écrit dans le message de groupe de discussion :
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de la colonne D.
Sub vers_Alveole3() Sheets("Alvéole3").Select Range("D65536").Select Selection.End(xlUp).Select End Sub
Je me doute que vous vous en doutiez. Le problème est que maintenant j'ai des formules dans cette colonne. Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire rigoler....
Merci à vous et à très bientôt (O:} Pat
PLG
Bonsoir MichDenis Dis donc tu m'as trop bien habituer jusqu'à présent...! Mais ton code, je n'arrive pas à m'en dépatouiller, serait ce les renvois à la ligne... je sais pas ! Toujours est il qu'elle bogue. De plus je ne comprend absolument pas ta remarque..!? J'ai des feuilles de saisie, la cellule la dernière remplie peut être ligne 600 ou 700.... L'avantage de mon code est qu'il m'ouvrait la feuille à l'endroit ou devait être saisie la prochaine valeur. Et cela m'allait à ravir. T'as pas plus simple... (O:}
"michdenis" wrote:
Bonjour,
Je te fais remarquer que pour ne travailler avec une cellule ou une plage de cellules, nul besoin de la sélectionner....Mais ce qui suit devrait répondre à ta question.
'----------------------------------- Dim DerLig As Long With Worksheets("NomDeTaFeuille") DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select End With '-----------------------------------
"PLG" a écrit dans le message de groupe de discussion :
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de la colonne D.
Sub vers_Alveole3() Sheets("Alvéole3").Select Range("D65536").Select Selection.End(xlUp).Select End Sub
Je me doute que vous vous en doutiez. Le problème est que maintenant j'ai des formules dans cette colonne. Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire rigoler....
Merci à vous et à très bientôt (O:} Pat
Bonsoir MichDenis
Dis donc tu m'as trop bien habituer jusqu'à présent...!
Mais ton code, je n'arrive pas à m'en dépatouiller, serait ce les renvois à
la ligne... je sais pas !
Toujours est il qu'elle bogue.
De plus je ne comprend absolument pas ta remarque..!?
J'ai des feuilles de saisie, la cellule la dernière remplie peut être ligne
600 ou 700....
L'avantage de mon code est qu'il m'ouvrait la feuille à l'endroit ou devait
être saisie la prochaine valeur.
Et cela m'allait à ravir.
T'as pas plus simple... (O:}
"michdenis" wrote:
Bonjour,
Je te fais remarquer que pour ne travailler avec une
cellule ou une plage de cellules, nul besoin de la
sélectionner....Mais ce qui suit devrait répondre
à ta question.
'-----------------------------------
Dim DerLig As Long
With Worksheets("NomDeTaFeuille")
DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select
End With
'-----------------------------------
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
2EF62F4C-EDC8-4DE8-91DE-A20E3350C277@microsoft.com...
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de
la colonne D.
Sub vers_Alveole3()
Sheets("Alvéole3").Select
Range("D65536").Select
Selection.End(xlUp).Select
End Sub
Je me doute que vous vous en doutiez.
Le problème est que maintenant j'ai des formules dans cette colonne.
Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0.
Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
rigoler....
Bonsoir MichDenis Dis donc tu m'as trop bien habituer jusqu'à présent...! Mais ton code, je n'arrive pas à m'en dépatouiller, serait ce les renvois à la ligne... je sais pas ! Toujours est il qu'elle bogue. De plus je ne comprend absolument pas ta remarque..!? J'ai des feuilles de saisie, la cellule la dernière remplie peut être ligne 600 ou 700.... L'avantage de mon code est qu'il m'ouvrait la feuille à l'endroit ou devait être saisie la prochaine valeur. Et cela m'allait à ravir. T'as pas plus simple... (O:}
"michdenis" wrote:
Bonjour,
Je te fais remarquer que pour ne travailler avec une cellule ou une plage de cellules, nul besoin de la sélectionner....Mais ce qui suit devrait répondre à ta question.
'----------------------------------- Dim DerLig As Long With Worksheets("NomDeTaFeuille") DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select End With '-----------------------------------
"PLG" a écrit dans le message de groupe de discussion :
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de la colonne D.
Sub vers_Alveole3() Sheets("Alvéole3").Select Range("D65536").Select Selection.End(xlUp).Select End Sub
Je me doute que vous vous en doutiez. Le problème est que maintenant j'ai des formules dans cette colonne. Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire rigoler....
Merci à vous et à très bientôt (O:} Pat
FdeCourt
Salut,
Je ne sais pas si vous êtes la même personne, mais la solution (a adapter légèrement) qui se trouve ici pourrait fonctionner : http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/threa d/37a10557c2f3a013#
Cordialement,
F.
Salut,
Je ne sais pas si vous êtes la même personne, mais la solution (a
adapter légèrement) qui se trouve ici pourrait fonctionner :
http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/threa d/37a10557c2f3a013#
Je ne sais pas si vous êtes la même personne, mais la solution (a adapter légèrement) qui se trouve ici pourrait fonctionner : http://groups.google.fr/group/microsoft.public.fr.excel/browse_thread/threa d/37a10557c2f3a013#
Cordialement,
F.
PLG
Bonsoir et merci pour ta réponse, mais...
Elle plante à : stop If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
Bonsoir
Un truc comme ça ?
Sub vers_Alveole3() Dim Roro, V Sheets("Alvéole3").Select Range("D65536").Select Roro = Selection.End(xlUp).Row V = Roro Do While V > 0 If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do Roro = Roro - 1 Loop End Sub
HasTrouBal
"PLG" a écrit dans le message de news: > Bonjour à vous tous > > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de > la colonne D. > > Sub vers_Alveole3() > Sheets("Alvéole3").Select > Range("D65536").Select > Selection.End(xlUp).Select > End Sub > > Je me doute que vous vous en doutiez. > Le problème est que maintenant j'ai des formules dans cette colonne. > Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire > rigoler.... > > Merci à vous et à très bientôt (O:} > Pat
.
Bonsoir et merci pour ta réponse, mais...
Elle plante à : stop
If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
Bonsoir
Un truc comme ça ?
Sub vers_Alveole3()
Dim Roro, V
Sheets("Alvéole3").Select
Range("D65536").Select
Roro = Selection.End(xlUp).Row
V = Roro
Do While V > 0
If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
Roro = Roro - 1
Loop
End Sub
HasTrouBal
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de
news:2EF62F4C-EDC8-4DE8-91DE-A20E3350C277@microsoft.com...
> Bonjour à vous tous
>
> Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de
> la colonne D.
>
> Sub vers_Alveole3()
> Sheets("Alvéole3").Select
> Range("D65536").Select
> Selection.End(xlUp).Select
> End Sub
>
> Je me doute que vous vous en doutiez.
> Le problème est que maintenant j'ai des formules dans cette colonne.
> Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0.
> Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
> rigoler....
>
> Merci à vous et à très bientôt (O:}
> Pat
Elle plante à : stop If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
Bonsoir
Un truc comme ça ?
Sub vers_Alveole3() Dim Roro, V Sheets("Alvéole3").Select Range("D65536").Select Roro = Selection.End(xlUp).Row V = Roro Do While V > 0 If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do Roro = Roro - 1 Loop End Sub
HasTrouBal
"PLG" a écrit dans le message de news: > Bonjour à vous tous > > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de > la colonne D. > > Sub vers_Alveole3() > Sheets("Alvéole3").Select > Range("D65536").Select > Selection.End(xlUp).Select > End Sub > > Je me doute que vous vous en doutiez. > Le problème est que maintenant j'ai des formules dans cette colonne. > Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire > rigoler.... > > Merci à vous et à très bientôt (O:} > Pat
.
PLG
Elle plante, mais par contre elle me renvoie bien sur la dernière cellule > à 0... Doit pas manquer grand chose à ton code...
J'suis sur que tu vas trouver...
"PLG" wrote:
Bonsoir et merci pour ta réponse, mais...
Elle plante à : stop If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
> Bonsoir > > Un truc comme ça ? > > Sub vers_Alveole3() > Dim Roro, V > Sheets("Alvéole3").Select > Range("D65536").Select > Roro = Selection.End(xlUp).Row > V = Roro > Do While V > 0 > If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do > Roro = Roro - 1 > Loop > End Sub > > HasTrouBal > > "PLG" a écrit dans le message de > news: > > Bonjour à vous tous > > > > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de > > la colonne D. > > > > Sub vers_Alveole3() > > Sheets("Alvéole3").Select > > Range("D65536").Select > > Selection.End(xlUp).Select > > End Sub > > > > Je me doute que vous vous en doutiez. > > Le problème est que maintenant j'ai des formules dans cette colonne. > > Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. > > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire > > rigoler.... > > > > Merci à vous et à très bientôt (O:} > > Pat > > . >
Elle plante, mais par contre elle me renvoie bien sur la dernière cellule > à
0...
Doit pas manquer grand chose à ton code...
J'suis sur que tu vas trouver...
"PLG" wrote:
Bonsoir et merci pour ta réponse, mais...
Elle plante à : stop
If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
> Bonsoir
>
> Un truc comme ça ?
>
> Sub vers_Alveole3()
> Dim Roro, V
> Sheets("Alvéole3").Select
> Range("D65536").Select
> Roro = Selection.End(xlUp).Row
> V = Roro
> Do While V > 0
> If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
> Roro = Roro - 1
> Loop
> End Sub
>
> HasTrouBal
>
> "PLG" <PLG@discussions.microsoft.com> a écrit dans le message de
> news:2EF62F4C-EDC8-4DE8-91DE-A20E3350C277@microsoft.com...
> > Bonjour à vous tous
> >
> > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de
> > la colonne D.
> >
> > Sub vers_Alveole3()
> > Sheets("Alvéole3").Select
> > Range("D65536").Select
> > Selection.End(xlUp).Select
> > End Sub
> >
> > Je me doute que vous vous en doutiez.
> > Le problème est que maintenant j'ai des formules dans cette colonne.
> > Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0.
> > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
> > rigoler....
> >
> > Merci à vous et à très bientôt (O:}
> > Pat
>
> .
>
Elle plante, mais par contre elle me renvoie bien sur la dernière cellule > à 0... Doit pas manquer grand chose à ton code...
J'suis sur que tu vas trouver...
"PLG" wrote:
Bonsoir et merci pour ta réponse, mais...
Elle plante à : stop If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
> Bonsoir > > Un truc comme ça ? > > Sub vers_Alveole3() > Dim Roro, V > Sheets("Alvéole3").Select > Range("D65536").Select > Roro = Selection.End(xlUp).Row > V = Roro > Do While V > 0 > If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do > Roro = Roro - 1 > Loop > End Sub > > HasTrouBal > > "PLG" a écrit dans le message de > news: > > Bonjour à vous tous > > > > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de > > la colonne D. > > > > Sub vers_Alveole3() > > Sheets("Alvéole3").Select > > Range("D65536").Select > > Selection.End(xlUp).Select > > End Sub > > > > Je me doute que vous vous en doutiez. > > Le problème est que maintenant j'ai des formules dans cette colonne. > > Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. > > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire > > rigoler.... > > > > Merci à vous et à très bientôt (O:} > > Pat > > . >
HasTrouBal
Un stop arrête la macro pour une éventuelle intervention!! de mise au point, mais la macro n'est pas plantée J'ai mis le stop pour la didactique. donc enlève : Stop
HasTrouBal
"PLG" a écrit dans le message de news:
Bonsoir et merci pour ta réponse, mais...
Elle plante à : stop If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
Bonsoir
Un truc comme ça ?
Sub vers_Alveole3() Dim Roro, V Sheets("Alvéole3").Select Range("D65536").Select Roro = Selection.End(xlUp).Row V = Roro Do While V > 0 If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do Roro = Roro - 1 Loop End Sub
HasTrouBal
"PLG" a écrit dans le message de news: > Bonjour à vous tous > > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie > de > la colonne D. > > Sub vers_Alveole3() > Sheets("Alvéole3").Select > Range("D65536").Select > Selection.End(xlUp).Select > End Sub > > Je me doute que vous vous en doutiez. > Le problème est que maintenant j'ai des formules dans cette colonne. > Je souhaiterais donc que ma cellule active soit la dernière cellule > à > 0. > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire > rigoler.... > > Merci à vous et à très bientôt (O:} > Pat
.
Un stop arrête la macro pour une éventuelle intervention!! de mise au point,
mais la macro n'est pas plantée
J'ai mis le stop pour la didactique.
donc enlève
: Stop
HasTrouBal
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de
news:82B9E012-F25A-45F7-8786-20B2A9764598@microsoft.com...
Bonsoir et merci pour ta réponse, mais...
Elle plante à : stop
If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
Bonsoir
Un truc comme ça ?
Sub vers_Alveole3()
Dim Roro, V
Sheets("Alvéole3").Select
Range("D65536").Select
Roro = Selection.End(xlUp).Row
V = Roro
Do While V > 0
If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
Roro = Roro - 1
Loop
End Sub
HasTrouBal
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de
news:2EF62F4C-EDC8-4DE8-91DE-A20E3350C277@microsoft.com...
> Bonjour à vous tous
>
> Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie
> de
> la colonne D.
>
> Sub vers_Alveole3()
> Sheets("Alvéole3").Select
> Range("D65536").Select
> Selection.End(xlUp).Select
> End Sub
>
> Je me doute que vous vous en doutiez.
> Le problème est que maintenant j'ai des formules dans cette colonne.
> Je souhaiterais donc que ma cellule active soit la dernière cellule > à
> 0.
> Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
> rigoler....
>
> Merci à vous et à très bientôt (O:}
> Pat
Un stop arrête la macro pour une éventuelle intervention!! de mise au point, mais la macro n'est pas plantée J'ai mis le stop pour la didactique. donc enlève : Stop
HasTrouBal
"PLG" a écrit dans le message de news:
Bonsoir et merci pour ta réponse, mais...
Elle plante à : stop If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
"HasTrouBal" wrote:
Bonsoir
Un truc comme ça ?
Sub vers_Alveole3() Dim Roro, V Sheets("Alvéole3").Select Range("D65536").Select Roro = Selection.End(xlUp).Row V = Roro Do While V > 0 If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do Roro = Roro - 1 Loop End Sub
HasTrouBal
"PLG" a écrit dans le message de news: > Bonjour à vous tous > > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie > de > la colonne D. > > Sub vers_Alveole3() > Sheets("Alvéole3").Select > Range("D65536").Select > Selection.End(xlUp).Select > End Sub > > Je me doute que vous vous en doutiez. > Le problème est que maintenant j'ai des formules dans cette colonne. > Je souhaiterais donc que ma cellule active soit la dernière cellule > à > 0. > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire > rigoler.... > > Merci à vous et à très bientôt (O:} > Pat
.
PLG
Bah.... voilà...! Ca roule ! Excuse moi mais je n'ai pas pu résister à regarder Star Wars... d'où mon absence. J'y retourne
Merci encore et bonne soirée à toi
"HasTrouBal" wrote:
Un stop arrête la macro pour une éventuelle intervention!! de mise au point, mais la macro n'est pas plantée J'ai mis le stop pour la didactique. donc enlève : Stop
HasTrouBal
"PLG" a écrit dans le message de news: > Bonsoir et merci pour ta réponse, mais... > > Elle plante à : stop > If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do > > "HasTrouBal" wrote: > >> Bonsoir >> >> Un truc comme ça ? >> >> Sub vers_Alveole3() >> Dim Roro, V >> Sheets("Alvéole3").Select >> Range("D65536").Select >> Roro = Selection.End(xlUp).Row >> V = Roro >> Do While V > 0 >> If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do >> Roro = Roro - 1 >> Loop >> End Sub >> >> HasTrouBal >> >> "PLG" a écrit dans le message de >> news: >> > Bonjour à vous tous >> > >> > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie >> > de >> > la colonne D. >> > >> > Sub vers_Alveole3() >> > Sheets("Alvéole3").Select >> > Range("D65536").Select >> > Selection.End(xlUp).Select >> > End Sub >> > >> > Je me doute que vous vous en doutiez. >> > Le problème est que maintenant j'ai des formules dans cette colonne. >> > Je souhaiterais donc que ma cellule active soit la dernière cellule > à >> > 0. >> > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire >> > rigoler.... >> > >> > Merci à vous et à très bientôt (O:} >> > Pat >> >> . >>
.
Bah.... voilà...!
Ca roule !
Excuse moi mais je n'ai pas pu résister à regarder Star Wars... d'où mon
absence.
J'y retourne
Merci encore et bonne soirée à toi
"HasTrouBal" wrote:
Un stop arrête la macro pour une éventuelle intervention!! de mise au point,
mais la macro n'est pas plantée
J'ai mis le stop pour la didactique.
donc enlève
: Stop
HasTrouBal
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de
news:82B9E012-F25A-45F7-8786-20B2A9764598@microsoft.com...
> Bonsoir et merci pour ta réponse, mais...
>
> Elle plante à : stop
> If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
>
> "HasTrouBal" wrote:
>
>> Bonsoir
>>
>> Un truc comme ça ?
>>
>> Sub vers_Alveole3()
>> Dim Roro, V
>> Sheets("Alvéole3").Select
>> Range("D65536").Select
>> Roro = Selection.End(xlUp).Row
>> V = Roro
>> Do While V > 0
>> If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do
>> Roro = Roro - 1
>> Loop
>> End Sub
>>
>> HasTrouBal
>>
>> "PLG" <PLG@discussions.microsoft.com> a écrit dans le message de
>> news:2EF62F4C-EDC8-4DE8-91DE-A20E3350C277@microsoft.com...
>> > Bonjour à vous tous
>> >
>> > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie
>> > de
>> > la colonne D.
>> >
>> > Sub vers_Alveole3()
>> > Sheets("Alvéole3").Select
>> > Range("D65536").Select
>> > Selection.End(xlUp).Select
>> > End Sub
>> >
>> > Je me doute que vous vous en doutiez.
>> > Le problème est que maintenant j'ai des formules dans cette colonne.
>> > Je souhaiterais donc que ma cellule active soit la dernière cellule > à
>> > 0.
>> > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
>> > rigoler....
>> >
>> > Merci à vous et à très bientôt (O:}
>> > Pat
>>
>> .
>>
Bah.... voilà...! Ca roule ! Excuse moi mais je n'ai pas pu résister à regarder Star Wars... d'où mon absence. J'y retourne
Merci encore et bonne soirée à toi
"HasTrouBal" wrote:
Un stop arrête la macro pour une éventuelle intervention!! de mise au point, mais la macro n'est pas plantée J'ai mis le stop pour la didactique. donc enlève : Stop
HasTrouBal
"PLG" a écrit dans le message de news: > Bonsoir et merci pour ta réponse, mais... > > Elle plante à : stop > If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do > > "HasTrouBal" wrote: > >> Bonsoir >> >> Un truc comme ça ? >> >> Sub vers_Alveole3() >> Dim Roro, V >> Sheets("Alvéole3").Select >> Range("D65536").Select >> Roro = Selection.End(xlUp).Row >> V = Roro >> Do While V > 0 >> If Range("D" & Roro) > 0 Then Range("D" & Roro).Select: Stop: Exit Do >> Roro = Roro - 1 >> Loop >> End Sub >> >> HasTrouBal >> >> "PLG" a écrit dans le message de >> news: >> > Bonjour à vous tous >> > >> > Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie >> > de >> > la colonne D. >> > >> > Sub vers_Alveole3() >> > Sheets("Alvéole3").Select >> > Range("D65536").Select >> > Selection.End(xlUp).Select >> > End Sub >> > >> > Je me doute que vous vous en doutiez. >> > Le problème est que maintenant j'ai des formules dans cette colonne. >> > Je souhaiterais donc que ma cellule active soit la dernière cellule > à >> > 0. >> > Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire >> > rigoler.... >> > >> > Merci à vous et à très bientôt (O:} >> > Pat >> >> . >>
.
michdenis
Tu dois remplacer "NomDeTaFeuille" par le vrai nom de ta feuille. Il y a -t-il plus éloquent ? Encore faut-il se donner la peine de lire le code !
Et si tu veux la première cellule vide de la même colonne, tu additionne 1
"PLG" a écrit dans le message de groupe de discussion :
Bonsoir MichDenis Dis donc tu m'as trop bien habituer jusqu'à présent...! Mais ton code, je n'arrive pas à m'en dépatouiller, serait ce les renvois à la ligne... je sais pas ! Toujours est il qu'elle bogue. De plus je ne comprend absolument pas ta remarque..!? J'ai des feuilles de saisie, la cellule la dernière remplie peut être ligne 600 ou 700.... L'avantage de mon code est qu'il m'ouvrait la feuille à l'endroit ou devait être saisie la prochaine valeur. Et cela m'allait à ravir. T'as pas plus simple... (O:}
"michdenis" wrote:
Bonjour,
Je te fais remarquer que pour ne travailler avec une cellule ou une plage de cellules, nul besoin de la sélectionner....Mais ce qui suit devrait répondre à ta question.
'----------------------------------- Dim DerLig As Long With Worksheets("NomDeTaFeuille") DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select End With '-----------------------------------
"PLG" a écrit dans le message de groupe de discussion :
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de la colonne D.
Sub vers_Alveole3() Sheets("Alvéole3").Select Range("D65536").Select Selection.End(xlUp).Select End Sub
Je me doute que vous vous en doutiez. Le problème est que maintenant j'ai des formules dans cette colonne. Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire rigoler....
Merci à vous et à très bientôt (O:} Pat
Tu dois remplacer "NomDeTaFeuille" par le vrai nom
de ta feuille. Il y a -t-il plus éloquent ? Encore faut-il
se donner la peine de lire le code !
Et si tu veux la première cellule vide de la même colonne,
tu additionne 1
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
EEDAF9E6-E0B7-49D2-BEB3-7EEE12F9EA7F@microsoft.com...
Bonsoir MichDenis
Dis donc tu m'as trop bien habituer jusqu'à présent...!
Mais ton code, je n'arrive pas à m'en dépatouiller, serait ce les renvois à
la ligne... je sais pas !
Toujours est il qu'elle bogue.
De plus je ne comprend absolument pas ta remarque..!?
J'ai des feuilles de saisie, la cellule la dernière remplie peut être ligne
600 ou 700....
L'avantage de mon code est qu'il m'ouvrait la feuille à l'endroit ou devait
être saisie la prochaine valeur.
Et cela m'allait à ravir.
T'as pas plus simple... (O:}
"michdenis" wrote:
Bonjour,
Je te fais remarquer que pour ne travailler avec une
cellule ou une plage de cellules, nul besoin de la
sélectionner....Mais ce qui suit devrait répondre
à ta question.
'-----------------------------------
Dim DerLig As Long
With Worksheets("NomDeTaFeuille")
DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select
End With
'-----------------------------------
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de groupe de discussion :
2EF62F4C-EDC8-4DE8-91DE-A20E3350C277@microsoft.com...
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de
la colonne D.
Sub vers_Alveole3()
Sheets("Alvéole3").Select
Range("D65536").Select
Selection.End(xlUp).Select
End Sub
Je me doute que vous vous en doutiez.
Le problème est que maintenant j'ai des formules dans cette colonne.
Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0.
Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire
rigoler....
Tu dois remplacer "NomDeTaFeuille" par le vrai nom de ta feuille. Il y a -t-il plus éloquent ? Encore faut-il se donner la peine de lire le code !
Et si tu veux la première cellule vide de la même colonne, tu additionne 1
"PLG" a écrit dans le message de groupe de discussion :
Bonsoir MichDenis Dis donc tu m'as trop bien habituer jusqu'à présent...! Mais ton code, je n'arrive pas à m'en dépatouiller, serait ce les renvois à la ligne... je sais pas ! Toujours est il qu'elle bogue. De plus je ne comprend absolument pas ta remarque..!? J'ai des feuilles de saisie, la cellule la dernière remplie peut être ligne 600 ou 700.... L'avantage de mon code est qu'il m'ouvrait la feuille à l'endroit ou devait être saisie la prochaine valeur. Et cela m'allait à ravir. T'as pas plus simple... (O:}
"michdenis" wrote:
Bonjour,
Je te fais remarquer que pour ne travailler avec une cellule ou une plage de cellules, nul besoin de la sélectionner....Mais ce qui suit devrait répondre à ta question.
'----------------------------------- Dim DerLig As Long With Worksheets("NomDeTaFeuille") DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row
.Range("D" & DerLig).Select End With '-----------------------------------
"PLG" a écrit dans le message de groupe de discussion :
Bonjour à vous tous
Voilà j'ai ce petit code qui me catapulte à la dernière cellule remplie de la colonne D.
Sub vers_Alveole3() Sheets("Alvéole3").Select Range("D65536").Select Selection.End(xlUp).Select End Sub
Je me doute que vous vous en doutiez. Le problème est que maintenant j'ai des formules dans cette colonne. Je souhaiterais donc que ma cellule active soit la dernière cellule > à 0. Bon, pour les furieux d'excel que vous êtes, ce doit bien vous faire rigoler....
Merci à vous et à très bientôt (O:} Pat
michdenis
J'oubliais, si tu veux sélectionner la cellule, il faut que la feuille soit d'abord "ACTIVE". Pour ce faire, tu ajoutes ".Activate" comme dans l'exemple
'----------------------------------- Dim DerLig As Long With Worksheets("NomDeTaFeuille") DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row .Activate .Range("D" & DerLig).Select End With '-----------------------------------
J'oubliais, si tu veux sélectionner la cellule, il faut que
la feuille soit d'abord "ACTIVE". Pour ce faire, tu ajoutes
".Activate" comme dans l'exemple
'-----------------------------------
Dim DerLig As Long
With Worksheets("NomDeTaFeuille")
DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
.Activate
.Range("D" & DerLig).Select
End With
'-----------------------------------
J'oubliais, si tu veux sélectionner la cellule, il faut que la feuille soit d'abord "ACTIVE". Pour ce faire, tu ajoutes ".Activate" comme dans l'exemple
'----------------------------------- Dim DerLig As Long With Worksheets("NomDeTaFeuille") DerLig = .Range("D:D").Find("*", LookIn:=xlValues, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious).Row .Activate .Range("D" & DerLig).Select End With '-----------------------------------
